6775	(?do)
1	(bye)
442464	;s
3259	?branch-lp+!#
1	sfloats
91	within
34770	defer:
38079	drop
165	floats
6	f!
7963	fp@
13568	/string
369	d+
316	2swap
141642	lit
4	>does-code
579	cr
521	noop
25	<=
72	char+
18983	<>
1	up!
1	f*
9214	max
151	cmove
18542	count
3282	(f83find)
1	dfloats
30	>=
9751	1+
378	u<
43102	branch
27799	and
1	fasin
6082	1-
936	u>
4795	(hashfind)
7825	pick
49863	lp+
3249	rdrop
183685	?branch
69866	lp-
57687	!
36627	var:
1106	fill
218	does-code!
11509	min
3181	negate
5336	@local#
17484	2drop
41195	over
7267	lp+2
7	>float
94	*
98260	+
6885	tuck
33024	-
4764	/
6845	faligned
47254	2dup
41220	cells
23259	@local0
34723	field:
139323	@local1
3789	@local2
16723	@local3
4952	or
51	open-file
3890	<
19543	=
16173	>
2048	dabs
12327	c!
283813	@
197	2rdrop
1	float+
428114	col:
14	does-handler!
7	dnegate
17278	nip
7429	lp+!#
36	2over
4751	/mod
70945	con:
108626	>l
7604	(+loop)
60124	>r
12340	rot
232	/does-handler
567	>code-address
386	>body
199	2>r
738	um*
57072	r>
117	invert
91	2!
22169	r@
2	2r>
126882	dup
62	compare
52	allocate
2601	i'
33	2*
63	laddr#
696	0<>
28	rp@
21938	c@
20391	execute
14153	(loop)
11683	unloop
5775	0<
16214	0=
5900	(hashkey1)
3929	0>
8969	?dup
39014	i
38718	cell+
1113	move
3716	d0=
558	code-address!
7432	um/mod
8475	(parse-white)
44542	swap
10574	2@
14	close-file
2420	read-line
6876	xor
13	resize
1	lshift
392	(emit)
17	u<=
15931	aligned
52	u<>
9136	(type)
24350	+!
8200	sp@
4909	(do)
131630	user:
375	toupper
14580	does:
400	u>=
50	-rot
928	;s @local2
1	! @local3
6753	! (loop)
191	faligned over
4	/string rot
20	+! var:
51	con: open-file
1163	;s @local3
1105	rot !
682	0<> ?branch
152	<> and
44	con: branch
13	+! user:
1156	+ dup
1	con: 0=
11	dup ;s
7	rdrop user:
1	execute dfloats
25	>= col:
16	drop >r
12664	and ?branch
2718	rdrop ;s
1649	branch i
194	col: aligned
3	(+loop) i
575	count col:
7673	@ lit
2791	?branch @local#
135	! noop
4795	r> xor
218	does-code! ;s
13273	dup field:
8837	aligned ;s
2596	@local# @local1
87	lp- con:
17	u<= ?branch
2	close-file col:
5372	c@ >r
279	drop r>
5732	swap c!
15	var: con:
4795	@ (hashfind)
10	execute field:
68	over char+
309	0> 0=
1860	@ swap
6208	dup count
2420	read-line col:
360	@ max
1105	tuck cell+
1105	drop r@
7	col: ;s
4751	/mod rot
2202	and col:
14	nip r>
12291	;s user:
1	noop var:
1536	lit !
1	con: @local1
194	aligned dup
7	2drop user:
5	drop defer:
3	execute @
7935	?branch fp@
1	2@ 2*
10764	;s defer:
1	open-file col:
4	c! col:
48	r@ pick
197	2rdrop branch
73650	;s ;s
191	var: c!
91	* 1-
70	r> cell+
5068	c@ r@
49	dup allocate
7	cr ;s
263	> col:
75	! cell+
45	?branch =
3749	drop branch
72	r> move
976	tuck c@
4751	rot +
12164	;s branch
1679	@local2 i
42008	@local1 col:
1	-rot >r
6	floats col:
8522	>r >r
14	0<> lit
184	cr lp+
342	@local0 field:
4	char+ c@
2867	(+loop) unloop
1121	>r drop
4816	cells var:
18509	?branch lit
174	< or
36	swap >l
142	cr branch
15	move lp+
3745	over +!
3259	0= ?branch-lp+!#
13944	branch >l
6	;s f!
283	branch var:
6	execute >body
225	sp@ cell+
2213	?branch @
4911	@ ?branch
15	field: var:
210	(loop) lit
61	@local0 lp+2
124	var: user:
402	?branch 1+
16	;s nip
1	nip var:
3743	r> swap
5	1- +
203	@local1 lit
191	dup i
91	1- >r
72	rot over
6236	r> r>
8	@local3 field:
1089	?branch @local0
5708	con: lp+!#
360	swap branch
2087	drop lit
8	(loop) col:
3946	;s count
91	>r r@
1021	?branch 1-
5032	2drop ;s
18660	lit +
26662	@ lp+
15499	?branch @local1
50	r@ +
5027	branch dup
951	?branch @local2
6	col: cr
932	@local1 con:
1	execute invert
587	over 0<>
91	1+ within
12	or col:
708	lit -
1006	1- r>
3282	col: @
103852	@ ;s
11380	?branch @local3
5732	and 0=
14406	@ field:
10369	swap >r
2907	! var:
573	;s cr
8	@local2 field:
6	2! @local0
16001	>l @local0
2601	i' i
364	branch over
112	field: over
186	branch lp+2
3716	< ?branch
997	>l @local1
15	2! @local1
225	dup 1+
152	<> swap
199	2dup 2>r
7	branch r>
1425	?dup ;s
431	swap r>
49793	dup ?branch
3233	con: swap
36	>l @local3
41	unloop lp+2
2048	+ (loop)
168	- swap
1482	(loop) con:
55	2! ;s
6	@ min
5764	;s rot
4639	@local1 field:
382	var: count
30	over ;s
22260	;s !
27	laddr# ;s
21	field: 2!
91	;s rdrop
2789	swap user:
1	(?do) i
15910	> ?branch
64	1+ swap
29	execute swap
116	@local# col:
15	! over
7552	lit pick
102	col: 1+
318	2drop rdrop
316	= dup
2333	negate ;s
4685	lit /string
1	2! var:
15	field: lit
8658	?branch lp+
36	var: r>
125	col: faligned
15	1- i'
1120	var: lit
5	>= ?branch
4751	swap does:
13	r@ user:
253	r> does:
4	;s char+
3	defer: drop
116	col: 1-
218	;s does-code!
3934	+ col:
199	2>r col:
31113	field: @
16	var: 2!
5	1+ /string
2533	?branch-lp+!# >l
1	(type) branch
1	?branch swap
568	@ and
369	lit var:
5378	r> lit
86	var: r@
49	r> -rot
1	! fp@
1312	@local# execute
973	@local1 >l
15	@local1 lp+
1106	lit fill
36	2over compare
6332	col: cell+
1024	con: ;s
50	2dup var:
3434	col: ?dup
1	var: up!
51672	;s dup
1253	swap (?do)
548	drop lp+
3716	d0= ?branch
3716	rot lit
69866	>l lp-
4586	(do) 2dup
2	2drop close-file
561	@ !
25900	col: dup
18986	= ?branch
3904	@ <>
191	con: (do)
7	2dup >float
206	- unloop
4	+ c!
7	?branch dnegate
72	cell+ cell+
36	@ @local0
2586	(type) (+loop)
369	um* d+
2195	;s 2drop
12127	c! ;s
38	rdrop lit
13	/ ;s
2766	branch (loop)
5164	@ @local1
2331	pick !
28	;s +
116	1- tuck
721	lit =
542	2drop 2drop
561	swap dup
4040	! lit
142	@local2 lit
30	@ @local2
1	execute drop
360	swap c@
5249	cells over
976	xor swap
14	branch unloop
24	2@ lit
32	lit >
1664	@ @local3
11	= @local1
63	;s -
61	(loop) count
48	rdrop rdrop
8943	lit over
15045	+ aligned
1197	>r var:
251	defer: noop
174	= @local2
554	2@ drop
1229	@local0 col:
5900	con: (hashkey1)
16	>body user:
418	col: swap
2009	col: field:
133	@local1 !
1105	r@ @
5900	(hashkey1) ;s
9320	over <>
255	@ 1+
18125	?branch drop
8	2drop drop
272	con: lit
772	@local3 lit
1664	@local3 i
58	;s 0<>
15	(?do) lit
8	drop lp+!#
1	execute >code-address
1	execute cell+
26	compare 0<>
18	r> drop
2064	rot col:
1	;s rp@
27	! execute
4836	@ 1-
1567	var: !
6286	- dup
218	nip lp+
247	col: ?branch
29	lit ;s
14258	@ +
44	field: lp+
253	r@ col:
449	r> user:
27854	cells +
17275	+! ;s
3919	dup @local1
11555	@local0 >l
360	max swap
7	var: field:
6212	count +
561	;s move
370	0= lit
4751	does: +
404	>r over
933	! user:
6	over field:
169	nip branch
2048	pick +
5	cells -
484	con: <>
72	over 1+
13	2dup 1+
70	cell+ (loop)
52	allocate col:
223	field: col:
70	lp- lit
191	count move
1	invert ;s
26	(type) compare
62	2dup u<
14	;s does-handler!
566	over !
64	var: swap
1	;s -rot
2586	lit does:
568	and ?dup
7947	sp@ user:
86	>r 2@
5	2dup 1-
1	cells /
3745	+! @
2048	>r tuck
253	+ >r
15	(?do) var:
21	branch 2dup
5782	;s swap
1	;s float+
2983	i -
5132	does: swap
9320	2dup i
14	/does-handler col:
332	2@ ;s
369	rot user:
568	2dup 2dup
710	and ;s
6236	?branch defer:
8471	(parse-white) 2dup
3716	2dup d0=
157	! lp+
15	col: does:
7	! defer:
310	?branch user:
3282	(f83find) ;s
100	swap cmove
5522	lit (?do)
1	execute f*
5	con: >=
17	var: +
91	con: 1+
8475	+ r>
5767	unloop ;s
793	! col:
1	lit (bye)
174	;s <
36	r@ cmove
28	rot r@
12	close-file swap
4751	/ col:
8475	r> min
13	+ 2!
15	field: con:
9	;s field:
36850	lp+ ;s
2331	! !
5132	max lit
25	r@ u>=
844	! branch
8471	/string (parse-white)
28	rp@ user:
35	(type) col:
2	unloop con:
225	cell+ rot
100	>r rot
125	noop col:
16730	user: !
5	c! 1+
162	@local0 does:
305	?branch i
1	execute lshift
9136	defer: (type)
2070	@ var:
116	invert and
5363	>r 2dup
1022	(loop) unloop
4587	drop var:
5068	r@ <>
35	min >r
1	float+ dup
4586	over +
848	negate user:
7125	drop ;s
14	unloop 0<>
48157	;s @
24	lit <>
15	cmove @local1
5	field: 2@
1105	cells >r
5	- var:
366	;s drop
11	1+ >r
45	= ;s
14	does-handler! ;s
112	2drop branch
947	nip ;s
1662	cell+ >r
3101	over -
5732	faligned ;s
5923	+ faligned
3282	@ (f83find)
1	2! col:
36	@local1 swap
9730	@local1 ?branch
1	floats ;s
2	* allocate
439	over col:
14	;s /does-handler
423	execute does:
1359	0= col:
4755	c@ ;s
22	nip ?branch
201	?branch execute
1	sfloats ;s
255	1+ dup
2912	dup var:
23	execute var:
7705	- ;s
6166	cell+ dup
13	@ =
59	var: 2@
769	cells col:
485	>r dup
5	+ lit
35	con: min
1106	fill ;s
52	2dup u<>
403	/string over
7949	branch col:
13836	@ execute
8547	1+ r>
15886	@ >
4990	lit user:
18903	lit col:
18325	<> ?branch
174	or and
6	drop over
25	lit >=
2078	@ over
558	code-address! ;s
10450	2dup col:
726	drop lp+2
9791	col: drop
227	faligned nip
24	! rdrop
316	lit 2swap
316	lit u<
561	@ @
2420	?branch read-line
13	cells resize
1081	?branch var:
2588	0= ;s
4	?branch >does-code
6	dup >code-address
1110	r> var:
1105	;s xor
4756	+ c@
70632	col: user:
610	move ;s
14	@local0 ?branch
4010	does: @
1105	@ rot
1110	cell+ !
936	lit u>
8643	?branch nip
133	@local1 @local#
2546	@ tuck
822	drop !
1107	pick @
17	lit u<=
16	pick rdrop
4751	or swap
6486	>r ;s
174	@local1 =
30	execute over
25	<= ?branch
44	cells con:
12	! >r
5473	r> ;s
2583	;s c!
2968	var: @local1
326	lit con:
1105	?branch >r
49	var: +!
14	branch con:
738	@ um*
647	?branch branch
4751	lit /mod
13	resize col:
49	-rot move
6268	>r col:
392	(emit) ;s
29	1+ @local1
4562	var: =
1769	2dup con:
193	over lit
9320	2@ over
976	c@ xor
7947	col: sp@
13	tuck 1+
2738	?branch rdrop
27	>r rp@
984	@local3 @local#
392	defer: (emit)
931	lp+2 branch
26734	@local1 @
2880	field: i
2	execute code-address!
1177	! r>
218	/does-handler +
10744	r@ lit
5480	?branch over
414	2drop lp+2
2546	r> over
2546	dup !
426	?branch lp+2
135	col: noop
1	lshift ;s
561	faligned swap
4962	?branch r>
13	1+ 2*
766	@local1 2@
1	f* ;s
9	faligned <>
1105	! r@
2586	(?do) i'
45	con: var:
68	char+ col:
116	swap invert
2420	con: user:
33	2* cells
6422	?dup ?branch
17331	var: @
27	fp@ >r
3716	over <
29	+! lp+!#
191	(do) dup
265	con: !
225	1+ pick
316	drop 2dup
3620	0> ?branch
13	?branch r@
13	2@ tuck
901	@local2 @local1
50600	col: >l
1	execute floats
1807	branch ;s
2076	over =
556	;s code-address!
43	swap ;s
1	dfloats ;s
6	>body ;s
380	;s >body
12	@ close-file
50	>r con:
826	dup >r
6	r> tuck
253	drop +
84	@local2 @local3
7400	;s >l
10	field: ;s
13	1+ var:
4945	+ swap
1	sp@ dup
6	max var:
3745	@ c!
2048	0< ;s
84	cr col:
13013	lp+ branch
402	1+ user:
3359	branch lit
7834	?branch 2drop
3716	r@ um/mod
6	f! ;s
309	rdrop r>
418	dup r>
6208	aligned >r
5923	and +
2420	+! swap
13	1- user:
14	r> rdrop
27	col: laddr#
726	;s lp+!#
1085	@local1 @local0
15	+ !
125	faligned dup
3	(?do) col:
3942	count defer:
18	var: ;s
12	2dup or
369	drop rot
561	u> lit
2333	?branch negate
8160	nip nip
8638	0= ?branch
3716	>r um/mod
923	2drop lp+!#
11	or ?branch
27	@local1 @local1
3831	con: lp+2
15	- ?branch
225	move drop
8475	- 1+
13	nip 1-
7753	col: >r
36	laddr# col:
392	lit defer:
3843	(loop) @local0
128	field: @local1
37	@local1 @local2
2	?branch 2r>
1	2drop 2dup
1279	?branch dup
2610	?branch 2dup
4024	;s var:
174	@local2 var:
2835	(loop) @local1
2039	@local1 @local3
44	lit @local0
1	cells allocate
20	swap var:
91	con: *
302	@ user:
2731	;s >r
8914	>r user:
36	var: laddr#
1638	(loop) @local2
3904	@local0 i
35	+ 2@
310	lit @local1
164	lit floats
5900	xor cells
225	rot move
225	pick >r
8101	col: r>
2109	(loop) dup
174	<> @local3
9	@local3 @local1
250	1- dup
227	?branch faligned
8475	min user:
24427	defer: col:
86	cmove var:
23	2dup lit
6	col: r@
7	/string col:
3727	0< ?branch
2402	;s (loop)
13855	con: -
109785	user: @
8562	;s r>
3581	swap !
5650	@local0 @local1
2	dup defer:
4586	+ (do)
627	drop col:
540	(?do) con:
561	defer: defer:
13675	@ col:
41	;s 2!
889	@local3 col:
1	execute fasin
6036	@ dup
4763	con: /
5522	;s r@
8004	col: var:
114	cr (loop)
32	pick r@
5350	;s over
232	2@ nip
1581	;s lp+2
824	branch @
2586	min 2dup
17	?branch cells
50	r> +
1105	r@ swap
225	cells sp@
197	?branch 2rdrop
1887	dup cell+
5732	col: count
1775	lit lit
18457	;s lit
407	over min
260	noop ;s
5372	dup c@
8490	r> -
50	open-file 0=
4678	/string branch
22562	col: lit
4051	branch lp+
26662	@local1 cell+
6	>code-address lit
25	cell+ var:
1130	;s tuck
25	var: <=
16	r> rot
1699	cell+ count
5248	@ >r
174	var: <>
66208	lp- @local1
5	2drop r>
6	@ con:
400	u>= ?branch
11199	drop con:
6	2@ col:
7936	fp@ user:
210	lp- var:
5	lp- @local2
1110	over cell+
8854	lit max
5148	swap lit
419	col: over
3578	?branch 0>
21280	?branch col:
5	swap 1+
182	lp- @local3
124	drop user:
270	var: var:
2066	pick col:
369	d+ r>
1029	r> col:
1016	c@ lit
11	@ 0<>
4	lit or
5612	var: dup
7432	um/mod r>
46	drop @local0
30	>l does:
1267	swap -
27	>r sp@
6	2@ rot
195	! swap
7870	r> dup
8475	2dup >r
77	over >r
2546	- does:
2048	dup 0<
11	execute dup
12227	;s 2dup
6	rot field:
21577	>l >l
4	rot dup
364	>body @
375	toupper lit
1662	>r @
570	dup faligned
1650	dup 0=
326	lit branch
2541	lit cells
6332	- lit
74	swap 2dup
5	/string ;s
2048	tuck dabs
7429	lp+!# ;s
4	or branch
9320	i 2@
1082	con: =
309	dup 0>
323	(?do) count
1179	;s cell+
26789	lit and
55	over r>
862	?branch con:
617	2dup r>
255	con: >
180	<> col:
91	rdrop dup
32586	+ ;s
17978	dup @
55	var: over
50	cmove 2dup
27	sp@ r>
3267	(?do) unloop
15	cells move
129	! dup
5015	lit (+loop)
25	over r@
1026	cell+ tuck
17118	con: col:
36	compare 0=
26857	col: cells
2048	col: 0<
26662	cell+ @local1
294	con: @
8	execute !
892	- col:
50	2@ dup
6	@ 2*
2588	col: 0=
9126	;s lp+
17	@ branch
191	c! var:
6488	(type) ;s
375	?branch toupper
407	min /string
12985	;s ?branch
5647	col: 2dup
91	within 0=
309	unloop lit
434	over swap
3429	nip execute
8471	@ /string
289	unloop 2drop
1431	user: col:
2546	col: 2drop
191	+ =
75	tuck !
4314	;s 0=
4751	con: dup
10169	dup col:
19793	execute col:
5	1+ col:
45	@local1 var:
42	;s 0>
2582	>r ?branch
25	(?do) dup
10	lit swap
692	aligned swap
2048	dabs col:
64	swap lp+
822	2dup swap
14	con: defer:
303	does: 2@
5495	@local1 branch
1586	@local3 execute
10	?branch !
91	con: con:
13	2! 2*
13185	+ @
2572	2drop col:
2639	@local1 does:
61	(do) @local0
14817	@local1 i
203	- con:
4	>does-code lit
1	fasin ;s
4795	(hashfind) ;s
32	con: cells
3	cells ;s
378	u< ?branch
3684	user: +!
692	dup aligned
124	@local3 does:
45	(do) @local1
11	= or
116	;s @local#
1	cell+ ;s
4	drop (parse-white)
1	execute sfloats
1105	cells lit
2586	lit min
7	field: dup
3	execute cells
33153	;s col:
112	over does:
48	cr @local1
26	(do) @local2
58	>l col:
801	@local2 col:
945	(loop) var:
1	execute *
2	2dup *
384	does: col:
375	@ u>=
558	lit >code-address
4751	c@ or
6914	swap col:
205	@local0 branch
7	>float ?branch
4	(parse-white) branch
39	execute con:
4998	con: ?branch
91	1+ con:
489	dup con:
10470	over c@
27	>r fp@
8480	2dup +
1	up! sp@
1	* ;s
158	floats over
4078	2drop lit
2	rdrop unloop
375	u> ?branch
6577	>r swap
26711	i col:
8	@local3 >l
1	@local1 lp+2
360	swap @
1679	@ 0<
848	dup negate
7622	count lit
6336	lp+2 ;s
2	?branch >code-address
3470	2drop con:
4734	(+loop) 2dup
4586	1- cells
116	tuck +
321	@ 0=
316	2swap dup
834	branch drop
36	2@ 2over
132	lit (do)
1312	@local# @local#
712	r> ?branch
125561	col: col:
6	r@ defer:
2	2r> defer:
5140	unloop drop
7	dnegate r>
369	um* drop
29797	;s con:
2552	tuck -
3737	>r lit
61	>l con:
4305	nip unloop
939	;s does:
208	swap con:
9088	lit r@
121	unloop lp+
1122	?dup 0=
1026	@ cells
225	>r cells
218	r> /does-handler
409	>r defer:
9818	col: defer:
35160	! ;s
35	?branch lp+!#
726	?branch-lp+!# drop
4078	drop 2drop
3	branch (+loop)
72	move c!
19847	?branch ;s
44	@local0 lit
15	cells cmove
10679	@local3 =
191	- count
848	+! lit
3348	dup lit
762	! drop
36	rdrop drop
1143	dup user:
3716	max col:
93	@local0 1+
73	! @local0
135	noop user:
3104	lp- col:
975	;s @local0
31	! @local1
135	field: !
1105	+ var:
19153	col: con:
16872	;s +!
6	min dup
5255	;s @local1
191	move lit
2612	2dup defer:
52	u<> ?branch
1842	var: col:
561	>code-address ;s
4967	@ ?dup
3919	;s dup @local1
4	>does-code lit or
8493	>r >r user:
3282	@ (f83find) ;s
135	var: ! lit
5	r> var: !
997	;s ;s lp+
50	over r> +
18	execute var: ;s
26786	lp- @local1 col:
5528	dup ?branch defer:
36	>r var: r@
561	col: defer: defer:
4	>code-address ;s ;s
7	field: dup var:
4795	+ @ (hashfind)
300	+! ;s 2drop
35	min >r var:
1105	over cell+ count
29	@local3 col: col:
1	>r var: @
17	;s drop col:
174	;s < or
81	@local1 ! lp+
391	drop col: r>
4078	<> ?branch drop
565	;s col: user:
44	(emit) ;s cr
1	! @local1 lp+2
5732	and 0= ?branch
1625	@local1 col: col:
25	var: <= ?branch
44	@local0 lit col:
1	f! ;s col:
1006	and ?branch 1-
29	lp+!# ;s @local1
12	con: / ;s
10	field: ;s branch
1060	con: = ?branch
4	lp+!# ;s @local2
61	@local1 >l >l
8471	/string (parse-white) 2dup
4	lp+!# ;s @local3
10997	;s col: col:
52	dup col: lit
414	?branch 2drop lp+2
3843	(loop) @local0 i
11	con: = @local1
15	?branch 1- i'
36	r@ cmove var:
2606	- dup @
3182	2drop con: lp+2
5900	col: lit +
12	>r ;s drop
5	<= ?branch drop
29618	;s @ ;s
16	;s swap con:
6	execute >body ;s
6636	var: @ col:
5	?branch execute var:
5940	?branch col: cell+
4078	drop 2drop lit
25	;s tuck !
8073	;s defer: col:
1411	lit lit !
3716	;s 2dup d0=
29	execute swap ;s
12	dup 0= ?branch
152	dup con: <>
52	col: 2dup u<>
542	2drop ;s var:
5	>r var: col:
4751	over c@ or
1105	r> var: @
5	0= ?branch execute
196	swap ! col:
4734	lit (+loop) 2dup
2048	>r tuck dabs
3103	lp- col: col:
91	con: 1+ within
29	@local0 1+ @local1
50	var: swap cmove
5372	>r col: count
247	?branch r> does:
50	cmove var: over
29	swap ;s branch
132	con: lit (do)
945	! (loop) var:
44	con: branch ;s
8	(loop) col: dup
25	u>= ?branch col:
4751	+ ;s swap
7	2dup >float ?branch
5	con: >= ?branch
30	nip execute over
996	dup @ dup
407	user: @ over
75	tuck ! cell+
6	2@ drop over
27	fp@ >r col:
1425	@ ?dup ;s
5	field: 2@ col:
1105	>r var: lit
1	var: 2! var:
15	@local1 var: lit
3934	+ col: col:
196	! col: r>
847	swap - col:
3189	?branch 2drop con:
1105	var: lit cells
15	unloop ;s dup
225	pick >r cells
369	rot user: @
436	col: >r dup
3933	;s @ @local1
1	@local1 lp+2 ;s
4	+ c! col:
1664	;s @ @local3
39	nip execute con:
20	<= ?branch con:
3716	over < ?branch
287	@ col: lit
11	con: = or
1	(?do) unloop lit
249	! ;s does:
294	con: @ col:
61	@local0 lp+2 ;s
2015	field: @ ;s
308	(loop) unloop lit
12	?branch ;s r>
7	2drop rdrop user:
121	unloop lp+ ;s
135	@ col: var:
321	col: var: col:
2586	(+loop) unloop drop
124	drop user: @
5068	?branch over c@
13	+! user: @
24	user: ! rdrop
6	@local0 field: 2!
18	nip ;s -
2048	;s rot col:
1	execute drop ;s
16	pick rdrop dup
1	execute floats ;s
35	;s drop ;s
218	/does-handler + col:
28	! ;s +
218	2@ nip lp+
174	@local1 = @local2
112	2drop branch ;s
1105	>r drop r@
1105	r> ;s tuck
1657	;s @local1 does:
3233	con: swap !
315	branch ;s branch
3716	< ?branch lit
506	lit ! ;s
16	r> r> rot
2420	swap user: !
1769	?branch 2dup con:
561	var: @ !
6208	r> dup count
246	;s ;s defer:
8	;s @local3 @local1
403	/string over swap
2066	lit pick col:
14	var: swap ;s
1935	! var: @local1
8	0< ?branch drop
30	>l does: 2@
375	= ?branch toupper
24	lit <> ?branch
56	swap con: -
108	con: ;s lit
561	dup faligned swap
6	@local3 col: swap
63	cell+ (loop) dup
2	?branch 2r> defer:
2083	;s 2drop ;s
2048	dabs col: col:
253	2@ ;s drop
5538	2dup col: var:
197	nip ;s ?branch
3	@ dup @
5904	var: @ +
1	drop ;s branch
266	;s ;s user:
199	drop 2dup 2>r
14961	con: col: col:
218	@ ;s does-code!
97	@ col: 2dup
3745	- lit over
45	;s - col:
60494	col: col: user:
2583	;s c! ;s
225	drop r> ;s
29	0< ?branch lit
283	! branch var:
62	;s swap 2dup
519	0= ?branch ;s
2048	tuck dabs col:
1	?branch r> drop
4891	col: col: lit
158	lit floats over
22	col: 2dup lit
86	dup >r 2@
46	?branch @local0 col:
12	! col: ?dup
308	?branch nip ;s
2046	(loop) dup lit
373	;s does: col:
5	tuck - dup
4	@local0 @local1 @local2
7241	dup ?branch 2drop
4795	>r 2dup col:
4795	;s r> xor
48	;s cr @local1
1	nip execute cell+
561	lit u> lit
1026	@ cells +
10	<> ?branch lp+
1	open-file col: ?dup
72	>r rot over
15	r> - ?branch
683	rdrop ;s ;s
142	;s cr branch
5	@local0 @local1 lit
253	+ >r ;s
52	2dup u<> ?branch
245	= ?branch col:
52	;s con: !
647	?branch branch drop
18	nip execute var:
6	(type) col: col:
931	@local1 @local0 col:
16	var: @ >
15	+ ! lit
50	>r var: swap
12	r> r> user:
13	1+ var: 2!
50	>r con: open-file
6208	swap >r ;s
4586	@ 1- cells
369	swap user: @
6	cr ;s r>
253	drop + >r
27835	cells + ;s
561	var: @ @
72	! r> user:
1	cells / ;s
2048	?branch ;s rot
566	@ over !
9281	c! ;s ;s
309	>r ?branch col:
1	nip execute f*
4	(parse-white) branch 2dup
5655	;s lit col:
309	2drop rdrop r>
566	lp+ ;s does:
197	?branch 2rdrop branch
10829	>l @local0 >l
7	dup var: !
1662	r> dup cell+
561	@ @ over
112	swap col: >l
72	;s @local1 !
1478	execute col: col:
28	and ;s ;s
8837	;s con: -
848	negate user: +!
1482	(loop) con: col:
2547	2drop col: col:
1	?branch 2drop 2dup
4751	;s con: /
1105	! r> var:
386	?branch drop col:
5900	col: con: (hashkey1)
10	?branch ! ;s
1662	cell+ >r @
15	@ col: cells
1105	@ rot !
45	;s con: var:
5068	r@ <> ?branch
5	?branch ;s lit
1750	dup ?branch lit
5372	lit r@ lit
1	user: ! fp@
174	< or and
194	cell+ dup user:
7	lit /string col:
6208	aligned >r swap
5528	col: 2dup col:
9	lit col: cells
191	(do) dup i
25	@ dup lit
4334	?branch col: col:
5132	swap lit max
152	;s con: =
15	! over c@
225	cell+ rot move
174	var: <> @local3
3716	lit over <
11	1+ >r col:
802	lp+!# ;s lp+2
73	@local0 field: !
1	;s rp@ user:
375	@ u>= ?branch
8475	+ r> -
1255	lit over =
4562	var: = ?branch
12	! >r ;s
52	;s con: @
851	;s (loop) unloop
15	lit lit @local1
1	f* ;s branch
4305	nip unloop ;s
1105	tuck cell+ !
16	>body user: @
64	swap lp+ branch
7	2! ;s col:
25	lit (?do) dup
29	@ ;s ?branch
8	lp- @local3 >l
61	lit @local1 >l
4	>body @ col:
3230	con: ?branch lit
6	field: 2! @local0
1	nip execute drop
5372	dup ?branch col:
2880	dup var: =
2546	;s col: 2drop
15	field: 2! @local1
7	rdrop user: col:
27	swap >r fp@
1	2@ 2* cells
174	;s @local1 =
172	@ swap col:
568	;s ?branch dup
7	>r ?branch lit
8475	r> - 1+
1055	;s 0= ?branch
72	;s @local1 @
6564	;s ;s col:
191	i - count
8471	@ /string (parse-white)
20	@local1 @local1 field:
6	floats col: col:
25	rdrop ;s tuck
4	@local2 @local1 @local3
227	0<> ?branch faligned
225	r@ col: dup
766	lp- @local1 2@
64	@local0 1+ swap
194	aligned dup col:
403	- dup r>
15	field: @ ?dup
46	drop @local0 lp+2
195	?branch con: lp+2
18321	col: >l >l
62	2dup u< ?branch
16872	;s +! ;s
369	r> ;s (loop)
78	;s cr col:
15	dup @local1 field:
1	?branch con: @local1
116	invert and ;s
4795	2dup col: con:
2048	col: dup 0<
70	>l lp- lit
1	?branch user: +!
27	>r col: laddr#
2	2drop rdrop unloop
28	rot r@ col:
370	col: dup 0=
1105	;s tuck cell+
27	>r sp@ r>
50	cmove 2dup var:
2420	?branch read-line col:
3745	@ c! ;s
23	- dup ?branch
568	var: @ and
822	2dup swap col:
8092	+! ;s !
15	1- i' i
253	;s drop +
25	dup var: <=
50	dup >r con:
2420	?dup ?branch read-line
191	var: count move
16	- swap lit
1	lp- col: r@
98	@local0 field: @
3716	>r um/mod r>
309	unloop lit branch
1105	! r@ swap
27	user: ! execute
5	2@ ;s ;s
2	?branch 2drop close-file
2546	dup ! ;s
15	col: does: 2@
2586	lit min 2dup
108	;s @local0 field:
6208	col: r> r>
4998	col: drop con:
2076	over = ?branch
91	dup col: con:
150	r> ;s r@
3716	2dup d0= ?branch
191	count move lit
1679	@local2 i col:
8475	min user: !
3	nip execute cells
403	col: >r defer:
8	! drop lp+!#
28	>r rot r@
11289	user: ! ;s
116	tuck + swap
11230	@ ;s user:
28	rp@ user: !
50	var: r@ +
2	over lit (?do)
24	rdrop lit ;s
568	2dup 2dup r>
25	r@ u>= ?branch
852	;s lp+2 ;s
79	over col: lit
5	;s lit swap
1	(type) branch col:
5071	col: col: con:
16	>r r@ pick
142	;s @local2 lit
3904	@ <> ?branch
6753	;s ! (loop)
1920	lit col: lit
5	+! var: @
125	@ col: faligned
13	var: 2@ tuck
316	c@ lit -
1	?branch con: lit
67	;s @local1 i
12	user: @ close-file
1699	cell+ count lit
7935	?branch fp@ user:
1	fill ;s var:
12	or col: dup
9320	2@ over <>
4	+ @ col:
3716	;s rot lit
739	! ;s lp+2
180	con: <> col:
3743	r> swap >r
186	lp- @local1 >l
558	col: lit >code-address
13	= ?branch r@
1105	fill ;s r>
52	drop ;s dup
1638	(loop) @local2 i
369	?branch col: swap
36	2@ 2over compare
15	?branch ;s var:
1328	>l >l lp-
116	@ lit col:
191	con: - unloop
135	lit con: !
4937	unloop ;s ;s
3831	con: lp+2 ;s
15	! @local1 var:
4850	branch dup ?branch
174	= @local2 var:
114	i col: col:
2885	@ ;s col:
10744	r@ lit and
331	c@ lit =
174	@local2 var: <>
808	lp+!# ;s lp+
4	c@ ;s col:
5	var: @ 0=
50	dup >r var:
3353	;s dup col:
5	+ lit swap
548	drop lp+ ;s
2546	dup @ tuck
60	and ;s col:
135	user: ! noop
4873	;s ;s branch
25	over r@ u>=
912	@local1 >l lp-
1	;s -rot >r
1768	2dup con: col:
19	2* cells +
4586	col: drop var:
1895	;s ;s 2drop
5	rdrop ;s over
5372	r> lit and
1	lit (?do) i
316	= dup >r
8475	r> min user:
1367	lp+2 ;s lp+
7951	> ?branch ;s
17	;s ;s swap
16	r@ pick rdrop
8837	;s lit +
34	col: >r >r
448	user: @ >r
3843	! (loop) @local0
4	;s @local3 field:
5	lit lit lit
2048	col: 0< ?branch
2002	@ ;s lp+
36	var: r@ cmove
1638	! (loop) @local2
3846	@local1 branch lp+
4	c! ;s con:
394	col: col: var:
25	0<> ?branch 2drop
542	?dup ?branch 2drop
561	faligned swap (?do)
375	?branch toupper lit
8373	@ + @
403	over swap r>
191	defer: col: var:
1	branch col: lit
141	var: ! var:
6	lit max var:
125	col: faligned dup
1455	var: @ ?branch
4031	col: lit col:
617	execute col: defer:
2	close-file col: ?dup
5732	col: count lit
3574	+ @ ;s
205	?branch @local0 branch
6	move ;s @local0
210	var: @ @local1
30	field: ! lp+
309	0> 0= ?branch
31	;s lit >
4118	user: @ lit
1	;s ;s float+
3904	;s @ <>
1941	;s @local1 col:
24	lit > ?branch
2552	(?do) unloop drop
5923	and + faligned
11	execute col: 1+
5132	does: swap lit
2766	drop branch (loop)
163	user: ! user:
225	dup cell+ rot
49	r> -rot move
418	col: swap >r
2048	dup 0< ;s
210	lp- var: @
27	sp@ r> swap
15	col: col: 2dup
2576	;s defer: (type)
405	lit = ?branch
12	lit ;s r>
16	;s r> r>
12	0< ;s r>
436	>r dup ?branch
6	drop ;s cr
4751	con: dup @
44	;s branch lp+2
2	unloop drop branch
5535	defer: col: 2dup
6	max var: @
31	col: over swap
5	swap 1+ /string
195	?branch @local# @local#
6	>body ;s branch
42	;s 0> ?branch
29	+ 2@ ;s
191	dup i -
91	col: 1+ con:
1790	@ ;s @local1
2	?branch ;s over
768	dup user: !
7384	lp+ ;s >l
174	@ ;s @local3
30	>l >l does:
561	;s move ;s
2612	2dup defer: (type)
4	min /string rot
2	col: lit user:
848	dup negate user:
403	over - dup
976	xor swap c!
6	drop over field:
11	@ 0<> ?branch
11	nip execute dup
15	;s ?branch 1-
2546	@ tuck -
4151	drop ;s ;s
23	(?do) dup >r
8	nip execute !
1122	@ ?dup 0=
124	user: ! dup
152	con: <> swap
14	nip r> rdrop
11	con: defer: noop
936	! ;s var:
26662	lp- @local1 cell+
403	>r over -
1	con: @local1 col:
3845	user: @ ?dup
2596	?branch @local# @local1
824	branch @ dup
17	+ @ user:
316	>r user: col:
197	;s ?branch 2rdrop
12	swap 2dup or
7	(type) ;s defer:
1	nip execute *
1105	and col: con:
36	?branch rdrop drop
505	rdrop ;s var:
4281	?branch lit r@
5	! ;s (loop)
521	col: >r col:
5	f! ;s ;s
1105	r@ @ rot
1431	user: col: con:
39	con: ;s branch
4751	/mod rot +
592	@ ;s swap
84	@local2 @local3 col:
1	r> drop r>
8566	= ?branch lp+
5	cells - var:
31	col: var: 2@
1122	?dup 0= ?branch
166	?branch @local3 col:
15	@local1 field: var:
403	>r defer: col:
112	;s 2drop branch
568	@ and ?dup
1917	lp+ ;s lp+
35	allocate col: col:
24	con: ;s col:
36	>l @local3 does:
49	swap >r dup
2586	- lit min
2586	(type) (+loop) unloop
142	cr branch lp+2
375	dup user: @
931	lp+2 branch >l
191	- con: -
692	dup aligned swap
4366	and ?branch r>
12	- con: /
44	cells con: ;s
1	execute sfloats ;s
14	branch con: defer:
4886	dup ?branch nip
3	nip execute @
3837	?branch @local1 i
2533	0= ?branch-lp+!# >l
2588	@local1 ?branch @local#
412	nip nip ;s
309	branch ;s dup
75	r> ;s rdrop
7935	?branch ;s defer:
548	@local1 2@ drop
49	lit var: +!
1105	(hashkey1) ;s xor
16	! ;s rdrop
3716	um/mod r> swap
3716	max col: >r
12	lit ;s user:
316	lit = dup
93	branch >l >l
4190	2drop ;s branch
2420	user: +! swap
13	dup ?branch r>
5900	con: (hashkey1) ;s
283	branch var: col:
5	1+ col: col:
937	branch lit (+loop)
29	(type) col: lit
4051	branch lp+ ;s
13	nip 1- user:
44	! lit @local0
1	con: cells col:
13266	dup field: @
770	lit ! user:
4586	1- cells over
44	@local1 ?branch @local0
1	con: open-file col:
384	@ lit =
5	lit swap c!
2880	;s @ dup
2182	@local1 ?branch @local1
195	! swap !
1	@ lit >
49	dup allocate col:
17	cells var: +
556	;s code-address! ;s
672	0= ?branch @local1
58	var: col: col:
1659	@local1 @local3 =
1006	?branch 1- r>
112	field: over does:
112	0= ?branch @local3
404	;s >r over
42	rdrop ;s 0>
9	or ?branch @local1
125	col: var: !
16	>r >r lit
2422	?branch ;s branch
5	;s over r>
6	@ >r var:
45	lp+!# ;s var:
5	1- + c@
36	laddr# col: >l
4173	! ;s lit
708	lit - dup
336	! ;s over
25	;s over r@
14	;s does-handler! ;s
2880	field: i col:
4	/string rot dup
822	drop ! ;s
1145	(type) ;s lp+
13	tuck 1+ 2*
7935	> ?branch fp@
16	;s nip ?branch
692	;s dup aligned
194	;s ;s cell+
1105	@ + var:
50	cell+ tuck !
12	@ close-file swap
360	>body @ max
5464	col: dup col:
3716	um/mod r> ;s
1	execute f* ;s
1	2* cells col:
7911	! ;s ;s
112	lp+2 ;s ?branch
202	?branch lp+2 branch
227	faligned nip ;s
2	execute col: does:
1746	?branch lit and
923	?branch 2drop lp+!#
16	rot col: con:
324	;s user: col:
6162	;s col: dup
4799	cells var: @
1768	con: col: dup
13	cells resize col:
369	! ;s con:
46	;s ! lp+
1	floats ;s branch
112	@local1 field: over
263	user: ! col:
60	@local0 field: col:
1649	@local1 branch i
305	= ?branch i
1662	dup cell+ >r
19	var: @ lit
218	@local1 2@ nip
16	r> rot col:
2	;s over lit
125	defer: noop ;s
556	>code-address ;s col:
1	defer: noop var:
104	@local1 ?branch lp+2
3353	;s ?branch col:
45	?branch = ;s
4	/string ;s ;s
4	> ?branch @local0
568	and ?dup ?branch
4	> ?branch @local1
2588	col: 0= ;s
21	dup col: r>
17	branch ;s user:
44	lp+ ;s branch
1482	;s (loop) con:
14406	@ field: @
6	var: 2@ drop
135	! noop ;s
9	branch col: var:
6175	col: var: @
14	?branch var: 2@
1818	@ dup ?branch
26662	@local1 @ lp+
1	nip execute fasin
52	@ ?branch over
1	r> ?branch user:
1341	;s ;s lit
4	col: con: col:
4586	drop var: dup
772	@local3 lit col:
15	@local1 field: con:
135	! var: var:
358	u> ?branch dup
4	;s char+ c@
36	rdrop drop r>
2	nip execute code-address!
58	@ ;s 0<>
2266	>r ?branch rdrop
29	1+ @local1 col:
79	! col: lit
1	lshift ;s branch
1	con: 0= ?branch
44	@local1 ! lit
4	?branch drop (parse-white)
6	@ min dup
50	var: over r>
945	and col: ?dup
1210	?branch @local3 execute
4586	over + (do)
16	drop col: var:
8475	;s 2dup >r
2533	?branch-lp+!# >l lp-
218	does-code! ;s ;s
174	and ?branch @local2
548	2@ drop lp+
5	?branch 2drop r>
3104	>l lp- col:
187	@ ?branch con:
14	nip ?branch var:
174	or and ?branch
26	;s col: cell+
19	field: col: con:
3745	con: - lit
834	branch drop ;s
225	sp@ cell+ dup
4	= ?branch >does-code
1	drop var: 2@
288	2drop con: ;s
2	dup defer: col:
62	unloop ;s branch
1425	?dup ;s ?branch
6	defer: col: cr
1	?branch @local1 con:
2	drop ;s drop
27	@ >r rp@
4751	con: / col:
2	;s ?branch 2r>
2009	col: field: @
27	;s >r user:
135	con: ! var:
15	dup r> -
309	lit branch ;s
117	drop 2dup col:
4	@ ;s count
1	swap col: user:
13	user: +! user:
20	lp+ ;s var:
270	var: var: !
2420	branch lit user:
61	(do) @local0 i
152	<> and col:
26	?dup ?branch col:
199	2>r col: col:
152	dup col: dup
281	(+loop) unloop 2drop
12	col: dup ?branch
2046	+ (loop) dup
1	nip execute sfloats
360	branch over 0<>
13	2@ tuck 1+
4751	swap col: con:
5	cell+ ! dup
3	con: defer: col:
4751	lit /mod rot
3	(?do) col: dup
1936	0> ?branch col:
16	col: drop >r
135	col: noop user:
9	dup faligned <>
17	?branch drop r>
561	+! ;s move
14	;s branch con:
10	swap ;s 2dup
2048	pick + (loop)
5123	execute col: lit
5	@local0 @local1 con:
250	1- dup 0=
558	lit >code-address ;s
2546	tuck - ;s
37	@ ?branch @local1
7	?branch dnegate r>
68	;s over char+
67	@local1 field: @local1
69	>r ;s @local0
91	* 1- >r
1	2! var: up!
24	rdrop rdrop lit
926	@local1 con: =
128	>r ;s @local1
1683	0> ?branch nip
2546	r> over -
4384	?branch ;s ;s
4	>r ;s @local3
5612	var: dup @
2019	0< ?branch ;s
5	0= ?branch lp+
18	pick col: lit
114	col: defer: noop
22	@ ?branch var:
225	col: dup 1+
16001	>l >l @local0
195	user: ! swap
997	>l >l @local1
17	r> drop col:
4751	dup @ +
36	>l >l @local3
738	user: @ um*
50	@local1 @local0 field:
218	lp- @local1 field:
663	lit cells over
1106	lit fill ;s
3	! defer: drop
191	count col: col:
15	con: cells cmove
50	+ swap cmove
79	! ;s drop
5	lit cells -
9	@ ;s cell+
14	@local0 @local1 field:
14	?branch @local1 ?branch
1	up! sp@ dup
28	code-address! ;s >r
1	lit cells /
1170	d0= ?branch col:
11	= @local1 con:
6	+! ;s f!
369	um* d+ r>
131	nip ;s col:
49	-rot move ;s
15	var: lit col:
1	branch col: con:
7	dnegate r> user:
15	- ?branch dup
3233	col: con: swap
67	;s ;s r>
18	r> col: col:
4678	lit /string branch
73	field: ! @local0
169	?branch nip branch
1605	;s user: !
16	field: ! @local1
7	code-address! ;s lit
6278	lit col: col:
30	over ;s branch
726	;s @local0 >l
9020	?branch @local3 =
1	field: ! @local3
27	! execute col:
22	@ col: dup
6	r@ defer: col:
730	?branch @local0 @local1
6	col: dup >code-address
4366	?branch r> lit
848	+! lit over
6	cell+ dup @
4	/string branch over
13	r@ user: +!
376	@local1 @local3 execute
36	2over compare 0=
225	1+ pick >r
6	r> tuck -
17	u<= ?branch dup
26	;s 2dup defer:
112	over does: @
133	@local1 @local# @local#
253	r> does: 2@
41	+! ;s 2!
25	lit >= col:
880	>l @local1 col:
17	drop col: con:
20	var: +! var:
2546	- ;s r>
60	@ ;s !
17	?branch @ branch
4668	?branch lit /string
383	does: col: var:
14817	@local1 i col:
17	branch 2dup u<
23	lit lit col:
13	2! 2* cells
1	nip execute dfloats
8837	lit + aligned
6	>r defer: (type)
823	?branch @local1 field:
982	col: lit lit
24	2@ lit (?do)
36	cmove var: r>
216	;s col: cells
35	@local1 ?branch lp+!#
6	>code-address lit =
981	;s var: col:
854	@local3 col: >l
9	cell+ dup faligned
4795	xor cells var:
403	user: +! ;s
91	within 0= col:
2420	;s con: user:
5	con: ;s dup
206	- unloop ;s
1	cr ;s ;s
4	lp+2 ;s @local0
27	;s over col:
125	con: lit !
14	unloop 0<> lit
1	@ ?branch drop
119	lp+2 ;s @local1
3934	;s @ col:
17	?branch cells var:
5	over ! lit
4649	<> ?branch lit
45	@ ;s -
6208	r> r> dup
1105	0< ?branch @
772	@local2 col: >l
414	2drop lp+2 ;s
6	@ 2* cells
174	lp- @local3 col:
767	cells col: col:
4795	@ >r 2dup
302	?branch r> user:
2586	lit (?do) i'
726	;s @local1 >l
4777	@local1 ?branch drop
7	var: field: @
1	;s r> tuck
38345	@local1 col: >l
255	var: @ 1+
227	lit over 0<>
10362	;s user: @
54	lp+ ;s con:
7915	col: col: dup
1	noop var: @
2586	(?do) i' i
250	var: @ 1-
1	var: up! sp@
91	con: * 1-
3429	nip nip execute
1200	@local0 col: >l
17	! lit /string
1312	@local# execute col:
3	lit (?do) col:
316	dup >r ?branch
152	(emit) ;s col:
412	nip ;s ;s
13	2* cells resize
174	@ ;s <
1	0> ?branch swap
13	resize col: ?dup
4	@local1 @local3 field:
2048	! ! ;s
2	;s ?branch 2drop
58	;s ;s @local1
6	over field: @
124	var: user: !
587	over 0<> ?branch
6	;s ;s @local2
3	lit branch (+loop)
29678	@ ;s @
14	;s /does-handler col:
6	rot field: @
2554	lit (?do) unloop
184	;s cr lp+
360	over col: cell+
5255	<> ?branch col:
394	@ >r user:
15	lp- @local1 var:
27	>r fp@ >r
75	;s rdrop dup
5	execute does: 2@
187	;s branch drop
339	! ;s user:
15	(?do) lit @local1
726	?branch-lp+!# drop lp+2
135	noop ;s col:
91	con: con: 1+
1	;s drop var:
4	>l col: does:
3	execute cells ;s
2420	con: user: @
561	over ! var:
25	2drop col: lit
6	;s lit max
225	cell+ dup cell+
2331	pick ! !
227	?branch faligned nip
186	branch lp+2 ;s
154	@ user: !
8475	2dup >r >r
28	and ;s dup
13	@ >r >r
28	+ swap r>
4	branch 2dup +
1	>r ;s col:
16	;s ;s >l
360	swap @ swap
1	?branch ;s dup
984	@local3 @local# @local#
15	dup ?branch dup
570	var: @ field:
923	2drop lp+!# ;s
15	?branch @local0 lp+2
360	col: col: defer:
1	! fp@ user:
890	;s col: var:
68518	user: @ ;s
2	unloop con: ;s
1000	?branch var: @
15886	@ > ?branch
72	over 1+ r>
15	var: con: cells
100	?branch lp+ ;s
651	over c@ lit
1	(?do) i col:
540	swap (?do) con:
6	;s r> does:
6	r> lit col:
13	@ = ?branch
18	;s - dup
83	;s @local0 col:
4751	;s ;s !
8	@local3 field: @
561	! branch ;s
1390	! lit col:
784	! user: col:
8	nip ?branch 2dup
4751	- ;s con:
8	drop lp+!# ;s
27	laddr# ;s >r
17	/string branch ;s
18	var: ;s branch
402	r> ?branch 1+
116	! ;s @local#
16	@ lit (?do)
50	con: open-file 0=
1586	@local3 execute col:
23	;s ?branch lp+
14	r> rdrop lit
316	lit lit 2swap
225	dup 1+ pick
10	;s 2dup col:
57	r> ;s ;s
1105	+ dup @
260	lit ! lit
45	con: var: col:
63	(loop) dup >r
86	lp- con: lit
1	> ?branch con:
984	?branch @local3 @local#
14	/does-handler col: col:
148	@ user: @
9	lit @local1 !
14	;s var: swap
360	;s col: r>
2420	! ;s ?branch
309	dup 0> 0=
5	;s col: r@
4751	+ swap does:
29	! ;s @local0
172	;s @ swap
191	- count lit
2	* allocate col:
4	;s ;s char+
141	! ;s @local1
2546	;s r> over
375	toupper lit -
199	2dup 2>r col:
133	?branch @local1 @local#
18	0<> ?branch lp+
29	! ;s @local3
27	col: >r sp@
30	lp+ ;s cr
15	field: lit col:
1	! ;s rp@
1	cells col: swap
423	nip execute does:
6	2@ rot field:
58	>l >l col:
5	+ c@ lit
135	;s lit user:
1006	1- r> lit
713	swap (?do) unloop
12	drop col: ?dup
369	um* drop rot
49	>r dup allocate
13836	@ execute col:
124	;s con: lit
218	;s does-code! ;s
892	?branch @local2 @local1
1	;s ;s @
2601	i' i -
50	r@ + swap
323	lit (?do) count
1	/ ;s var:
44	?branch @local2 @local3
54	;s dup 0=
7	cell+ (loop) unloop
2882	lp+2 ;s col:
40	lp+ ;s ;s
5	execute var: col:
945	?branch @local1 @local0
5	drop lit lit
9143	col: defer: col:
12	?branch @local1 @local1
191	?branch i -
1	-rot >r var:
1	?branch con: cells
26	defer: (type) compare
3716	@ lit max
2035	?branch @local1 @local3
61	(loop) count col:
370	0= lit and
726	+! ;s @local0
205	@local0 branch lp+
5132	lit max lit
5	! dup @
126	! col: col:
904	lp- @local1 con:
1	nip execute >code-address
5	?branch drop defer:
3259	! ;s 0=
2	@ ?branch ;s
68	over char+ col:
103	;s col: over
6208	count + aligned
1	var: 2! col:
1	move ;s drop
7	;s var: field:
561	u> lit and
1	lit col: dup
13	2dup 1+ var:
5068	dup ?branch over
556	;s dup user:
16	;s drop con:
29	@local1 @local2 col:
1	@ con: cells
5	var: @ over
5372	cell+ dup c@
67	?branch var: col:
3942	count defer: (type)
561	col: dup lit
6	;s >r defer:
24	var: 2@ lit
124	?branch drop user:
50	swap cmove var:
1	nip execute lshift
15	field: con: cells
150	;s r@ col:
27	;s @local1 lit
2768	(type) ;s col:
848	user: +! lit
84	cr col: col:
4751	rot + swap
49	;s col: con:
2702	?branch rdrop ;s
32	r@ pick r@
276	branch ;s col:
26	(do) @local2 i
61	>l con: lit
7729	@ col: col:
15	cells move lp+
772	lp+2 ;s lit
1105	cells >r var:
1107	pick @ ?dup
6	var: @ con:
396	con: ;s ?branch
4783	;s swap col:
4751	col: lit /mod
1	2dup con: open-file
108	= ?branch var:
976	;s cell+ tuck
5	@local3 @local1 field:
3942	;s count defer:
4078	?branch drop 2drop
11670	@ ;s lit
647	= ?branch branch
44	! @local0 field:
5138	unloop drop ;s
2962	execute col: >l
1	+ dup user:
448	;s col: >l
2586	defer: (type) (+loop)
7622	count lit and
29	@ + 2@
561	;s dup faligned
1	nip execute floats
191	+ faligned over
255	con: > col:
2420	;s branch lit
58	;s var: @local1
1105	+ var: @
360	u>= ?branch con:
2022	c! ;s (loop)
11	execute col: >r
1679	dup @ 0<
16	;s col: >r
369	drop rot user:
25	>= col: col:
2048	;s lit pick
708	@ ?branch defer:
1127	;s r> ;s
2087	?branch drop lit
9	faligned <> ?branch
225	move drop r>
1746	and ?branch nip
5727	swap c! ;s
12	swap - con:
225	lit @local1 i
729	;s lp+2 branch
369	swap >r swap
11555	@local0 >l lp-
9357	+ ;s !
26	?branch 2drop col:
542	2drop 2drop ;s
72	r> move c!
5071	;s over c@
1	2drop 2dup lit
36	drop r> cell+
3	cr @local1 lit
945	(loop) var: @local1
13851	branch >l lp-
369	d+ r> ;s
35	?branch lp+!# ;s
124	var: @ user:
2836	nip execute col:
2	execute code-address! ;s
12	2dup or col:
78	dup con: !
145	con: col: >l
135	defer: col: noop
2546	- does: swap
4	;s @local2 field:
498	user: @ col:
15	@local1 field: 2!
14	0<> lit and
164	field: @ col:
3434	col: ?dup ?branch
4751	swap does: +
1285	user: @ dup
255	@ 1+ dup
72	move c! ;s
3716	lit r@ um/mod
247	col: ?branch r>
15	lit @local1 field:
191	var: count col:
1	/string ;s var:
3610	= ?branch drop
15	move lp+ ;s
11	col: 1+ >r
20	@ swap var:
285	@ ?branch dup
1	@ ;s r>
561	defer: defer: col:
1	>r over >r
9320	over <> ?branch
1	2@ col: col:
184	cr lp+ ;s
2	2r> defer: col:
17	;s r> drop
13229	;s con: col:
91	lit col: 1+
45	col: 2dup u<
2546	over - does:
8558	?branch lp+ branch
13	1+ 2* cells
16	;s >body user:
116	col: 1- tuck
561	@ ! branch
50	! cell+ tuck
64	1+ swap lp+
5	var: col: >l
91	1+ con: *
26	(type) compare 0<>
29	@local2 col: swap
1105	?branch @ over
14	+! ;s does-handler!
18478	+ ;s @
829	= ?branch lit
50	>r 2@ dup
827	dup ?branch 2dup
3	dup @ ?branch
3039	and ?branch ;s
4	dup con: =
50	2dup var: r@
1105	;s xor cells
281	unloop 2drop con:
255	dup con: >
407	over min /string
4795	(hashfind) ;s ;s
5	>= ?branch ;s
6	col: r@ defer:
15	lp+ ;s lit
7947	sp@ user: @
5738	col: cell+ dup
1	lp- con: col:
360	swap c@ lit
152	- swap !
12	close-file swap 2dup
5	@local1 field: 2@
26809	col: cells +
4096	@ col: >l
32	pick r@ pick
41	;s 2! ;s
142	@local2 lit col:
2048	dup lit pick
293	= ?branch con:
114	noop col: col:
196	?branch execute col:
6	(type) ;s r>
3	cells ;s branch
8	2drop drop con:
16	;s col: drop
41	(loop) unloop lp+2
568	@ col: >r
8	> col: ?branch
32279	col: >l lp-
8	@local3 >l lp-
316	dup ?branch ;s
369	>r swap user:
995	;s ?branch @local0
3577	dup ?branch drop
5612	;s ?branch @local1
125	faligned dup col:
135	col: var: var:
13266	col: dup field:
6	lit floats col:
8475	2dup + r>
1	2! ;s defer:
5	rdrop ;s lit
2835	(loop) @local1 i
9	c@ lit <>
6	dup lit (?do)
1920	;s ! var:
1	0<> ?branch col:
323	(?do) count col:
12	;s col: ?dup
5	execute col: con:
309	?branch col: over
124	! var: user:
477	?branch con: ;s
3716	swap >r um/mod
390	?branch dup user:
6177	?branch drop con:
158	?branch lit floats
30	execute over ;s
45	2@ ;s col:
1105	rot ! r@
20	swap var: !
369	@ um* drop
3603	does: @ +
6	;s r> lit
1312	@local# @local# execute
1	! var: !
15	u>= ?branch drop
324	col: lit (?do)
143	lp+2 ;s cr
3282	execute col: @
88	;s @local3 does:
1091	?branch @ lit
4	lit or branch
23	?branch col: con:
412	?branch over col:
29	2@ ;s defer:
13836	field: @ execute
4782	;s ;s over
15	cells cmove @local1
2048	rot col: 0<
324	>r col: lit
6488	defer: (type) ;s
5	2! ;s branch
29	@local1 col: lit
114	(type) ;s lit
35	defer: (type) col:
29	nip execute swap
403	dup r> ?branch
2	?branch 2dup *
3745	+! @ c!
8	@local2 field: @
14	@ ;s /does-handler
5	?branch 2dup +
12490	lit and ?branch
1	?branch swap col:
135	noop user: @
29	@local0 col: col:
824	;s branch @
28	;s + swap
7	lp+2 ;s ;s
4734	(+loop) 2dup i
4	count + c!
39	drop con: ;s
4795	(hashkey1) ;s r>
1	@ swap !
568	and ;s var:
360	@ max swap
2349	@ lit pick
28	r> col: 1-
1	fp@ user: !
8471	defer: col: defer:
180	<> col: col:
3	defer: drop ;s
16	>r drop col:
2	;s cell+ cell+
169	nip branch dup
7	@ ;s >r
3703	?branch drop branch
10	@ ?branch !
40	@ swap con:
152	<> swap con:
41	unloop lp+2 ;s
976	tuck c@ xor
70	cell+ cell+ (loop)
7	col: ;s ;s
249	;s ;s con:
822	?branch 2dup swap
255	> col: col:
1	does: col: r>
7935	! ;s dup
7	;s cr ;s
2009	@local1 col: field:
5	over cell+ !
18	drop r> col:
13	var: 2! 2*
111	nip ;s dup
5	drop defer: col:
7	;s dup field:
4	branch over >r
60	;s ! drop
509	>r col: col:
2266	;s >r ?branch
1267	@ swap -
5	?branch 2dup 1-
982	lp- @local1 does:
2583	+! ;s c!
349	;s lit var:
277	code-address! ;s ;s
14	lit branch unloop
50	swap cmove 2dup
645	;s var: !
1	r> ;s col:
6	branch ;s (loop)
577	! var: @
1	cells allocate col:
1105	cell+ ! r>
133	>l @local0 col:
35	execute col: var:
34	?branch r> cell+
157	! lp+ ;s
78	nip ;s user:
403	min /string over
17	dup lit u<=
117	2dup col: col:
218	nip lp+ ;s
568	>r 2dup 2dup
7	r> ?branch dnegate
26	and ;s 2dup
13	2@ nip 1-
45	= ;s 0=
3745	over +! @
15	! @local1 col:
2	cell+ cell+ dup
14	rdrop lit branch
13836	field: @ field:
2	code-address! ;s branch
1105	xor cells >r
316	lit 2swap dup
4586	cells over +
324	dup >r col:
7	var: ! defer:
6208	dup count +
1026	dup @ cells
8	branch dup >r
2407	?branch 2drop ;s
976	cell+ tuck c@
316	user: @ 0=
309	rdrop r> ?branch
191	move lit lit
51	var: @ dup
6	+ 2@ rot
1105	col: lit pick
11	field: @ 0<>
191	col: drop col:
15	?branch dup r>
16	?branch col: var:
9174	dup col: col:
7935	fp@ user: @
8	unloop 2drop drop
36	@local1 swap >l
11	execute does: col:
11	field: @ ?branch
4	@local1 @local2 @local3
6208	+ aligned >r
375	user: @ u>=
7	;s branch r>
18304	;s ;s dup
42	2! ;s var:
316	?branch drop 2dup
840	branch ;s ;s
1	execute lshift ;s
72	@local1 @ col:
225	rot move drop
11	?branch defer: noop
114	;s cr (loop)
663	cells over =
218	col: r> /does-handler
37581	col: col: col:
58	var: @local1 col:
117	! (loop) unloop
568	r> col: dup
1	defer: (type) branch
72	rot over 1+
300	drop ;s user:
2077	;s var: @
431	swap r> col:
6	@local1 con: col:
4735	;s lp+ ;s
124	! dup ?branch
220	@ ;s over
1082	;s ;s var:
2721	branch (loop) @local1
110	lp+ ;s ?branch
29	var: +! lp+!#
14	var: 2@ nip
10083	defer: col: col:
3904	@ @local1 i
3716	lit max col:
2	;s var: 2!
316	dup lit u<
2048	col: >r tuck
224	?branch lp+2 ;s
851	?branch dup @
77	! ;s branch
11	noop col: r>
5189	execute col: drop
936	dup lit u>
3442	user: @ ?branch
4751	c@ or swap
152	con: <> and
360	?branch drop ;s
1927	swap col: lit
2588	@local# @local1 col:
2407	branch col: user:
5152	con: - dup
52	u<> ?branch drop
692	aligned swap (?do)
214	;s ?branch lp+2
70	lp- lit @local1
11	>r col: r>
116	;s @local# col:
15288	@ ;s con:
8475	- 1+ r>
8160	?branch nip nip
25	! cell+ var:
158	floats over =
967	execute col: user:
3716	;s ;s 2dup
4	col: cells var:
2082	drop lit col:
1	! lit +
13	swap 2dup 1+
1	;s ;s cr
6	col: cr col:
9	col: col: does:
3	@ ;s branch
5372	faligned ;s r@
976	@ dup 0=
726	drop lp+2 ;s
116	@local# col: col:
2331	lit pick !
309	@ dup 0>
1013	var: ! ;s
634	col: lit over
24	rdrop rdrop rdrop
4282	0= ?branch lit
2	lp- @local1 lit
2331	dup @ lit
402	1+ user: +!
2588	0= ;s ?branch
9672	lp- @local1 ?branch
13	>r col: swap
15	(?do) var: @local1
84	execute col: dup
244	code-address! ;s con:
13	;s var: 2@
197	2rdrop branch ;s
24082	;s ;s ;s
45	branch (loop) unloop
191	col: var: count
820	c! ;s col:
562	unloop ;s col:
2048	lit pick +
1662	col: r> dup
2905	@ dup var:
19	;s ;s drop
44	@local0 @local1 !
14	@local0 ?branch @local1
191	unloop ;s lit
772	;s @local3 lit
3716	col: >r lit
4	@local3 @local1 @local2
16	rdrop ;s col:
191	col: lit con:
2048	pick col: dup
191	c! var: count
939	drop branch lit
91	rdrop dup col:
5	2dup 1- +
1373	lit col: user:
976	c@ xor swap
302	r> ?branch r>
44	>l @local1 field:
11	;s @local1 con:
1	dfloats ;s branch
1268	dup 0= col:
31	over swap col:
1	execute dfloats ;s
8471	(parse-white) 2dup +
1	* ;s branch
380	?branch ;s >body
28	r@ col: 1-
194	col: aligned dup
2420	+! swap user:
3842	<> ?branch @local1
61	lit (do) @local0
6	min dup lit
218	@ ;s var:
4751	+ c@ ;s
2266	>r ;s >r
45	lit (do) @local1
13	>r ;s user:
26	lit (do) @local2
1268	user: @ swap
1107	lit pick @
61	@local0 field: @local1
34	+! ;s ;s
384	count col: user:
8	= ?branch @local#
36	0= ?branch rdrop
1	execute fasin ;s
5068	over c@ r@
726	0= ?branch-lp+!# drop
15	field: var: con:
14	branch unloop 0<>
46	0<> ?branch @local0
121	(loop) unloop lp+
2586	i - lit
892	@local2 @local1 col:
5	0<> ?branch @local1
36	;s r> user:
8598	>r user: @
180	col: con: <>
5	@ con: >=
6	field: @ 2*
4586	(do) 2dup i
5	var: @ >r
1	col: con: 0=
2570	lit user: !
7	= ?branch 2drop
12	;s col: sp@
9	;s field: col:
754	! drop ;s
26662	cell+ @local1 @
291	;s @local3 col:
44	@local0 field: lp+
30	@ @local2 @local3
1065	@ @local1 col:
360	swap branch over
402	?branch 1+ user:
29	@ @local1 @local0
3122	= ?branch @local1
777	= ?branch @local2
8475	@ ;s 2dup
2420	read-line col: ?dup
54	= ?branch @local3
360	c@ lit and
15	field: ! var:
1	tuck - lit
35	?branch con: min
1	var: 2@ col:
17	@ branch 2dup
1	execute invert ;s
21	>r lit col:
188	@local1 lit col:
2615	?branch ;s col:
152	and col: col:
285	;s ?branch var:
360	@ swap branch
1662	>r @ col:
316	lit u< ?branch
45	u< ?branch =
556	! ;s code-address!
5	c! 1+ col:
318	?branch 2drop rdrop
2	?branch dup defer:
17	u< ?branch @
4751	col: con: -
8	execute ! ;s
5372	c@ >r col:
3904	@local0 i col:
3716	lit + col:
1	cells col: lit
44	col: cells con:
14	>l @local0 ?branch
46	?branch drop @local0
360	cell+ dup col:
6	dup >code-address lit
7	(loop) unloop 2drop
16	rdrop ;s nip
9	lp+ ;s field:
1	con: cells allocate
1649	branch i col:
15	i - unloop
204	field: col: >l
5068	c@ r@ <>
594	lit and ;s
5372	dup c@ >r
34	0= ?branch r>
8475	1+ r> min
2420	lit user: +!
2	2dup * allocate
36	field: @ @local0
848	col: dup negate
392	col: lit defer:
15	@local1 field: lit
1021	field: @ @local1
15	> ?branch lp+
13	cells + 2!
30	field: @ @local2
61	;s (loop) count
67	drop ;s col:
4882	+! ;s col:
7	>float ?branch 2drop
196	dup ?branch execute
4586	dup @ 1-
1359	0= col: col:
3	(+loop) i col:
88	?branch con: col:
242	col: con: @
364	;s >body @
1091	@ lit r@
35	rdrop ;s swap
5	@local2 @local1 field:
125	defer: noop col:
15	+! var: @local1
4	?branch >does-code lit
7	2drop user: @
3716	r> ;s rot
124	@ ;s does:
256	var: ! col:
87	lp+ ;s @local0
4	rot dup con:
1105	drop r@ @
4751	c@ ;s ;s
8	@local# @local1 !
849	lp+ ;s @local1
3716	rot lit over
4	@local1 @local2 field:
918	lp+ ;s @local2
1	execute * ;s
3259	?branch lit col:
20	?branch con: -
864	lp+ ;s @local3
72	over >r rot
6225	?branch defer: col:
2	branch lit pick
1105	lit cells lit
36	swap >l >l
9320	i 2@ over
15	lit (?do) lit
4	c! col: col:
5	2drop r> var:
6	2! @local0 field:
29	+! lp+!# ;s
309	0= ?branch user:
708	- dup lit
15	cmove @local1 var:
1779	var: col: con:
2050	lit and col:
7	execute col: ;s
3716	r@ um/mod r>
3282	col: @ (f83find)
60	swap col: 1-
191	con: (do) dup
5	over >r lit
2586	min 2dup defer:
3578	dup ?branch 0>
15	user: ! over
13	user: @ =
1	- lit cells
1	2@ nip var:
15870	user: @ >
6	cells + 2@
161	user: @ user:
319	dup col: user:
4586	+ (do) 2dup
225	>r cells sp@
3715	?branch col: user:
13	1- user: !
2	(loop) unloop drop
847	- col: dup
230	col: dup con:
50	+ dup >r
72	col: over >r
16872	@ ;s +!
116	1- tuck +
1664	@local3 i col:
4	;s count +
16	;s ?branch ;s
5	lp- @local2 @local1
4	! defer: col:
5	lit swap 1+
4	swap ;s col:
5	- var: over
2	or ?branch lp+
1	>code-address ;s branch
26597	i col: cells
1	sp@ dup user:
16	swap lit col:
3801	! ;s col:
568	col: >r 2dup
3942	>r ;s count
3904	dup @local1 i
3385	swap ! ;s
15	lp- @local1 @local1
78	con: ! col:
36	compare 0= ?branch
407	@ col: user:
44	field: lp+ ;s
27	?branch ;s swap
29	! @local0 @local1
822	?branch drop !
4751	/ col: col:
454	drop con: lp+2
1	var: 2@ 2*
8	;s (loop) col:
196	lit col: r>
91	col: con: con:
2	+ (loop) unloop
892	lp+2 ;s 0=
16	lit col: var:
4	drop (parse-white) branch
154	@local1 field: col:
3	;s lit branch
3434	?dup ?branch ;s
726	! ;s lp+!#
58	>l @local0 does:
1105	0= ?branch >r
191	faligned over lit
2870	col: dup @
4998	drop con: ?branch
26	compare 0<> ?branch
75	>r r@ col:
713	(?do) unloop ;s
3066	>l >l >l
11	dup ;s branch
4751	@ + ;s
3	branch (+loop) i
4751	or swap c!
60	dup @ swap
5	var: over cell+
11	execute dup ;s
87	>l lp- con:
299	u< ?branch drop
13481	;s ! ;s
1664	@ @local3 i
1	execute >code-address ;s
320	lit var: !
3588	@ ?branch col:
403	rdrop ;s >r
15	var: ! @local1
10679	@local3 = ?branch
17	u< ?branch cells
17	lit u<= ?branch
133	@ var: !
166	@ @local1 lit
17	allocate col: ?dup
225	cells sp@ cell+
2204	?branch @local1 col:
360	faligned ;s swap
27	>r rp@ user:
72	user: ! r>
1026	col: var: dup
2052	;s @ var:
375	lit u> ?branch
13013	lp+ branch >l
283	! ! branch
108	0= ?branch lp+2
13	col: r> user:
135	user: ! var:
1106	col: lit fill
4078	2drop lit (+loop)
2	(?do) dup lit
68	char+ col: col:
2408	col: col: sp@
15	?branch @local2 i
7	@local1 @local1 col:
114	field: @ lit
26662	@local1 cell+ @local1
62	@local1 field: !
2586	col: lit does:
592	;s lit lit
44	?branch con: branch
174	<> @local3 col:
128	field: @local1 field:
250	@ 1- dup
44	>l @local1 ?branch
3	;s lit (?do)
4305	nip nip unloop
2586	lit does: swap
328	0= ?branch nip
152	swap con: <>
36	lp+2 ;s lp+2
13	@ >r col:
29	>l @local1 @local0
63	swap col: col:
44	drop branch ;s
5495	?branch @local1 branch
1999	(type) ;s @local1
27	col: laddr# ;s
7948	;s branch col:
70	r> cell+ cell+
36	var: laddr# col:
88	(type) ;s @local3
44	;s @local0 lit
4877	>l @local0 @local1
1809	@ ;s dup
36	;s var: laddr#
3716	?branch lit +
5542	@local0 @local1 col:
23	2dup lit col:
70632	col: user: @
44	;s drop branch
54	>l col: col:
17	?branch lit -
392	defer: (emit) ;s
1682	@ var: =
7947	col: sp@ user:
726	;s lp+!# ;s
21	?branch dup col:
194	@ col: aligned
93	?branch @local0 1+
255	@ var: @
201	;s branch dup
26662	@ lp+ ;s
15	con: cells move
210	>l lp- var:
1	0= ?branch con:
191	+ = ?branch
10	nip execute field:
3745	lit over +!
191	lit con: (do)
17	var: + @
203	@ ;s ;s
2333	negate ;s ;s
1406	lit col: >l
2	rdrop unloop con:
772	;s lit cells
124	@local3 does: @
1299	@local1 field: @
694	user: ! drop
12	/ ;s lit
4391	;s lp+ branch
36	+! ;s user:
281	lit (+loop) unloop
3027	lit col: >r
1105	r@ swap col:
1105	cells lit col:
568	2dup r> col:
4	branch col: col:
42530	;s dup ?branch
6	var: @ min
8	@local1 ! drop
2	= ?branch >code-address
1703	;s ?branch drop
1105	?branch >r drop
15	@local1 var: !
16	con: - swap
104	@local1 @local0 does:
135	! var: col:
407	does: @ col:
370	dup 0= lit
20	! lit var:
2639	@local1 does: @
12	?branch r> r>
349	(type) ;s cr
767	lit cells col:
15	@local1 lit +
436	r> user: !
191	var: c! var:
561	swap dup col:
1768	con: ?branch 2dup
4	char+ c@ ;s
19	@ ?branch lp+
162	@local0 does: @
407	execute does: @
191	drop col: col:
540	(?do) con: col:
13	>r >r ;s
3282	(f83find) ;s ;s
566	;s does: @
392	lit defer: (emit)
5	2@ col: >l
72	1+ r> move
3581	user: ! lit
7	dup field: dup
118	;s ;s 0=
4795	@ (hashfind) ;s
116	swap invert and
11	= or ?branch
10	0= ?branch 2drop
1	cell+ ;s branch
115	;s defer: noop
152	;s over -
12	(type) ;s ;s
5708	lp+!# ;s ?branch
369	@ um* d+
397	;s @local1 field:
1	! @local3 @local1
360	max swap @
36	var: r> ;s
12	user: ! >r
3716	>r lit r@
195	dup ?branch @local#
44	lit @local0 field:
5372	;s r@ lit
17	dup ?branch rdrop
191	i - con:
1091	0= ?branch @
58	;s 0<> ?branch
8837	+ aligned ;s
191	;s var: c!
16	drop >r drop
210	(loop) lit @local1
1	execute cell+ ;s
1	(?do) unloop 2drop
25	cell+ var: !
24	! rdrop rdrop
19	0= ?branch var:
408	swap - ;s
5	over r> tuck
5923	lit and +
15	con: lit (?do)
21	= ?branch dup
1	nip execute invert
3578	?branch 0> ?branch
7	?branch 2drop user:
125	noop ;s ;s
4	>r ;s lp+2
2910	var: @local1 field:
23096	lp+ ;s dup
847	lp+ ;s col:
15	@local1 var: @
6	;s lit floats
6413	col: col: r>
50	r> + dup
116	+ swap invert
15	@local1 lp+ ;s
6	;s f! ;s
2	lp+2 ;s var:
11214	dup ?branch @local3
2880	@local1 field: i
7	?branch 2dup >float
543	(loop) unloop ;s
419	<> ?branch rdrop
452	con: ;s ;s
8471	user: @ /string
13	r> user: @
255	1+ dup con:
2333	?branch negate ;s
1	nip var: 2!
566	0< ?branch var:
2546	col: 2drop col:
603	move ;s col:
1	?branch ;s -rot
45	- col: col:
542	?branch 2drop 2drop
218	r> /does-handler +
309	?branch user: @
36	@local0 @local1 swap
4751	does: + c@
6	nip execute >body
2	0= ?branch 2dup
380	! col: var:
976	rdrop ;s cell+
44	branch ;s lit
201	;s cell+ dup
4657	/string branch dup
321	@ 0= ?branch
114	?branch i col:
45	(do) @local1 i
1	float+ dup user:
1	fasin ;s branch
7	rdrop ;s dup
25	dup lit >=
239	;s col: ?branch
4	or branch ;s
1679	@ 0< ?branch
3	execute @ ;s
415	r> col: >r
7400	;s >l lp-
4751	col: con: dup
16	;s rdrop ;s
28	;s >r rot
13	+ 2! ;s
15	lit + !
303	does: 2@ ;s
49	swap 2dup r>
2036	0< ;s col:
1	>r ;s con:
54	(emit) ;s @local0
142	(emit) ;s @local1
2546	d0= ?branch ;s
1	sfloats ;s branch
2546	drop ;s defer:
316	2swap dup >r
50	2@ dup >r
6	?branch nip ?branch
4795	r> xor cells
1	var: 2! ;s
300	2drop ;s ;s
91	1- >r r@
594	col: cell+ count
12	>r col: dup
2333	and ?branch negate
14	nip nip r>
135	! lit con:
50	open-file 0= ?branch
91	1+ within 0=
136	! user: !
408	- ;s col:
15	2! @local1 lp+
4751	con: - ;s
4795	+ @ >r
49	2dup r> -rot
52	con: ! ;s
5732	lit and 0=
90	>l @local0 field:
15	lit (?do) var:
5	lit ;s over
4586	lit col: drop
45	cr @local1 field:
210	! (loop) lit
169	branch dup @
2433	! lit user:
1	?branch lit (bye)
4	;s @local2 @local1
29	lp+!# ;s ;s
360	;s swap c@
2420	@ ?dup ?branch
7533	;s col: lit
13	?branch r@ user:
6	;s @local2 @local3
244	con: col: lit
890	! ;s lp+
191	lit + =
82	;s @local1 @local0
67	<> ?branch var:
10	execute field: ;s
3259	;s 0= ?branch-lp+!#
29	;s @local1 @local2
5732	+ faligned ;s
4795	lit + @
1	;s float+ dup
407	@ over min
5	swap c! 1+
2	2drop close-file col:
15	;s lit <>
14	;s @local0 @local1
5708	con: lp+!# ;s
5	1+ /string ;s
7	branch r> user:
519	;s branch ;s
5	lit lit ;s
191	over lit +
772	;s @local2 col:
10	col: col: >l
36	@ @local0 col:
5708	drop con: lp+!#
360	0<> ?branch over
66208	>l lp- @local1
14	does-handler! ;s branch
1	2! col: var:
5527	branch col: sp@
370	;s col: defer:
61	>l >l con:
8837	aligned ;s con:
5	>l lp- @local2
663	?branch lit cells
20	execute col: cells
6	defer: col: cell+
182	>l lp- @local3
35	con: min >r
5132	max lit (?do)
152	over - swap
1	invert ;s branch
6208	>r swap >r
39	execute con: ;s
46	>r ;s var:
8	lit > col:
135	;s con: ;s
9320	2dup i 2@
17	u> ?branch lit
501	?branch col: r>
360	dup col: count
124	var: @ ;s
7	/string col: over
2546	- dup !
18	field: @ var:
2	?branch >code-address ;s
2588	;s col: 0=
6073	?branch col: dup
5	<> ?branch 2dup
13	! user: @
36	>r 2@ 2over
5	2dup + lit
114	cr (loop) @local1
1106	lit + dup
316	col: over c@
1105	@ over cell+
12	;s r> col:
561	;s swap dup
729	0= ;s ?branch @local1
14	@local0 @local1 field: col:
186	>l lp- @local1 >l
135	var: ! ;s lit
282	execute col: defer: defer:
20	?branch con: - dup
4281	0= ?branch lit r@
12	defer: (type) ;s ;s
154	@local1 field: col: >l
437	;s col: lit lit
44	con: = ?branch col:
1	col: lit (?do) unloop
7	col: ;s ;s branch
561	(?do) unloop ;s col:
152	@ ;s ;s var:
5	?branch ;s ;s 0=
2002	field: @ ;s lp+
169	branch dup @ dup
333	;s ;s col: r>
15	var: @ @local1 lit
1768	con: ?branch 2dup con:
16	rdrop ;s nip ?branch
730	?branch @local0 @local1 col:
782	>l >l >l @local0
1	r> ;s col: user:
1105	var: @ + var:
2586	lit min 2dup defer:
8475	1+ r> min user:
29	;s @ @local1 @local0
2546	;s col: 2drop col:
194	aligned dup col: user:
4751	- ;s con: /
1664	@local3 i col: cells
505	rdrop ;s var: !
76	unloop lp+ ;s lp+
15	;s ;s dup @local1
13	cells + 2! ;s
201	;s branch dup ?branch
227	?branch faligned nip ;s
6	lp+2 ;s ;s branch
191	?branch i - con:
124	;s user: ! col:
594	count lit and ;s
2422	?dup ?branch ;s branch
29	@local1 col: lit col:
5	?branch lp+2 ;s @local1
4998	col: drop con: ?branch
5726	var: @ col: col:
112	swap col: >l >l
1	swap col: col: col:
3	(+loop) i col: cells
27	?dup ?branch ;s swap
6208	dup count + aligned
60	@ swap col: 1-
3899	branch lp+ ;s dup
72	user: ! r> user:
3716	over < ?branch lit
291	lit ! ;s lit
1662	col: r> dup cell+
61	lit (do) @local0 i
3716	r@ um/mod r> swap
4	@local2 @local1 @local3 field:
11	= @local1 con: =
205	@local0 branch lp+ ;s
59	?branch ;s col: user:
255	@ var: @ 1+
4751	+ swap does: +
36	+! ;s user: @
892	lp+2 ;s 0= ?branch
68	move c! ;s col:
11	?branch @local1 col: >l
30	lp+ ;s cr col:
191	col: var: count col:
9	;s @ ;s cell+
561	@ over ! var:
203	col: col: col: defer:
8475	2dup >r >r user:
360	u>= ?branch con: ;s
1679	@local2 i col: cells
3716	max col: >r lit
46	?branch drop @local0 lp+2
3574	does: @ + @
4	@local1 @local2 @local3 col:
1	?dup ?branch ;s -rot
316	r> user: ! ;s
1482	;s (loop) con: col:
335	var: ! ;s ;s
1	var: 2! col: var:
12	- con: / ;s
1105	and col: con: (hashkey1)
369	swap user: @ um*
46	?branch @local0 col: >l
2	or ?branch lp+ ;s
1768	drop con: ?branch 2dup
49	;s col: con: @
403	min /string over swap
1	2@ 2* cells col:
244	con: col: lit lit
23	drop con: ;s ?branch
1	?branch 0> ?branch swap
3	+! ;s ;s branch
152	;s con: = ?branch
308	(loop) unloop lit branch
29	lp+ ;s @local0 field:
2331	@ lit pick !
179	col: col: col: con:
2517	?branch ;s col: 2drop
255	;s var: ! col:
568	@ col: >r 2dup
15	field: ! var: @local1
4795	>r 2dup col: con:
20	lit var: +! var:
108	;s 0= ?branch lp+2
29	does: @ + 2@
198	@ col: col: user:
2420	?dup ?branch read-line col:
29	execute swap ;s branch
945	(loop) var: @local1 field:
4586	cells over + (do)
320	?branch var: @ col:
4366	lit and ?branch r>
1	cell+ ;s branch col:
15	- ?branch dup user:
1683	0> ?branch nip nip
3837	<> ?branch @local1 i
17	;s col: r> /does-handler
16	col: >r >r lit
14817	@local1 i col: cells
6	field: 2! @local0 field:
135	defer: col: col: con:
25	?branch rdrop ;s tuck
2420	;s con: user: @
132	;s ;s defer: col:
1105	rot ! r@ swap
12	col: dup ?branch r>
3716	r> ;s rot lit
28977	@local1 col: >l lp-
12	;s dup 0= ?branch
561	@ ! branch ;s
2812	! ;s col: col:
1649	= ?branch @local1 branch
1105	@ + var: @
542	2drop 2drop ;s var:
44	;s @local0 lit col:
29	;s @local0 field: !
11	>r ;s @local1 con:
25	! cell+ var: !
40	execute col: col: lit
1	2@ lit (?do) unloop
3716	lit max col: >r
1105	>r var: lit cells
197	?branch 2rdrop branch ;s
10	swap ;s 2dup col:
116	tuck + swap invert
2588	col: 0= ;s ?branch
2	dup defer: col: cell+
1431	user: col: con: swap
1	(type) ;s defer: (type)
36	field: @ @local0 col:
2019	0< ?branch ;s col:
45	?branch = ;s 0=
13836	@ field: @ execute
5372	;s dup ?branch col:
2880	field: i col: cells
58946	col: user: @ ;s
6	dup lit (?do) unloop
64	1+ swap lp+ branch
11	branch ;s ;s r>
91	con: con: 1+ within
52	drop ;s dup col:
5068	?branch over c@ r@
2420	read-line col: ?dup ?branch
1	>r ;s con: col:
4078	<> ?branch drop 2drop
11670	;s @ ;s lit
50	dup >r con: open-file
1	;s ;s cr ;s
1658	var: = ?branch @local1
15	var: = ?branch @local2
2002	@ ;s lp+ branch
244	code-address! ;s con: col:
15	field: @ ?dup 0=
1425	col: user: @ ?dup
191	var: count col: col:
16	>r lit col: 1+
2583	;s +! ;s c!
44	cr lp+ ;s branch
7	lit = ?branch 2drop
4	@ ;s ;s char+
12	r> user: ! col:
3104	col: >l lp- col:
61	r> ;s (loop) count
4281	and 0= ?branch lit
7384	lp+ ;s >l lp-
121	(loop) unloop lp+ ;s
6	col: dup >code-address lit
124	var: @ ;s does:
1662	r> dup cell+ >r
419	<> ?branch rdrop ;s
150	drop r> ;s r@
5	;s lit swap 1+
45	cr @local1 field: col:
46	;s ! lp+ ;s
542	?branch 2drop 2drop ;s
244	;s con: col: lit
4	@local3 field: @ col:
1	nip execute sfloats ;s
26	;s 2dup defer: (type)
13	r> user: @ >r
2	con: ;s ?branch 2drop
50	cmove var: over r>
6	(type) ;s defer: col:
195	user: ! swap !
135	var: var: ! ;s
822	dup ?branch drop !
403	/string over swap r>
81	col: col: defer: col:
776	@local3 col: >l lp-
5	drop lit lit lit
5	drop col: r> /does-handler
2546	- dup ! ;s
6	rot field: @ ;s
195	! swap ! col:
44	lp+ ;s @local0 lit
6	col: col: var: 2@
22	;s ;s r> ;s
2546	tuck - ;s r>
3	execute col: col: does:
25	0<> ?branch 2drop col:
78	@ >r user: @
6	min dup lit (?do)
1	lp- col: r@ defer:
890	@ ;s @local1 col:
135	! var: col: con:
16	;s ;s col: >r
88	;s @local3 does: @
35	var: r> ;s ;s
257	var: ! ;s col:
2721	drop branch (loop) @local1
2546	@ tuck - ;s
1	nip nip execute dfloats
320	;s col: var: col:
4	>l >l col: does:
8	;s @local0 field: @
13	+! user: @ user:
29	@ + 2@ ;s
454	= ?branch drop con:
61	@local1 >l >l @local1
56	user: ! ;s var:
316	= dup >r ?branch
45	field: col: >l lp-
78	@local3 col: >l >l
5	<= ?branch drop lit
2048	! ! ;s lit
360	@ u>= ?branch con:
309	@ dup 0> 0=
1	! @local1 lp+2 ;s
1	execute drop ;s branch
196	;s lit col: r>
29	lp+2 ;s cr lp+
2048	>r tuck dabs col:
60	@ ;s @ swap
9	lit col: cells con:
5	nip execute col: con:
1	+ >r ;s col:
3716	;s 2dup d0= ?branch
3716	?branch lit + col:
1586	execute col: >l lp-
36	var: r@ cmove var:
42	;s dup 0= col:
4755	;s ;s over c@
29	+ 2@ ;s defer:
2586	max lit (?do) i'
542	?dup ?branch 2drop 2drop
17	;s r> drop col:
54	lp+ ;s con: col:
1657	;s @local1 does: @
67	@local1 field: @local1 field:
8	lp- @local3 >l lp-
58	col: >l >l col:
1	field: ! @local1 lp+2
1	con: open-file col: ?dup
1	execute f* ;s branch
4	col: col: con: col:
8471	(parse-white) 2dup + r>
10669	user: @ ;s user:
52	;s ;s con: !
15	@local1 var: lit col:
114	@local1 field: @ lit
1920	;s ! var: @local1
5	var: @ 0= ?branch
647	= ?branch branch drop
108	?branch con: ;s lit
498	col: lit col: lit
6	var: 2@ drop over
17	@ branch 2dup u<
16	?branch ;s >body user:
13	nip 1- user: !
15	;s lit <> ?branch
4586	drop var: dup @
17	cells var: + @
7	>r ?branch lit /string
692	@ ;s dup aligned
16	?branch rdrop ;s nip
6	unloop drop ;s cr
26662	lp- @local1 cell+ @local1
15	lit (?do) var: @local1
6	r@ defer: col: cr
1	lit col: dup negate
13	col: var: 2@ tuck
1	= ?branch con: @local1
5	0= ?branch execute var:
538	lp+ ;s @local1 col:
407	@ col: user: @
191	+ faligned over lit
6	@ ;s lit floats
10	;s 2dup col: var:
1664	;s @ @local3 i
87	field: @local1 field: col:
15928	lp+ ;s dup ?branch
1	;s -rot >r var:
4	>code-address ;s ;s branch
152	rdrop ;s ;s con:
5	rdrop ;s lit swap
556	! ;s code-address! ;s
12930	;s con: col: col:
29	;s ;s @local1 does:
1170	2dup d0= ?branch col:
28	invert and ;s dup
114	?branch i col: col:
5	>l lp- @local2 @local1
2	lp- @local1 lit col:
375	dup lit u> ?branch
180	col: con: <> col:
436	col: >r dup ?branch
40	dup @ swap con:
32	r@ pick r@ pick
14	;s branch con: defer:
762	= ?branch @local2 @local1
58	var: @local1 col: >l
45	branch (loop) unloop lp+
454	drop con: lp+2 ;s
74	branch dup ?branch execute
8	nip nip execute !
13266	col: dup field: @
2880	@local1 field: i col:
1	r> ?branch user: +!
364	?branch ;s >body @
28	invert and ;s ;s
5372	?branch col: cell+ dup
997	;s ;s ;s lp+
30	field: @ @local2 @local3
15	>l lp- @local1 @local1
5	@ dup ?branch 2drop
2586	unloop drop ;s ;s
13	r@ user: +! user:
72	;s @local1 ! lp+
1	float+ dup user: !
1	;s var: 2! col:
5	?branch rdrop ;s over
35	user: @ ?branch con:
2	nip execute col: does:
17	;s ;s r> drop
1	dup ?branch 2drop col:
8493	>r >r user: @
1616	lp- col: col: user:
23	;s ;s col: user:
108	= ?branch var: @
15	(?do) lit @local1 i
2	! col: col: user:
16	;s ;s drop con:
8	= ?branch lp+ ;s
4	! ;s (loop) col:
5	var: @ con: >=
1106	col: lit fill ;s
682	drop ;s ;s branch
1	nip nip execute *
5	?branch ;s lit cells
135	! lit col: user:
5732	and + faligned ;s
7	field: @ ;s col:
1105	tuck cell+ ! r>
255	dup con: > col:
12	?branch r> r> user:
56	! ;s branch ;s
5	lit <> ?branch @local1
4	unloop ;s ;s branch
1122	@ ?dup 0= ?branch
197	con: @ col: col:
13	2! ;s var: 2@
44	defer: (emit) ;s cr
16	;s >body user: @
15	;s ?branch 1- i'
1105	con: (hashkey1) ;s xor
152	;s ;s con: =
11	dup ;s branch col:
8	lit = ?branch lit
4078	over <> ?branch drop
44	con: ! ;s ;s
30	@ @local2 @local3 col:
1662	>r @ col: col:
369	d+ r> ;s (loop)
12	lp+2 ;s ?branch lp+2
27	;s ;s col: con:
27	;s ;s over col:
302	?branch r> user: !
36	2@ 2over compare 0=
327	nip execute col: lit
672	;s 0= ?branch @local1
2632	con: lp+2 ;s col:
1	>code-address ;s branch col:
1	var: @ lit >
15	?dup 0= ?branch var:
195	@local3 = ?branch con:
10	swap ! ;s lp+2
2	2drop con: ;s ?branch
112	;s 0= ?branch @local3
392	drop lp+ ;s does:
6	;s @local2 @local3 col:
158	lit floats over =
4586	+ (do) 2dup i
35	nip execute col: var:
540	swap (?do) con: col:
3745	lit over +! @
360	c@ lit and 0=
822	@ dup ?branch 2dup
6	col: cell+ dup @
166	?branch @local3 col: >l
1	;s ;s swap col:
536	col: defer: col: defer:
4751	+ c@ ;s ;s
135	lit con: ! var:
697	?branch defer: col: col:
4795	@ (hashfind) ;s ;s
7935	> ?branch fp@ user:
407	@ over min /string
253	does: 2@ ;s drop
316	dup ?branch ;s ;s
259	;s lit lit !
253	code-address! ;s ;s col:
50	>r con: open-file 0=
15	con: ;s col: over
3	nip execute @ ;s
1	user: @ >r var:
403	col: >r defer: col:
27	user: @ >r rp@
369	?branch con: ;s ?branch
18	r> col: col: col:
3	nip nip execute @
1	/ ;s var: 2!
8471	@ /string (parse-white) 2dup
316	! ;s over c@
225	cell+ rot move drop
945	;s ! (loop) var:
316	swap ! ;s over
15	;s >l lp- var:
1	?branch con: @local1 col:
30	?branch lp+!# ;s lp+2
2552	lit (?do) unloop drop
12	swap 2dup or col:
20	execute col: cells con:
1328	>l >l >l lp-
3	lit (?do) col: dup
3429	?branch nip nip execute
36	laddr# col: >l >l
1	drop ;s user: @
2022	;s c! ;s (loop)
28	+ swap r> col:
5372	r@ lit and 0=
114	;s lit col: >l
822	@ dup ?branch drop
2	?dup 0= ?branch 2dup
218	user: @ ;s does-code!
49	r> -rot move ;s
20	dup @ swap var:
726	?branch-lp+!# drop lp+2 ;s
1201	! ;s lit col:
22	@ ?branch var: @
195	;s dup ?branch @local#
135	var: ! lit con:
75	drop r> ;s rdrop
88	= ?branch con: col:
19	@ ?branch lp+ ;s
17	dup ?branch rdrop ;s
29	2drop lp+!# ;s @local1
5	?branch lp+ ;s dup
5	does: 2@ ;s ;s
5	field: 2@ col: >l
20	<= ?branch con: -
4	@ ;s count +
1	nip execute lshift ;s
119	;s lit col: >r
195	?branch @local# @local# execute
9	lp- lit @local1 !
169	?branch nip branch dup
2	(loop) unloop drop branch
15	field: con: cells move
195	dup ?branch @local# @local#
360	?branch over col: cell+
2048	lit pick col: dup
3383	col: user: @ ?branch
2	branch @ dup @
1105	r> ;s tuck cell+
28	?branch col: col: r>
187	swap ! ;s con:
808	lp+!# ;s lp+ ;s
50	swap cmove var: over
890	! ;s lp+ ;s
5132	swap lit max lit
9572	defer: col: col: user:
2	?branch lp+2 ;s var:
29	?branch @local0 1+ @local1
2533	?branch-lp+!# >l lp- @local1
12	! ;s branch col:
4	@local3 @local1 field: col:
34	;s +! ;s ;s
1	@local1 lp+2 ;s ;s
12	;s ?branch ;s r>
88	lp+ ;s @local3 does:
412	nip nip ;s ;s
124	;s var: @ user:
15	@ u>= ?branch drop
5	dup ?branch 2dup 1-
904	@local1 con: = ?branch
19187	@ lp+ ;s dup
2009	@local1 col: field: @
55	;s con: col: >l
169	nip branch dup @
822	?branch col: dup @
2	?branch 2drop rdrop unloop
11214	;s dup ?branch @local3
78	col: dup con: !
28	;s >r rot r@
309	;s ;s col: var:
135	user: ! noop ;s
6	+! ;s f! ;s
4078	2drop lit (+loop) 2dup
505	?branch rdrop ;s var:
14	@ ;s /does-handler col:
369	swap >r swap user:
15	cells move lp+ ;s
17	- dup lit u<=
4998	execute col: drop con:
8475	min user: ! ;s
6	;s lp+2 ;s ;s
5	con: col: col: dup
574	;s user: ! lit
8092	+! ;s ! ;s
27	user: ! execute col:
3904	@local0 i col: cells
6	drop branch ;s (loop)
9	@ ;s cell+ dup
4	dup con: = ?branch
1105	drop r@ @ rot
299	lit u< ?branch drop
1	lp+2 ;s ;s ;s
1	nip execute f* ;s
61	;s @local0 field: @local1
1	field: ! @local3 @local1
770	lit lit ! user:
360	cell+ dup col: count
8	execute ! ;s branch
13266	dup field: @ field:
6208	col: r> r> dup
316	c@ lit = dup
375	toupper lit - dup
561	col: defer: defer: col:
112	swap ! ;s @local1
1356	dup ?branch drop lit
14	branch unloop 0<> lit
16	;s r> r> rot
4	lit /string branch over
69	+ >r ;s @local0
7	;s branch r> user:
1	execute col: var: col:
24	r> user: ! rdrop
128	+ >r ;s @local1
135	noop user: @ user:
6	execute col: col: con:
4	+ >r ;s @local3
191	count col: col: col:
116	;s ! ;s @local#
2331	lit pick ! !
5688	col: col: dup field:
225	>r cells sp@ cell+
5527	;s branch col: sp@
14	! lp+ ;s @local0
250	col: var: @ 1-
320	lit var: ! ;s
152	col: dup col: dup
58	>l >l @local0 does:
38	! lp+ ;s @local1
1	0<> ?branch col: col:
4	! lp+ ;s @local2
17	! ;s ;s r>
44	>l @local1 ?branch @local0
4	! lp+ ;s @local3
15	@ @local1 lit +
2	?branch 2r> defer: col:
2	var: ! ;s branch
158	;s 0= ?branch ;s
15	cmove @local1 var: lit
1	! @local3 @local1 field:
14	unloop 0<> lit and
25	lit >= col: col:
225	lit @local1 i col:
1659	?branch @local1 @local3 =
4751	col: lit /mod rot
29	field: ! @local0 @local1
802	lp+!# ;s lp+2 ;s
68	@ col: >l lp-
360	@ swap branch over
52	?branch over col: lit
729	;s lp+ ;s col:
44	@local0 @local1 ! lit
1	execute cell+ ;s branch
2	cell+ cell+ dup user:
2	;s over lit (?do)
2588	lp- @local1 ?branch @local#
316	col: over c@ lit
316	c@ lit - dup
3	execute @ ;s branch
91	con: * 1- >r
29	;s ! ;s @local0
35	@ ?branch con: min
1894	?branch col: col: col:
1268	dup 0= col: col:
29	;s ! ;s @local1
4795	lit + @ >r
244	;s code-address! ;s con:
316	lit lit 2swap dup
5	2drop r> var: !
75	r> ;s rdrop dup
5372	dup c@ >r col:
12	! col: ?dup ?branch
26	lit (do) @local2 i
216	;s col: cells +
144	con: col: >l lp-
29	;s ! ;s @local3
1091	0= ?branch @ lit
316	;s user: @ 0=
3259	;s ! ;s 0=
1	defer: (type) branch col:
2	over lit (?do) dup
2586	min 2dup defer: (type)
45	;s - col: col:
4751	/mod rot + swap
16	drop col: var: @
28	r@ col: 1- tuck
1	= ?branch @local1 con:
112	2drop branch ;s branch
4751	con: dup @ +
28	;s ! ;s +
1105	lit col: lit pick
20	@ swap var: !
16	;s ;s col: drop
692	;s dup aligned swap
44	(emit) ;s cr col:
454	@local3 = ?branch drop
407	nip execute does: @
324	dup >r col: lit
225	col: dup 1+ pick
36	2over compare 0= ?branch
3	nip execute cells ;s
13	swap 2dup 1+ var:
3904	@ @local1 i col:
548	lp- @local1 2@ drop
2168	lp- @local1 ?branch @local1
4	con: col: col: defer:
5	>l @local0 @local1 con:
663	lit cells over =
392	col: lit defer: (emit)
5	2@ col: >l >l
253	;s drop + >r
17	u< ?branch @ branch
11	>r col: r> dup
3715	?branch col: user: @
52	?branch drop ;s dup
227	over 0<> ?branch faligned
931	@local1 @local0 col: >l
29	;s 2! ;s var:
12	user: ! >r ;s
67	! ;s @local1 i
67	?branch var: col: con:
124	user: ! dup ?branch
16	lit col: var: @
42	?branch rdrop ;s 0>
246	! ;s ;s defer:
227	0<> ?branch faligned nip
726	;s ?branch @local0 @local1
281	2drop con: ;s ;s
12	2dup or col: dup
3716	um/mod r> ;s rot
1	0= ?branch ;s dup
2	?branch ;s branch ;s
561	?branch var: @ @
125	defer: noop ;s ;s
3904	lp+ ;s dup @local1
8	branch dup >r col:
2046	(loop) dup lit pick
152	over - swap !
1	?branch 2dup con: open-file
135	user: ! var: var:
4717	dup ?branch nip nip
375	= ?branch toupper lit
6	(type) ;s ;s col:
12	0< ;s r> col:
16	pick r@ pick rdrop
1	;s >r over >r
15	;s lit lit @local1
15	+! var: @local1 field:
26	;s ;s ;s var:
15	dup user: ! over
28	! ;s + swap
13	execute col: col: var:
10	execute field: ;s branch
29	lit var: +! lp+!#
19	0= ?branch var: @
2	dup @ ?branch dup
9	?branch col: dup col:
2333	?branch negate ;s ;s
54	= ?branch @local3 col:
162	@local0 does: @ +
64	lp+ ;s ?branch @local0
1	execute * ;s branch
9	faligned <> ?branch col:
300	;s 2drop ;s ;s
726	;s 0= ?branch-lp+!# drop
5	0= ?branch lp+ ;s
1	swap ! ;s user:
726	;s @local1 >l lp-
174	+ @ ;s <
212	?branch lp+2 ;s lp+
6	@local1 col: col: >l
29	nip execute swap ;s
4	/string ;s ;s over
4	(type) ;s cr col:
4	@local2 field: @ col:
9320	i 2@ over <>
5372	>r col: count lit
112	@local1 field: over does:
15	var: ! @local1 var:
360	and 0= ?branch ;s
370	;s col: dup lit
26	2drop lp+2 ;s lp+
3846	?branch @local1 branch lp+
5092	;s con: - dup
11	execute col: >r col:
1	var: ! var: !
29	swap ;s branch col:
358	u> ?branch dup user:
402	dup r> ?branch 1+
13	>r >r ;s user:
6208	count + aligned >r
561	swap dup col: col:
8471	defer: col: defer: col:
1	>l lp- con: col:
1105	?branch @ over cell+
5	lit swap c! 1+
21	col: lit lit col:
309	?branch col: over c@
1482	(loop) con: col: col:
16	swap lit col: 1+
5	lit lit lit ;s
36	r@ cmove var: r>
44	swap ! ;s drop
1	-rot move ;s drop
1	branch col: con: @
1105	@ rot ! r@
1	;s ;s ;s cr
112	0= ?branch @local3 col:
78	;s cr col: col:
124	col: col: lit lit
251	;s col: col: var:
4799	var: @ + @
570	@ execute col: col:
68	char+ col: col: user:
29	;s ;s col: 2drop
90	>l >l @local0 field:
16	;s drop con: ;s
7935	> ?branch ;s defer:
188	@local1 lit col: >l
2	execute col: does: 2@
255	con: > col: col:
15	@local1 ?branch @local0 lp+2
912	@local1 >l lp- @local1
4586	1- cells over +
4751	or swap c! ;s
1746	?branch lit and ?branch
1546	;s ;s col: lit
191	col: lit con: (do)
8	;s (loop) col: dup
822	drop ! ;s var:
15870	user: @ > ?branch
11	?branch defer: noop col:
118	;s ;s 0= ?branch
10	@ ?branch ! ;s
1	(?do) unloop lit branch
1	nip execute invert ;s
169	@ dup ?branch nip
4	col: cells var: @
44	>l @local1 field: @
4512	(hashfind) ;s ;s dup
197	;s var: @ ?branch
4	lit > ?branch @local0
125	user: @ col: faligned
11	con: defer: noop ;s
13	user: @ = ?branch
4	lit > ?branch @local1
15	lit + ! lit
485	faligned swap (?do) con:
36	?branch rdrop drop r>
2766	?branch drop branch (loop)
203	lp- @local1 field: @
5474	;s ;s ;s ;s
3843	;s ! (loop) @local0
124	var: ! ;s does:
4795	execute col: lit +
425	con: ;s ;s ;s
112	! ;s ;s 2drop
12	@ swap - con:
250	1- dup 0= col:
227	col: lit over 0<>
375	dup user: @ u>=
45	;s cr @local1 field:
1638	;s ! (loop) @local2
2546	- dup @ tuck
4	lp+!# ;s @local2 field:
62	@ ?branch col: col:
931	?branch @local1 @local0 col:
10	col: var: 2@ lit
4	lp+!# ;s @local3 @local1
60	@ ;s ! drop
16	>r >r lit col:
692	dup aligned swap (?do)
561	;s c! ;s col:
152	;s over - swap
26786	>l lp- @local1 col:
376	@local1 @local3 execute col:
2	execute col: lit user:
26593	i col: cells +
124	@ ;s var: !
2048	;s lit pick +
5	over cell+ ! dup
11	;s col: col: 2dup
561	dup faligned swap (?do)
1	;s defer: noop var:
1	nip var: 2! ;s
4	branch over >r lit
6	col: var: 2@ drop
29	lp+!# ;s ;s branch
18	;s - dup ?branch
772	2drop lp+!# ;s lp+2
1	@ con: cells col:
1	lit > ?branch con:
1834	@ ;s col: col:
191	- count lit and
955	?dup ?branch ;s ;s
360	@ max swap @
16	var: ! var: @
7	! ;s ;s dup
29	defer: (type) col: lit
1210	dup ?branch @local3 execute
1	nip execute drop ;s
1105	;s xor cells >r
2997	(f83find) ;s ;s dup
26	>l >l lp- con:
1	;s @ ;s r>
8607	col: defer: col: col:
31	;s col: over swap
191	lit col: lit con:
6208	r> dup count +
772	;s @local3 lit col:
14	@local0 ?branch @local1 ?branch
30	>l does: 2@ ;s
7	?branch 2drop con: ;s
15	?branch dup user: !
403	- dup r> ?branch
45	lp+!# ;s var: @
86	>l lp- con: lit
60	and ;s col: user:
299	drop ;s user: col:
2420	user: +! swap user:
4	+ c! col: col:
17	! lit /string branch
112	;s 2drop branch ;s
3716	rot lit over <
29	! ;s var: @
4	c! ;s con: col:
1	! ;s rp@ user:
27	lit col: >r sp@
145	! ;s ;s var:
15	@local1 field: lit col:
5	@ >r var: col:
39	execute con: ;s branch
1026	var: dup @ cells
51	col: var: @ dup
8471	>r user: @ /string
141	@local1 field: @ col:
308	0> 0= ?branch nip
124	@ ;s does: col:
9	lit = ?branch con:
7	;s code-address! ;s lit
316	user: ! ;s user:
23	@ ;s ?branch lp+
11	@local1 con: = or
60	swap col: 1- tuck
848	negate user: +! lit
227	lit over 0<> ?branch
191	over lit + =
561	over ! var: @
14	open-file 0= ?branch nip
50	swap cmove 2dup var:
15	var: @ col: cells
27	;s over col: lit
44	! ;s drop branch
1	rp@ user: ! fp@
22	;s user: @ col:
708	lit - dup lit
4	;s char+ c@ ;s
3	;s lit branch (+loop)
6	col: r@ defer: col:
11	@local1 con: = @local1
309	>r ?branch col: over
114	;s cr (loop) @local1
194	@ col: aligned dup
2	con: ;s ?branch 2r>
4	;s count + c!
72	>r rot over 1+
2048	dabs col: col: col:
7	@local1 @local1 col: field:
9	;s field: col: con:
1	lshift ;s branch col:
133	;s @ var: !
4649	r@ <> ?branch lit
46	execute col: lit lit
142	lp+ ;s @local2 lit
191	i - con: -
4590	;s col: col: user:
78	execute col: dup col:
29	@local0 col: col: col:
7	?branch rdrop ;s dup
3	con: ! ;s branch
255	var: @ 1+ dup
302	r> ?branch r> user:
114	cr (loop) @local1 i
27	;s >r user: @
2	rdrop unloop con: ;s
848	user: +! lit over
27	swap >r fp@ >r
126	user: ! col: col:
5	tuck - dup ?branch
2407	dup ?branch 2drop ;s
540	c! ;s (loop) unloop
360	+ faligned ;s swap
5	r> var: ! ;s
729	;s ! ;s lp+2
4	char+ c@ ;s col:
39	nip execute con: ;s
25	@ dup lit >=
17	branch dup ?branch rdrop
67	<> ?branch var: col:
29	;s @local3 col: col:
16	col: lit col: var:
27	col: laddr# ;s >r
1	r> drop r> col:
561	col: dup lit u>
6208	aligned >r swap >r
36	@ @local0 col: >l
6	+ 2@ rot field:
1105	over cell+ count lit
617	;s var: @ col:
14	;s /does-handler col: col:
13	user: @ user: !
6	cr col: col: var:
116	@local# col: col: col:
1	;s ;s ;s @
1	execute dfloats ;s branch
784	! user: col: con:
7935	! ;s dup ?branch
375	?branch dup user: @
21	dup col: r> dup
135	@ col: var: var:
255	> col: col: r>
436	>r dup ?branch over
142	;s cr branch lp+2
1	execute invert ;s branch
2	lit (?do) dup lit
976	col: user: @ dup
14	?branch nip nip r>
61	@local0 field: @local1 field:
729	;s lp+2 branch >l
15	! @local1 var: !
124	?branch drop user: @
278	execute col: lit col:
927	>l >l >l >l
135	var: var: ! lit
29	var: +! lp+!# ;s
283	pick ! ! branch
5	@local1 field: 2@ col:
4799	cells var: @ +
7	;s @ ;s col:
3745	- lit over +!
1105	r@ @ rot !
4751	col: col: con: dup
151	@ @local1 lit col:
191	var: count move lit
4734	lit (+loop) 2dup i
13	;s swap 2dup 1+
1664	;s @ var: =
726	0= ?branch-lp+!# drop lp+2
18	nip execute var: ;s
2266	>r ?branch rdrop ;s
2	drop branch lit pick
1107	lit pick @ ?dup
25	rdrop ;s tuck !
3434	col: ?dup ?branch ;s
5	nip execute does: 2@
9	! lp+ ;s field:
1	var: 2@ nip var:
62	swap col: col: user:
2	code-address! ;s branch col:
255	;s @ var: @
42	rdrop ;s 0> ?branch
3846	;s ?branch @local1 branch
61	(do) @local0 i col:
12	(type) ;s col: sp@
1105	(hashkey1) ;s xor cells
50	con: open-file 0= ?branch
45	- col: col: col:
29	?branch lit col: col:
8	@local0 field: @ col:
79	?branch lp+ ;s @local1
1746	;s dup ?branch lit
13	+ 2! ;s var:
1638	(loop) @local2 i col:
151	field: @ @local1 lit
2533	0= ?branch-lp+!# >l lp-
3	con: defer: col: noop
388	col: col: var: dup
1	lit (?do) unloop 2drop
124	! lit col: lit
13	@ = ?branch r@
568	?branch col: cell+ count
931	;s ?branch @local1 @local0
29	@local3 col: col: col:
1789	0> ?branch col: col:
1	user: @ swap !
26	and ?dup ?branch col:
13	col: col: r> user:
2420	branch lit user: +!
152	defer: (emit) ;s col:
3716	c! ;s ;s 2dup
192	;s cell+ dup user:
1425	@ ?dup ;s ?branch
1487	lp- col: col: r>
9	<> ?branch col: r>
27	?branch ;s swap 2dup
15	lit > ?branch lp+
12920	lp+ branch >l lp-
1	(type) branch col: lit
1	lit + dup user:
2836	nip nip execute col:
52	@ col: 2dup u<>
13	?branch r@ user: +!
58	;s var: col: col:
6	>code-address lit = ?branch
4815	;s +! ;s col:
7935	sp@ user: @ >
561	u> lit and col:
8	(loop) col: dup col:
5242	?branch col: dup field:
3210	;s col: lit col:
16	r> rot col: con:
7947	col: sp@ user: @
45	2drop lp+!# ;s var:
7935	user: ! ;s dup
148	user: @ user: @
2036	lit col: >r tuck
29	field: lp+ ;s ;s
558	col: lit >code-address ;s
1	;s @ ;s >r
52	;s con: @ col:
2583	+! ;s c! ;s
295	(type) ;s @local1 col:
2871	+ @ ;s col:
360	swap @ swap branch
4795	@ >r 2dup col:
20	! lit var: +!
1	nip nip execute lshift
1	;s branch col: con:
9357	cells + ;s !
13	1- user: ! lit
1267	user: @ swap -
23	;s lit > ?branch
45	2dup u< ?branch =
2	lp+2 ;s var: @
191	count move lit lit
1	execute fasin ;s branch
2	* allocate col: ?dup
50	cmove 2dup var: r@
5	lit <> ?branch 2dup
4795	col: lit + @
255	1+ dup con: >
7935	fp@ user: @ >
4751	dup @ + ;s
347	lp+2 ;s lp+ ;s
17	2dup u< ?branch @
135	;s user: ! user:
5	?branch 2dup + lit
50	dup >r 2@ dup
50	var: swap cmove 2dup
7951	@ > ?branch ;s
9	col: col: >l lp-
360	over 0<> ?branch over
5	@local1 con: col: col:
5	con: >= ?branch ;s
4657	lit /string branch dup
22	col: 2dup lit col:
2546	r> over - does:
201	= ?branch col: r>
937	?branch drop branch lit
28	r> col: 1- tuck
225	pick >r cells sp@
1	defer: noop var: @
5372	col: cell+ dup c@
36	var: laddr# col: >l
191	(do) dup i -
9	cell+ dup faligned <>
2	nip execute code-address! ;s
91	col: 1+ con: *
5	;s 2! ;s branch
1	sfloats ;s branch col:
2046	+ (loop) dup lit
91	rdrop dup col: con:
15	= ?branch @local2 i
135	! user: ! noop
63	swap ! ;s branch
935	! ;s ;s branch
1	;s user: @ swap
308	;s (loop) unloop lit
50	! cell+ tuck !
152	swap con: <> and
24	! rdrop rdrop rdrop
112	@ swap col: >l
309	@ 0= ?branch user:
16	;s swap con: -
4281	?branch lit r@ lit
1105	col: lit pick @
1	user: ! fp@ user:
191	lit con: (do) dup
124	! col: var: !
2	?branch ;s over lit
6	;s >r defer: (type)
1783	;s ;s 2drop ;s
91	1+ within 0= col:
3716	user: @ lit max
4	@local1 lp+ ;s >l
1	nip nip execute floats
2	?dup ?branch ;s over
114	;s defer: noop ;s
174	;s @local1 = @local2
131	;s ;s ;s user:
125	@ col: faligned dup
17	u< ?branch cells var:
15	@local1 field: con: cells
2	pick + (loop) unloop
16	>r drop col: var:
726	drop lit col: col:
797	?branch @local1 field: @
21	?branch dup col: r>
215	lit ! ;s ;s
454	?branch drop con: lp+2
285	branch ;s ;s col:
16	?branch col: var: @
5536	swap c! ;s ;s
15	unloop lp+ ;s lit
386	?branch drop col: r>
1	lit cells / ;s
36	0> ?branch col: r>
78	! col: lit over
931	lp+2 branch >l lp-
283	var: @ col: lit
29	lp+!# ;s @local1 does:
923	dup ?branch 2drop lp+!#
316	user: @ 0= ?branch
12	! ;s ?branch ;s
7	@ 0= ?branch 2drop
7	field: dup var: !
1091	@ lit r@ lit
1	sp@ dup user: !
561	;s dup faligned swap
7	code-address! ;s ;s ;s
225	cells sp@ cell+ dup
58	;s ! ;s var:
68	+! ;s col: over
2333	lit and ?branch negate
2546	unloop drop ;s defer:
4	over min /string rot
18478	cells + ;s @
2408	! ;s ?branch col:
403	;s >r over -
9	;s cell+ dup faligned
18	@ lit pick col:
2880	;s @ dup var:
426	! ;s col: dup
174	< or and ?branch
104	lp- @local1 ?branch lp+2
1	invert ;s branch col:
30	var: @local1 field: !
663	= ?branch lit cells
132	noop ;s col: col:
1679	dup @ 0< ?branch
46	@local0 lp+2 ;s lit
1	- ;s col: col:
15	lit (?do) lit @local1
114	col: defer: noop col:
27	sp@ r> swap >r
767	cells col: col: user:
1586	@local3 execute col: >l
9	;s branch col: var:
592	;s @ ;s swap
6	@local0 @local1 col: col:
1376	execute col: >l >l
2	execute col: lit >code-address
3039	lit and ?branch ;s
13	tuck 1+ 2* cells
13	2@ tuck 1+ 2*
9	u>= ?branch col: dup
4734	(+loop) 2dup i 2@
174	@ ;s @local1 =
19	field: col: con: swap
1	* ;s branch col:
12843	con: col: col: user:
772	@local3 lit col: >l
8837	+ aligned ;s con:
2	(?do) dup lit pick
17	dup lit u<= ?branch
7235	;s dup ?branch 2drop
180	con: <> col: col:
15	+! ;s ;s dup
945	! (loop) var: @local1
2	?branch 2drop close-file col:
13	1+ 2* cells resize
283	@ col: lit +
394	user: @ >r user:
187	;s branch drop ;s
7	2drop rdrop user: col:
91	col: con: con: 1+
2266	;s >r ?branch rdrop
2048	rot col: 0< ?branch
638	+ ;s ! ;s
50	>r var: swap cmove
369	col: swap >r swap
152	con: <> swap con:
2	lp+ ;s col: r@
726	;s ! ;s lp+!#
76	! (loop) unloop lp+
656	branch lit (+loop) 2dup
384	user: @ lit =
8	> col: ?branch r>
24	cells con: ;s col:
27	fp@ >r col: laddr#
34	compare 0= ?branch r>
50	@local0 field: col: >l
15	field: lit col: >l
386	over = ?branch drop
191	drop col: col: dup
8	lit > col: ?branch
218	;s does-code! ;s ;s
2546	;s r> over -
2139	col: >l >l >l
4795	con: (hashkey1) ;s r>
1	move ;s drop var:
13	1+ var: 2! 2*
14	;s nip ?branch var:
519	;s branch ;s ;s
225	dup cell+ rot move
29	nip nip execute swap
435	branch ;s ;s ;s
50	var: over r> +
117	2dup col: col: user:
556	lit >code-address ;s col:
2880	dup var: = ?branch
46	;s @local1 @local0 does:
2048	pick col: dup @
320	;s lit var: !
976	user: @ dup 0=
772	@local2 col: >l >l
44	lp+2 ;s col: ?branch
309	user: @ dup 0>
113	(emit) ;s @local1 col:
15	move lp+ ;s @local1
10829	>l @local0 >l lp-
36	>r var: r@ cmove
4	lit = ?branch >does-code
2	0= ?branch 2dup *
16	pick rdrop dup col:
6	>r defer: (type) col:
6	drop over field: @
4305	?branch nip nip unloop
1	/string ;s var: 2!
2036	dup 0< ;s col:
30	>l >l does: 2@
9	;s col: col: defer:
18	(?do) unloop ;s lit
2546	2dup d0= ?branch ;s
1105	cells lit col: lit
4751	;s swap col: con:
5	>r lit col: >r
35	;s ! ;s drop
15	var: lit col: >l
7	2drop user: @ ?branch
13	move ;s col: var:
5	>l @local0 @local1 lit
1065	@ @local1 col: >l
135	lit user: ! var:
540	(?do) con: col: col:
3716	;s rot lit over
5	?branch execute var: col:
7	dup >r ?branch lit
5923	count lit and +
34	?branch r> cell+ cell+
152	lp+ ;s col: lit
1406	lit col: >l >l
25	var: @ dup lit
319	dup col: user: @
323	(?do) count col: user:
150	r> ;s r@ col:
984	dup ?branch @local3 @local#
4795	+ @ (hashfind) ;s
116	+ swap invert and
2586	(+loop) unloop drop ;s
1130	user: ! lit col:
4	;s @local3 field: @
172	;s @ swap col:
78	dup con: ! col:
1	up! sp@ dup user:
15	?dup ?branch ;s var:
2420	;s branch lit user:
726	drop lp+2 ;s lit
2	;s nip ?branch 2dup
15	unloop ;s dup ?branch
15	1- i' i -
375	?branch toupper lit -
12	close-file swap 2dup or
3716	;s ;s 2dup d0=
412	nip ;s ;s dup
1105	?branch >r drop r@
281	lit (+loop) unloop 2drop
72	1+ r> move c!
7	rdrop r> ?branch dnegate
4501	unloop ;s ;s ;s
561	@ ;s dup faligned
1	>r ;s var: @
11	;s @local1 con: =
1	! col: var: 2@
890	;s @local1 col: col:
360	over col: cell+ dup
15	r> - ?branch dup
137	;s ;s lit lit
1	>r over >r lit
52	2dup u<> ?branch drop
2768	defer: (type) ;s col:
4	execute col: con: swap
174	nip lp+ ;s does:
5	;s 0= ?branch lp+
890	;s ! ;s lp+
135	! var: var: !
1105	>r drop r@ @
30	execute over ;s branch
13	@ user: ! user:
2533	;s 0= ?branch-lp+!# >l
29	@local1 @local2 col: swap
2	nip nip execute code-address!
18	! ;s ;s drop
369	rot user: @ um*
1809	;s @ ;s dup
16	branch lp+2 ;s lp+2
5	lp+2 ;s @local1 lit
5366	;s col: dup col:
218	>l lp- @local1 field:
44	user: @ col: col:
8	= ?branch lit /string
3942	count defer: (type) ;s
225	move drop r> ;s
44	?branch @local2 @local3 col:
13	@ user: @ =
3843	! (loop) @local0 i
194	cell+ dup user: !
4661	?branch lit /string branch
10	user: @ ?branch !
12	swap - con: /
370	;s col: dup 0=
14	dup allocate col: ?dup
847	- col: dup negate
7	;s ;s user: col:
7	dup var: ! defer:
2583	lit col: col: user:
2420	lit user: ! ;s
16	u>= ?branch col: var:
7	2dup >float ?branch 2drop
3282	@ execute col: @
64	@local0 1+ swap lp+
69	field: @ col: >l
10	@local0 field: col: con:
1	execute sfloats ;s branch
4751	swap col: con: -
5	@local1 @local1 field: 2@
1	does: col: r> dup
1	?branch ;s dup ?branch
5	cells - var: over
133	@ var: ! ;s
7	cell+ cell+ (loop) unloop
29	+! lp+!# ;s ;s
1	;s ;s @ col:
11	nip execute col: 1+
29	;s ;s @local1 col:
18	drop r> col: col:
300	+! ;s 2drop ;s
976	@ dup 0= col:
64	swap lp+ branch >l
11	con: = @local1 con:
195	?branch con: lp+2 ;s
58	;s ! ;s con:
13	@ >r >r ;s
4751	con: / col: col:
15	(?do) var: @local1 field:
10	var: swap ;s 2dup
9	= or ?branch @local1
1105	swap col: lit fill
6	nip nip execute >body
561	dup lit u> lit
4751	over c@ or swap
253	drop + >r ;s
6	@ min dup lit
41	unloop lp+2 ;s @local1
1	fp@ user: ! col:
247	?branch r> does: 2@
12	con: / ;s lit
1768	2dup con: col: dup
16	1- >r r@ pick
4751	dup col: col: con:
13	2* cells + 2!
91	within 0= col: col:
88	lp+ ;s col: >l
174	= @local2 var: <>
1170	d0= ?branch col: user:
38	?branch ;s ;s branch
36	@local1 swap >l >l
3	cr @local1 lit col:
3716	< ?branch lit +
1	;s rp@ user: !
316	@ >r user: col:
1779	var: col: con: swap
23	c! ;s ;s ;s
542	and ?dup ?branch 2drop
35	allocate col: col: r>
2880	var: @local1 field: i
2	@ ;s ;s branch
370	;s col: defer: col:
1464	?branch @local1 col: field:
1	2dup con: open-file col:
67	;s @local1 i col:
1	open-file col: ?dup ?branch
1	col: var: 2@ 2*
8	var: = ?branch lp+
1	drop ;s ;s drop
1105	lit fill ;s r>
4051	@local1 ?branch drop con:
233	@local0 col: >l lp-
72	r> move c! ;s
199	drop 2dup 2>r col:
8475	2dup + r> -
34	;s ;s ;s lit
2420	?branch read-line col: ?dup
12	r> col: >r tuck
5	var: col: >l >l
1	?branch user: +! ;s
822	@ ?branch col: dup
3716	lit r@ um/mod r>
1	col: lit col: dup
369	user: @ um* drop
649	swap ! ;s lit
202	;s ?branch lp+2 branch
414	?branch 2drop lp+2 ;s
6	@local3 col: swap >r
5372	lit r@ lit and
323	lit (?do) count col:
5	2drop con: ;s dup
2	execute code-address! ;s branch
14	nip nip r> rdrop
174	or and ?branch @local2
174	@local1 = @local2 var:
191	col: col: dup lit
5242	<> ?branch col: dup
1662	dup cell+ >r @
5	execute var: col: >l
255	var: ! col: var:
5	execute does: 2@ ;s
192	col: col: r> dup
1	cells col: swap >r
36	;s r> user: !
3933	+ ;s @ col:
113	;s ;s ;s 0=
112	;s @local1 field: over
1026	@ cells + ;s
1	! col: lit lit
135	defer: col: noop user:
44	lp+ ;s branch lp+2
4	;s @local0 field: col:
6	;s @local0 field: 2!
45	;s @ ;s -
15	con: cells move lp+
4795	+ @ >r 2dup
174	lp- @local3 col: >l
6	col: cr col: col:
1	noop var: @ lit
3695	lit col: col: col:
6	(type) ;s ;s ;s
108	con: = ?branch var:
3574	@ + @ ;s
6	@ 0<> ?branch lp+
1	?branch con: cells allocate
18	lit col: >r >r
324	;s user: col: con:
8837	lit + aligned ;s
29	@local2 col: swap >r
1105	@ over cell+ count
2420	?branch ;s branch lit
24	user: ! rdrop rdrop
3	var: ! defer: drop
60	invert and ;s col:
3	;s lit (?do) col:
15	@local1 field: ! var:
2	= ?branch >code-address ;s
14	;s ;s dup col:
2	defer: drop ;s drop
834	branch drop ;s ;s
29	2@ ;s col: col:
6	2* cells + 2@
369	?branch col: swap >r
1006	1- r> lit and
18	nip ;s - dup
30	field: ! lp+ ;s
4	+ >r ;s lp+2
26786	lp- @local1 col: >l
12	@ close-file swap 2dup
403	>r defer: col: col:
112	;s ;s 2drop branch
29	;s defer: (type) col:
15	! @local1 col: >l
2048	col: dup @ lit
4777	lp- @local1 ?branch drop
15	?branch 1- i' i
52	dup col: lit over
25	;s over r@ u>=
568	2dup 2dup r> col:
1	2! ;s defer: noop
14	;s @ ;s /does-handler
1649	branch i col: cells
976	?branch rdrop ;s cell+
44	nip lp+ ;s col:
2	branch ;s (loop) unloop
509	col: >r col: col:
1105	count lit and col:
10	nip execute field: ;s
1783	;s ;s ;s 2drop
892	con: lp+2 ;s 0=
1105	+ var: @ ?branch
1	branch dup ?branch 2drop
764	;s lp+2 ;s lp+
52	drop ;s ;s con:
3182	2drop con: lp+2 ;s
7	0= ?branch 2drop con:
708	user: @ ?branch defer:
5528	2dup col: var: @
24	var: 2@ lit (?do)
41	! (loop) unloop lp+2
187	;s ;s branch drop
1	floats ;s branch col:
7935	;s defer: col: defer:
84	nip execute col: dup
439	execute col: col: user:
5	;s lp+ ;s dup
15	var: +! var: @local1
15	?branch dup r> -
11	nip execute does: col:
108	@ ?branch con: ;s
24	rdrop rdrop lit ;s
1760	@ col: col: col:
4717	;s dup ?branch nip
758	?branch ;s ;s col:
52	var: @ ?branch over
20	;s lp+2 ;s lp+2
10	<> ?branch lp+ ;s
15	u>= ?branch drop con:
6	defer: col: cell+ dup
3942	swap >r ;s count
1662	cell+ >r @ col:
2	= or ?branch lp+
9020	dup ?branch @local3 =
7	?branch lit /string col:
1649	@local1 branch i col:
2	?branch var: @ field:
44	;s branch lp+2 ;s
1198	;s ;s lit col:
110	@ lp+ ;s ?branch
191	and + faligned over
14	0= ?branch nip nip
300	2drop ;s ;s branch
2	col: lit user: !
250	var: @ 1- dup
199	2dup 2>r col: col:
54	cr lp+ ;s lp+
116	@ lit col: >l
360	dup col: count lit
124	var: user: ! col:
4	branch 2dup + r>
17	+ @ user: !
4	@local3 @local1 @local2 field:
135	! noop ;s col:
114	defer: noop col: col:
2880	@ dup var: =
16	@local1 field: ! @local1
18	execute var: ;s branch
309	?branch user: @ dup
210	>l lp- var: @
6	@local0 field: 2! @local0
2	;s ?branch ;s ;s
15	2! @local1 lp+ ;s
1783	;s 2drop ;s branch
1	@local1 field: ! @local3
125	;s var: ! var:
694	user: ! drop ;s
174	@local2 var: <> @local3
61	con: lit (do) @local0
2	var: @ lit col:
15	lit @local1 field: 2!
4	lit or branch ;s
7	defer: col: 2dup lit
5	- var: over cell+
45	con: lit (do) @local1
414	dup ?branch 2drop lp+2
3745	+! @ c! ;s
26	con: lit (do) @local2
15	@local1 @local1 field: lit
2546	2drop col: col: col:
360	swap branch over 0<>
285	;s ?branch var: @
15	@local1 var: @ col:
5372	cell+ dup c@ >r
152	var: @ ?branch con:
23	;s ?branch lp+ ;s
6	lit max var: @
1	?branch r> drop r>
1	tuck - lit cells
122	! dup ?branch execute
14	+! ;s does-handler! ;s
197	;s ?branch 2rdrop branch
3578	dup ?branch 0> ?branch
12	;s r> col: >r
4	con: = ?branch drop
6	@local2 @local3 col: swap
217	col: user: @ col:
34	0= ?branch r> cell+
369	>r swap user: @
30	;s lp+ ;s cr
15	dup @local1 field: !
11555	@local0 >l lp- @local1
2	?branch 2dup * allocate
4305	nip unloop ;s ;s
880	>l >l @local1 col:
4028	@ col: >l >l
557	dup user: ! lit
16	?branch lp+ ;s lp+
29	;s @local1 @local2 col:
35	rdrop ;s swap 2dup
72	! r> user: !
1	nip execute fasin ;s
17	lit /string branch ;s
407	- ;s col: lit
407	does: @ col: user:
8	= ?branch @local1 field:
135	con: ! var: col:
4586	var: dup @ 1-
694	;s user: ! drop
6	r> lit col: >r
14	lp+ ;s @local0 @local1
159	field: col: >l >l
255	! col: var: dup
4406	;s lit col: col:
45	;s con: var: col:
2586	- lit min 2dup
17	@ user: ! lit
42	;s ;s dup 0=
771	nip execute col: user:
29	! ;s @local0 col:
5068	over c@ r@ <>
1091	and 0= ?branch @
1	1+ /string ;s var:
1664	@ @local3 i col:
4548	! ;s ;s ;s
114	lp+2 ;s cr (loop)
36	cmove var: r> ;s
124	! col: col: var:
1105	r@ swap col: lit
556	;s dup user: !
2408	;s ?branch col: col:
17	?branch lit - dup
12	>r ;s drop col:
4751	lit /mod rot +
15	! over c@ lit
4	>body @ col: col:
822	?branch drop ! ;s
12	?branch ;s ;s r>
90	>l @local0 field: @
370	col: dup 0= lit
13	2! 2* cells +
58	@ ;s var: @local1
44	! @local0 field: lp+
637	aligned swap (?do) unloop
1	@ lit > ?branch
880	>l @local1 col: >l
191	;s var: c! var:
28	code-address! ;s >r rot
1	;s r> tuck -
112	+ ;s @ swap
150	;s r@ col: dup
14	r> rdrop lit branch
8	@local1 ! drop lp+!#
15	dup r> - ?branch
976	tuck c@ xor swap
152	col: col: con: @
1	2@ nip var: 2!
8837	;s lit + aligned
4	or branch ;s ;s
568	and ;s var: @
570	@ field: @ field:
384	@ lit = ?branch
26662	>l lp- @local1 cell+
133	>l @local0 col: >l
1	! ;s (loop) unloop
1373	lit col: user: @
12	;s drop col: ?dup
370	defer: defer: col: col:
8	@local# @local1 ! drop
568	lit and ;s var:
1	>r ;s col: col:
50	dup >r var: swap
28	swap r> col: 1-
88	con: = ?branch con:
2588	lp+2 ;s col: 0=
195	= ?branch con: lp+2
324	>r col: lit (?do)
72	;s col: over >r
3039	and ?branch ;s ;s
72	col: over >r rot
2	lit = ?branch >code-address
28	;s code-address! ;s >r
2407	branch col: user: @
1	var: ! col: lit
205	?branch @local0 branch lp+
9320	2dup i 2@ over
218	r> /does-handler + col:
25	cell+ var: ! ;s
22	var: @ ?branch var:
6	over field: @ 2*
1	0= ?branch 2drop 2dup
255	@ 1+ dup con:
15	lp- con: lit (?do)
7	;s var: field: @
2036	0< ;s col: lit
26	2dup defer: (type) compare
142	;s @local2 lit col:
4	> ?branch @local0 @local1
26	(type) compare 0<> ?branch
5	;s over r> tuck
1834	;s col: col: dup
5	>r ;s @local1 lit
5	>= ?branch ;s lit
23	(?do) dup >r 2@
3933	+ ;s @ @local1
360	swap c@ lit and
152	<> and col: col:
5	?branch lp+!# ;s lp+
4	;s @local3 @local1 @local2
15	lp- @local1 var: @
408	@ swap - ;s
1	nip execute dfloats ;s
142	cr branch lp+2 ;s
1664	+ ;s @ @local3
6	;s cr ;s r>
1	?branch ;s -rot >r
5132	lit max lit (?do)
7	dup field: dup var:
568	?dup ;s ?branch col:
4366	?branch r> lit and
2420	user: @ ;s con:
16	- swap lit col:
360	col: cell+ dup col:
1	execute lshift ;s branch
26	lit and ;s 2dup
13	user: @ >r >r
7	;s ;s var: field:
4	@local0 @local1 @local2 @local3
4	?branch var: @ over
2	2drop rdrop unloop con:
11	1+ >r col: r>
4	move c! ;s con:
84	0= ?branch ;s col:
1	defer: drop ;s ;s
5	over >r lit col:
2	unloop con: ;s ?branch
2546	- ;s r> over
4586	dup @ 1- cells
125	noop ;s ;s branch
58	;s ;s ;s @local1
3230	con: ?branch lit col:
2730	(type) ;s col: lit
1	dup 0= ?branch 2drop
4	>r user: @ over
5	swap c! 1+ col:
15	+ ! lit var:
124	! ;s con: lit
4	@ col: lit lit
14	?branch var: 2@ lit
561	;s move ;s col:
114	field: @ lit col:
2586	i - lit min
25	dup var: <= ?branch
13	col: r> user: @
1006	and ?branch 1- r>
384	count col: user: @
11	nip nip execute dup
6	@ 2* cells +
11	nip execute dup ;s
6	cell+ dup @ 0<
50	+ dup >r con:
218	col: r> /does-handler +
410	lp+ ;s col: col:
1	@ ?branch drop ;s
299	u< ?branch drop ;s
8837	aligned ;s con: -
1	;s defer: (type) branch
125	faligned dup col: user:
111	0> ?branch col: user:
7	@ ?branch @local1 @local1
50	tuck ! cell+ tuck
10144	col: col: col: col:
174	var: <> @local3 col:
4	@local1 @local3 field: @
5	lit ;s over r@
100	col: col: col: lit
174	;s < or and
45	! ;s @local1 field:
15	col: col: 2dup lit
4	drop lp+!# ;s @local2
13	var: 2@ tuck 1+
7	(loop) unloop 2drop drop
4	drop lp+!# ;s @local3
191	= ?branch i -
1	drop var: 2@ nip
1	nip execute floats ;s
5	swap 1+ /string ;s
16	drop >r drop col:
30	unloop lp+ ;s col:
5	var: +! var: @
5242	over <> ?branch col:
4078	?branch drop 2drop lit
50	over r> + dup
4	dup ?branch lit /string
68	@ ;s over char+
16	swap con: - swap
29	>l >l >l does:
135	col: noop user: @
283	branch var: col: con:
7935	?branch ;s defer: col:
376	defer: col: col: col:
1255	col: user: @ swap
907	! ;s var: col:
568	;s var: @ field:
2546	;s defer: (type) ;s
205	;s ?branch @local0 branch
253	r> does: 2@ ;s
568	var: @ and ?dup
440	! ;s lit lit
403	r> col: >r dup
22	! ;s col: con:
9	lit @local1 ! lp+
1	nip ?branch 2dup con:
49	;s swap 2dup r>
1482	c! ;s (loop) con:
2835	(loop) @local1 i col:
5708	con: lp+!# ;s ?branch
26630	col: col: col: user:
61	>r ;s @local1 col:
6	>body ;s branch col:
28	;s + swap r>
2546	dup ! ;s col:
15	lp+2 ;s @local1 col:
6	dup >code-address lit =
3	@ ;s branch col:
1	;s f! ;s col:
4	c@ ;s col: user:
5	cell+ ! dup @
6753	+ ;s ! (loop)
45	does: 2@ ;s col:
164	col: col: con: <>
321	col: var: col: con:
18	user: @ lit pick
36	@ ;s var: laddr#
45	drop branch (loop) unloop
210	(loop) lit @local1 i
4795	;s r> xor cells
2586	2dup defer: (type) (+loop)
42	;s 0> ?branch col:
1	! execute col: user:
471	@ ;s col: lit
191	;s ;s var: c!
125	col: var: ! ;s
2420	swap user: ! lit
116	col: 1- tuck +
61	lit @local1 >l >l
104	@local1 ?branch lp+2 ;s
1	swap col: user: @
370	0= lit and col:
152	dup col: dup con:
44	?branch con: branch ;s
1	var: @ con: cells
281	unloop 2drop con: ;s
108	0= ?branch lp+2 ;s
30	@local1 field: ! lp+
5	lit swap 1+ /string
316	2swap dup >r col:
218	+ col: col: user:
380	0= ?branch ;s >body
1	?branch @local1 con: col:
360	;s >body @ max
369	;s ?branch col: swap
16	var: ! ;s rdrop
20	var: ! ;s over
40	swap con: - dup
13836	field: @ execute col:
16	(type) ;s @local1 lit
73	@local0 field: ! @local0
124	user: @ ;s var:
218	/does-handler + col: col:
31	over swap col: col:
1	compare 0<> ?branch col:
1	! var: @ con:
4586	@ 1- cells over
1	>l lp- col: r@
61	col: >l lp- con:
316	;s lit lit 2swap
91	* 1- >r r@
309	unloop lit branch ;s
100	lp+2 ;s ?branch @local1
184	;s cr lp+ ;s
202	0= ;s ?branch lp+2
1638	! (loop) @local2 i
2048	d0= ?branch ;s rot
77	2drop lp+!# ;s lp+
124	! var: user: !
3	;s ;s lit (?do)
201	;s @ ;s ;s
726	;s @local0 >l lp-
726	+! ;s @local0 >l
4751	;s over c@ or
568	col: >r 2dup 2dup
989	;s ;s col: dup
2	?branch drop ;s ;s
30	over ;s branch col:
210	;s ! (loop) lit
566	0< ?branch var: @
1	0= ?branch lit (bye)
135	;s con: ;s ;s
1	nip nip execute cell+
36	dup >r 2@ 2over
114	execute col: defer: noop
3	;s cr @local1 lit
15	?branch @local2 i col:
5	?branch @local1 @local1 field:
15	>r ;s @local1 field:
6	execute col: dup >code-address
1	nip nip execute >code-address
6208	>r swap >r ;s
2546	col: 2drop col: col:
565	;s col: user: @
11	branch con: defer: noop
386	drop col: r> dup
5372	c@ >r col: count
124	var: ! ;s con:
370	unloop ;s ;s lit
29	@local1 ?branch @local0 1+
124	drop user: @ col:
4	branch ;s (loop) col:
7935	@ > ?branch fp@
1	(?do) i col: cells
299	?branch drop ;s user:
5068	dup ?branch over c@
1145	defer: (type) ;s lp+
360	faligned ;s swap c@
283	(hashfind) ;s ;s var:
4	lp+ ;s @local3 @local1
9	dup faligned <> ?branch
399	;s ;s branch ;s
1	! lit + dup
386	= ?branch drop col:
557	;s col: var: @
8475	user: @ ;s 2dup
316	>r user: col: con:
561	@ ;s swap dup
2048	! ;s lit pick
78	cr col: col: r>
216	@ ;s col: cells
1	+ >r ;s con:
5372	dup ?branch col: cell+
882	nip execute col: col:
112	con: lp+2 ;s ?branch
3933	;s @ col: >l
4	lp+ ;s @local2 @local1
4	;s ;s char+ c@
76	faligned swap (?do) unloop
762	con: = ?branch @local2
541	! ;s col: var:
199	2>r col: col: user:
2109	con: col: col: col:
54	con: = ?branch @local3
41	lp+2 ;s @local1 field:
191	swap c! ;s col:
556	;s ! ;s code-address!
61	col: >l >l con:
6	drop branch ;s branch
50	r> + dup >r
46	lp+ ;s @local1 @local0
5708	?branch drop con: lp+!#
132	;s defer: col: noop
670	col: lit col: user:
91	con: 1+ within 0=
114	= ?branch i col:
191	faligned over lit +
72	rot over 1+ r>
5	1+ col: col: col:
419	r@ <> ?branch rdrop
316	lit 2swap dup >r
6	@ ;s ?branch @local1
5	dup 0= ?branch execute
31	col: over swap col:
44	= ?branch col: col:
726	@ ;s @local1 >l
11	@local1 lp+ ;s ;s
1	execute >code-address ;s branch
125	;s ! ;s does:
218	@local1 2@ nip lp+
373	;s does: col: var:
1	2! col: var: 2@
29	+ @ ;s ?branch
26	(do) @local2 i col:
21	= ?branch dup col:
197	?branch nip ;s ?branch
174	@ ;s @local3 col:
124	@local3 does: @ +
15	field: @local1 field: con:
726	;s +! ;s @local0
8	unloop 2drop drop con:
561	dup col: col: user:
124	con: lit ! ;s
377	con: ;s ?branch col:
276	rdrop ;s ;s col:
1	execute col: con: 0=
25	compare 0<> ?branch 2drop
26	defer: (type) compare 0<>
6208	+ aligned >r swap
629	c! ;s col: col:
114	i col: col: dup
58	@ ;s 0<> ?branch
1	dup ?branch r> drop
7	nip ?branch 2dup >float
4649	<> ?branch lit /string
1	execute does: col: r>
412	?branch nip nip ;s
2082	?branch drop lit col:
1105	;s r> ;s tuck
2	+ (loop) unloop drop
6	var: @ min dup
14	>l @local0 ?branch @local1
35	con: min >r var:
262	;s @local3 col: >l
3	noop ;s col: r>
12	rdrop lit ;s r>
52	! ;s con: @
5	;s col: r@ defer:
4	;s lp+2 ;s @local0
218	does-code! ;s ;s ;s
7	dnegate r> user: !
58	;s lp+2 ;s @local1
3259	lp+ ;s dup col:
195	col: >l lp- var:
4751	;s con: / col:
3182	dup ?branch 2drop con:
12	! >r ;s drop
566	;s does: @ +
772	;s @local2 col: >l
45	lit (do) @local1 i
2687	user: @ ?branch col:
279	col: col: defer: defer:
4751	/ col: col: lit
152	and col: col: r>
10	?branch ! ;s ;s
36	>l >l @local3 does:
570	var: @ field: @
3	;s ;s drop col:
1105	lit + dup @
54	defer: (emit) ;s @local0
9	col: col: does: 2@
15	! var: @ @local1
1	nip execute >code-address ;s
1	fasin ;s branch col:
1	execute floats ;s branch
142	defer: (emit) ;s @local1
15	lp- var: @ lit
15	@local0 lp+2 ;s @local1
1	0> 0= ?branch ;s
4	rot dup con: =
945	and col: ?dup ?branch
45	col: 2dup u< ?branch
1	2@ col: col: col:
513	;s @local1 col: >l
247	col: ?branch r> does:
1	@ >r var: @
155	(type) ;s cr lp+
15	@ col: cells con:
6	execute >body ;s branch
369	um* d+ r> ;s
1210	?branch @local3 execute col:
3	;s lp+ ;s var:
4	! defer: col: cell+
7	>float ?branch 2drop user:
4	= ?branch drop (parse-white)
2837	col: lit col: >r
316	;s dup ?branch ;s
63	(loop) dup >r 2@
15	field: ! @local1 col:
1105	! r> var: @
14	nip ?branch var: 2@
12	lit ;s r> user:
556	;s col: lit >code-address
54	;s @local0 col: >l
54	(emit) ;s @local0 col:
5	lp+ ;s dup 0=
152	@ ;s over -
1	r> tuck - lit
114	noop col: col: col:
309	dup >r ?branch col:
1	var: 2@ col: col:
1	con: 0= ?branch lit
15	cells cmove @local1 var:
15	con: cells cmove @local1
1	swap ! ;s rp@
1746	and ?branch nip nip
2	close-file col: ?dup ?branch
44	col: cells con: ;s
8	@local3 >l lp- @local1
61	lp- lit @local1 >l
135	! ;s lit user:
501	?branch col: r> dup
309	?branch 2drop rdrop r>
29	@ @local1 @local0 does:
72	lp+ ;s @local1 !
17	?branch cells var: +
52	;s dup col: lit
1	+ dup user: !
17	var: + @ user:
2906	;s ;s col: col:
15	field: var: con: cells
26662	@local1 cell+ @local1 @
6	2! @local0 field: col:
315	branch ;s branch col:
18	col: >r >r user:
1	var: = ?branch con:
726	@local1 ?branch drop lit
848	dup negate user: +!
46	+ >r ;s var:
249	! ;s does: col:
197	nip ;s ?branch 2rdrop
13	2dup 1+ var: 2!
6	max var: @ min
2586	col: lit does: swap
4751	con: - ;s con:
16	;s ;s swap con:
5	2@ ;s ;s branch
2588	@local1 ?branch @local# @local1
1920	+ ;s ! var:
5	! dup @ dup
50	cell+ tuck ! cell+
2766	= ?branch drop branch
191	- unloop ;s ;s
4	count + c! col:
4	@ ;s col: over
5	<> ?branch 2dup +
369	um* drop rot user:
15	lp+2 ;s lit <>
46	;s ?branch drop @local0
283	var: @ ?branch dup
2586	defer: (type) (+loop) unloop
7	;s ;s dup field:
108	?branch var: @ ?branch
8	;s lit > col:
2297	;s col: col: r>
556	@ ;s dup user:
1	var: 2@ 2* cells
2614	;s dup ?branch drop
4751	;s ;s ! ;s
1	f! ;s col: r>
1	@ ;s >r over
1	con: lit ! lit
1999	defer: (type) ;s @local1
35	@local1 ?branch lp+!# ;s
6	-rot move ;s @local0
5	over ! lit var:
8	;s ?branch col: user:
88	defer: (type) ;s @local3
16	col: var: @ >
6	@ ;s >r defer:
29	@local0 1+ @local1 col:
3942	;s count defer: (type)
2546	max lit (?do) unloop
3	branch (+loop) i col:
13	cells resize col: ?dup
7	rdrop user: col: con:
767	lit cells col: col:
11	con: = or ?branch
29	;s lit var: +!
15	;s dup ?branch dup
1	con: cells allocate col:
194	user: @ col: aligned
72	over 1+ r> move
27	>r fp@ >r col:
3	nip nip execute cells
4	>r ;s lp+2 ;s
25	branch lp+ ;s @local0
1369	lp+ ;s lp+ branch
9	lp+ ;s ;s ;s
192	;s ;s cell+ dup
4751	@ + ;s swap
6	/ ;s lit col:
49	branch lp+ ;s @local1
239	;s col: ?branch r>
158	floats over = ?branch
821	over = ?branch lit
5	dup ?branch drop defer:
1105	cells >r var: lit
1105	@ 0< ?branch @
5	;s lit cells -
45	= ;s 0= ?branch
17	drop col: con: @
20	swap var: ! ;s
1	;s var: 2! var:
78	branch lp+ ;s @local3
144	execute col: col: defer:
568	?branch dup @ 0<
170	branch lp+2 ;s lp+
35	lp- @local1 ?branch lp+!#
35	! ;s drop ;s
2	;s ;s cell+ cell+
562	user: ! ;s col:
112	field: over does: @
2	cr lp+ ;s var:
2588	@local# @local1 col: >l
1	var: 2! ;s defer:
5	lp- @local2 @local1 field:
62	swap ! ;s col:
403	rdrop ;s >r over
6	field: @ ;s >r
72	lp+ ;s @local1 @
12	dup ?branch r> r>
5068	c@ r@ <> ?branch
6	drop ;s cr ;s
5	rdrop ;s over r>
375	user: @ u>= ?branch
2	@ ?branch ;s ;s
49	swap 2dup r> -rot
568	>r 2dup 2dup r>
29	;s @local1 col: lit
25	tuck ! cell+ var:
4	;s @local2 field: @
1312	@local# execute col: >l
8475	r> min user: !
44	branch ;s lit col:
27	>r rp@ user: !
152	dup con: <> swap
4	@local3 field: @ @local1
17	lit u> ?branch lit
11	noop col: r> dup
3904	dup @local1 i col:
17	?branch @ branch 2dup
15	- unloop ;s dup
40	@ swap con: -
8475	+ r> - 1+
225	1+ pick >r cells
6	;s r> does: 2@
1	;s drop ;s user:
36	0= ?branch rdrop drop
191	execute col: drop col:
3716	col: >r lit r@
1659	@local1 @local3 = ?branch
1105	lit cells lit col:
23	lit lit col: >r
12	r> r> user: !
7	;s 2! ;s col:
3	lit branch (+loop) i
937	dup ?branch drop branch
25	2drop col: lit does:
15	?branch @local0 lp+2 ;s
15	@local1 var: ! var:
283	! branch var: col:
44	@local0 field: lp+ ;s
194	;s ;s ;s cell+
1	dup @ ?branch drop
2	! ;s branch @
12	lit ;s user: @
1940	swap ! ;s ;s
4	?branch drop (parse-white) branch
5	var: @ >r var:
2586	lit (?do) i' i
191	col: drop col: col:
1	nip execute cell+ ;s
1	dfloats ;s branch col:
822	?branch 2dup swap col:
568	;s ?branch dup @
1657	0= ;s ?branch drop
52	col: 2dup u<> ?branch
1	! fp@ user: !
16	col: col: lit col:
509	>r col: col: col:
13836	field: @ field: @
3103	>l lp- col: col:
44	! lit @local0 field:
17	lit u< ?branch cells
8	?branch @local# @local1 !
9368	@local1 col: >l >l
1	col: var: 2@ col:
5	+ lit swap c!
14	;s var: swap ;s
4190	2drop ;s branch col:
97	con: @ col: 2dup
697	execute col: col: col:
12	;s 0<> ?branch lp+
15	col: does: 2@ ;s
117	drop 2dup col: col:
4586	col: drop var: dup
50	>r 2@ dup >r
46	drop @local0 lp+2 ;s
360	0<> ?branch over col:
44	con: branch ;s lit
7935	?branch fp@ user: @
8475	@ ;s 2dup >r
104	@local1 @local0 does: @
60	user: @ ;s !
1	con: cells col: lit
4751	does: + c@ ;s
14	0<> lit and col:
8475	- 1+ r> min
1020	lp+2 ;s lp+ branch
135	! ;s con: ;s
4649	/string branch dup ?branch
25	>= col: col: r>
7	cell+ (loop) unloop 2drop
31	lp+2 ;s lit >
7	;s col: >l >l
5	;s f! ;s ;s
92	>r user: @ >r
18	field: @ var: =
10	nip nip execute field:
12	rdrop lit ;s user:
349	! ;s lit var:
116	1- tuck + swap
54	;s lp+ ;s con:
4	?dup ;s ?branch ;s
4	swap ;s col: user:
225	sp@ cell+ dup cell+
78	nip ;s user: !
22	var: @ col: dup
36	lp+2 ;s lp+2 ;s
1105	lit and col: con:
45	@ ;s - col:
847	swap - col: dup
5528	?branch defer: col: 2dup
4	> ?branch @local1 field:
4586	over + (do) 2dup
152	<> swap con: <>
26	var: @ ?branch @local1
5	>r var: col: con:
568	;s var: @ and
12	col: >r col: dup
72	;s @local1 @ col:
8	/string branch dup >r
4	@ + @ col:
72	@local1 @ col: >l
35	?branch rdrop ;s swap
2	?branch >code-address ;s ;s
1006	?branch 1- r> lit
32	drop branch ;s ;s
1999	;s col: col: col:
7	?branch 2drop user: @
15	i' i - unloop
221	execute col: defer: col:
1359	0= col: col: r>
2420	@ ;s con: user:
225	cell+ dup cell+ rot
12	drop col: ?dup ?branch
276	branch ;s col: user:
1105	0< ?branch @ over
4	+ @ col: lit
7	r> ?branch dnegate r>
1464	= ?branch @local1 col:
4795	@ + @ (hashfind)
369	user: @ um* d+
111	nip ;s dup ?branch
3	branch con: defer: col:
6	defer: (type) ;s r>
108	con: ;s lit col:
68	;s over char+ col:
12	user: @ close-file swap
8558	= ?branch lp+ branch
2766	var: = ?branch drop
253	2@ ;s drop +
976	rdrop ;s cell+ tuck
11	field: @ 0<> ?branch
568	2dup r> col: dup
9	c@ lit <> ?branch
13	user: @ >r col:
4	@local1 @local2 field: @
4	branch col: col: user:
5	over r> tuck -
78	;s user: ! ;s
67	user: +! ;s col:
392	lit defer: (emit) ;s
48	(type) ;s cr @local1
4783	>l @local0 @local1 col:
191	+ = ?branch i
561	;s @ ;s user:
1	con: @local1 col: >l
26809	col: cells + ;s
137	rdrop ;s ;s lit
402	r> ?branch 1+ user:
5771	@ col: col: dup
195	?branch execute col: user:
822	dup ?branch 2dup swap
14	?branch ;s var: swap
218	2@ nip lp+ ;s
174	+ @ ;s @local1
12	dup 0< ;s r>
5	var: <= ?branch drop
1105	?dup 0= ?branch >r
15	@local1 field: var: con:
64	;s ?branch @local0 1+
58	! ;s con: col:
174	+ @ ;s @local3
260	lit ! lit col:
29678	user: @ ;s @
6	;s defer: col: col:
49	swap >r dup allocate
18	pick col: lit over
45	con: var: col: con:
116	swap invert and ;s
4751	swap does: + c@
2639	@local1 does: @ +
8837	@ ;s lit +
726	lp+2 ;s lit cells
45	;s ;s con: var:
561	var: @ @ over
31	lp+ ;s ;s branch
1	?branch 2drop col: col:
18	>r user: @ lit
1	?branch execute col: lit
124	var: @ user: !
13	>r col: swap >r
13	2@ nip 1- user:
735	;s ?branch @local1 col:
44	@local0 lit col: >l
12	sp@ user: @ swap
35	dup allocate col: col:
1768	?branch 2dup con: col:
6208	r> r> dup count
369	@ um* drop rot
29	0< ?branch lit col:
2546	dup @ tuck -
3745	@ c! ;s ;s
27	laddr# ;s >r user:
561	@ @ over !
320	;s over c@ lit
4751	col: con: - ;s
15	! lp+ ;s >l
116	! ;s @local# col:
937	drop branch lit (+loop)
5	;s drop col: r>
72	r> user: ! r>
403	>r over - dup
191	move lit lit !
194	col: aligned dup col:
6	;s r> lit col:
14	?branch @local1 ?branch @local1
81	@local1 ! lp+ ;s
1	branch col: lit does:
1	nip nip execute invert
5	2dup + lit swap
4751	rot + swap does:
3837	@ <> ?branch @local1
173	(loop) unloop ;s lit
5	?branch lp+2 ;s col:
8	@local3 = ?branch @local#
1050	;s ! ;s lit
402	?branch 1+ user: +!
133	>l >l @local0 col:
64	nip execute col: >l
5	?branch drop lit lit
191	unloop ;s lit col:
4	drop (parse-white) branch 2dup
2	unloop drop branch lit
29	(emit) ;s @local1 does:
2914	drop ;s ;s ;s
36	rdrop drop r> cell+
316	- dup lit u<
283	! ! branch var:
1	@ swap ! col:
17	lit u<= ?branch dup
225	dup 1+ pick >r
5372	;s r@ lit and
375	- dup lit u>
1	lp+ ;s @local1 lit
5536	@local0 @local1 col: >l
11	col: 1+ >r col:
1105	;s tuck cell+ !
5	1- + c@ lit
407	col: lit over =
196	lit col: r> /does-handler
11	nip execute col: >r
7	var: field: @ col:
848	+! lit over =
15219	col: >l >l @local0
4	;s >body @ col:
843	col: >l >l @local1
12	or col: dup ?branch
1935	! var: @local1 field:
15	@local1 lit + !
5	+ c@ lit <>
174	<> @local3 col: >l
36	>r ;s @local1 @local0
3716	>r lit r@ um/mod
9020	?branch @local3 = ?branch
11	field: @ ?branch @local1
158	= ?branch lit floats
1255	@ ;s user: !
27	r> swap >r fp@
15	lp- @local1 field: var:
5527	branch col: sp@ user:
109	branch ;s ;s branch
1464	@local3 = ?branch @local1
26	! execute col: col:
316	dup ?branch drop 2dup
3182	?branch 2drop con: lp+2
7	?branch dnegate r> user:
20	var: <= ?branch con:
3716	swap >r um/mod r>
20	cells con: ;s ;s
75	>r r@ col: dup
25	@ dup var: <=
2880	+ ;s @ dup
16	> ?branch ;s ;s
60	;s ! drop ;s
75	;s rdrop dup col:
16	;s col: >r >r
11	@local1 field: @ ?branch
2420	user: @ ?dup ?branch
568	;s lit col: user:
46	0<> ?branch @local0 col:
10829	>l >l @local0 >l
847	@ swap - col:
100	;s ?branch @local1 field:
23	@ ?branch col: con:
1	?branch con: lit !
52	@ ?branch over col:
142	@local2 lit col: >l
29	1+ @local1 col: field:
124	col: var: @ ;s
4795	2dup col: con: (hashkey1)
2408	col: col: sp@ user:
12	>r col: dup 0<
15	lp+ ;s lit lit
904	>l lp- @local1 con:
1	@local3 @local1 field: !
1	2* cells col: swap
4	?branch col: col: 2dup
28	>r rot r@ col:
58	lp+2 ;s @local1 does:
1	col: col: >l >l
1105	col: lit + dup
281	(+loop) unloop 2drop con:
3904	+ ;s @ <>
29	2! ;s var: col:
2586	(type) (+loop) unloop drop
4	/string rot dup con:
180	<> col: col: r>
94	+ @ ;s var:
2546	drop ;s defer: (type)
70	col: >l lp- lit
191	con: (do) dup i
196	! col: r> dup
2	@ ?branch dup defer:
403	;s user: @ over
25	;s tuck ! cell+
791	c! ;s ;s col:
10	! ;s lp+2 ;s
594	col: cell+ count lit
976	;s cell+ tuck c@
2	0= ?branch 2drop rdrop
561	lit u> lit and
403	?branch rdrop ;s >r
4747	+! ;s col: dup
6	cr ;s r> does:
4	@local2 field: @ @local1
31	@ ;s swap col:
9	con: ;s col: col:
309	branch ;s dup ?branch
16	drop con: ;s ;s
5684	col: var: @ col:
498	lit col: lit col:
15	> ?branch lp+ ;s
28	rot r@ col: 1-
117	;s ! (loop) unloop
7	= ?branch 2drop rdrop
5	@ over ! lit
3301	;s dup col: col:
12	?branch ;s r> user:
14	lit branch unloop 0<>
133	@local1 ?branch @local1 @local#
3716	um/mod r> swap >r
42	-rot move ;s col:
3230	drop con: ?branch lit
24	rdrop rdrop rdrop lit
152	col: dup con: <>
8558	?branch lp+ branch >l
16872	@ ;s +! ;s
54	>l >l col: col:
6	(type) col: col: r>
191	lit + = ?branch
124	var: ! var: user:
50	var: r@ + swap
16	;s ;s r> r>
1	2! var: up! sp@
1	@ ;s r> tuck
46	+ ;s ! lp+
27	>r col: laddr# ;s
17	r> drop col: con:
6208	col: col: r> r>
1	! user: ! user:
17	branch 2dup u< ?branch
4	lit <> ?branch col:
403	over - dup r>
9975	@ ;s user: @
2408	?branch col: col: sp@
7	code-address! ;s lit col:
13	lit user: ! user:
50	2@ dup >r var:
78	@local2 @local3 col: >l
1	-rot >r var: r@
14	nip r> rdrop lit
14	user: ! user: col:
79	over col: lit over
548	2@ drop lp+ ;s
174	>l lp- @local3 col:
6	field: @ 2* cells
70	>l lp- lit @local1
360	branch over 0<> ?branch
7	rdrop ;s dup 0=
91	rdrop ;s ;s ;s
277	;s code-address! ;s ;s
36	>l @local0 @local1 swap
245	2drop lp+2 ;s col:
114	(type) ;s lit col:
1649	?branch @local1 branch i
360	max swap @ swap
10045	;s ;s ;s dup
91	lit col: 1+ con:
46	lp+ ;s ?branch drop
14	@local1 ?branch @local1 @local0
15	c@ lit = ?branch
1	;s var: @ over
52	u<> ?branch drop ;s
36	user: +! ;s user:
931	lp+!# ;s ?branch @local0
3904	;s @ <> ?branch
4777	lp+!# ;s ?branch @local1
2035	@local1 ?branch @local1 @local3
197	2rdrop branch ;s branch
61	;s (loop) count col:
29	>l @local1 @local0 does:
29	! ;s @local3 col:
1	user: ! lit +
44	>l >l @local1 ?branch
892	@local2 @local1 col: >l
28	and ;s ;s ;s
2333	negate ;s ;s ;s
884	;s ;s var: @
15	var: con: cells cmove
6	floats col: col: user:
1105	0= ?branch >r drop
1425	user: @ ?dup ;s
997	;s ;s lp+ ;s
2	2dup * allocate col:
220	;s @ ;s over
41	(loop) unloop lp+2 ;s
11	execute col: 1+ >r
6	nip execute >body ;s
2672	;s ;s ;s col:
14	>l >l @local0 ?branch
2	lit >code-address ;s ;s
2046	pick + (loop) dup
17	dup ?branch drop r>
961	col: lit lit !
5900	col: con: (hashkey1) ;s
58	+ @ ;s 0<>
210	! (loop) lit @local1
1	;s @ col: col:
2420	user: ! ;s ?branch
11	defer: noop col: r>
2	>l lp- @local1 lit
61	>l con: lit (do)
191	defer: col: var: count
1	cells allocate col: ?dup
12	r> user: ! >r
7	2! ;s col: r>
309	2drop rdrop r> ?branch
2433	! lit user: !
191	var: c! var: count
617	nip execute col: defer:
300	user: +! ;s 2drop
88	?branch con: col: >l
1	execute col: var: !
16	con: - swap lit
15	>l lp- @local1 var:
10	execute does: col: var:
1	2drop col: col: user:
1	@ lit (?do) i
3259	! ;s 0= ?branch-lp+!#
27	;s @local1 lit col:
39	con: ;s branch col:
27	?branch ;s col: var:
20	nip execute col: cells
242	col: con: @ col:
143	2drop lp+2 ;s cr
2009	col: field: @ ;s
135	@ user: @ col:
50	2dup var: r@ +
225	rot move drop r>
202	?branch lp+2 branch >l
13	! user: @ >r
548	@local1 2@ drop lp+
6	(type) ;s r> lit
16	+! ;s ;s >l
5732	lit and 0= ?branch
822	2dup swap col: lit
5	var: over cell+ !
91	1+ con: * 1-
12868	;s @ ;s con:
1	@local1 con: col: >l
120	lp+ ;s @local1 field:
26662	cell+ @local1 @ lp+
195	dup user: ! swap
6	;s lit floats col:
822	col: dup @ dup
60494	col: col: user: @
309	dup ?branch 2drop rdrop
1006	lit and ?branch 1-
44	drop lp+ ;s col:
5132	does: swap lit max
2786	@ ;s lit col:
1	>r var: @ lit
14	;s does-handler! ;s branch
3716	>r um/mod r> ;s
195	con: lp+2 ;s lp+
23	?branch col: con: @
30	nip nip execute over
3233	col: con: swap !
36	;s var: laddr# col:
186	lp- @local1 >l lp-
3	cells ;s branch col:
201	over = ?branch col:
2586	i' i - lit
2426	@ ?branch col: user:
407	;s col: lit over
382	lit lit ! ;s
30	nip execute over ;s
2508	;s ;s ;s branch
6	defer: col: cr col:
93	lp+ branch >l >l
548	lp+ ;s lp+ ;s
18	@local1 field: @ var:
1698	;s lp+ ;s lp+
158	?branch lit floats over
7	! ;s branch r>
402	1+ user: +! ;s
13	= ?branch r@ user:
16	>body user: @ ?branch
12868	@ ;s con: col:
2048	lit pick + (loop)
5189	@ execute col: drop
136	user: ! user: !
285	! branch ;s ;s
976	cell+ tuck c@ xor
45	@ col: 2dup u<
48	;s lp+ ;s @local0
369	(loop) unloop ;s ;s
1	> ?branch con: lit
472	;s lp+ ;s @local1
250	;s var: ! ;s
5	?branch 2drop r> var:
1	col: con: 0= ?branch
914	;s lp+ ;s @local2
6	;s ;s @local2 @local3
408	swap - ;s col:
1	fill ;s var: @
782	;s lp+ ;s @local3
152	(emit) ;s col: col:
2546	con: - dup !
58	var: col: col: col:
1	nip nip execute fasin
4795	@ execute col: lit
5	f! ;s ;s ;s
330	col: user: @ >r
27	rp@ user: ! execute
1356	drop lit col: drop
4	@local2 @local1 field: col:
276	! branch ;s col:
39	nip nip execute con:
131	faligned nip ;s col:
25	r@ u>= ?branch col:
218	lp- @local1 2@ nip
15	;s @local1 field: @local1
6	?branch nip ?branch 2dup
923	;s var: col: con:
14	;s +! ;s does-handler!
1682	@ var: = ?branch
16	;s rdrop ;s col:
18	lit pick col: lit
11	@ ?branch defer: noop
14	does-handler! ;s branch con:
5372	r> lit and ?branch
2266	>r ;s >r ?branch
112	drop lp+ ;s @local1
54	>l col: col: r>
1	lit fill ;s var:
17	u<= ?branch dup user:
16	r@ pick rdrop dup
1120	>l >l lp- @local1
33	execute col: var: @
17	allocate col: ?dup ?branch
309	lit branch ;s dup
4	>does-code lit or branch
6	;s +! ;s f!
5	var: @ over !
976	c@ xor swap c!
3064	?branch ;s ;s ;s
71	lp- con: lit (do)
182	>l >l lp- @local3
114	var: = ?branch i
6	;s lit max var:
3745	con: - lit over
195	lp- var: @ @local1
125	user: ! col: var:
309	0= ?branch user: @
870	field: @ @local1 col:
1105	cell+ ! r> var:
1105	xor cells >r var:
848	col: dup negate user:
3578	;s dup ?branch 0>
4	;s branch col: col:
2420	@ ?dup ?branch read-line
44	field: ! @local0 field:
4795	(hashkey1) ;s r> xor
2420	lit user: +! swap
36	;s @local1 @local0 field:
3716	lit + col: col:
69	>r ;s @local0 field:
5708	drop con: lp+!# ;s
6	defer: (type) col: col:
5528	dup ?branch defer: col:
1	;s ;s ;s float+
2586	(?do) i' i -
316	lit = dup >r
1	! var: ! col:
403	swap r> col: >r
5	- dup ?branch 2dup
41	+! ;s 2! ;s
27	>r sp@ r> swap
14	;s @local0 @local1 field:
2048	dup lit pick col:
1094	! ;s ;s col:
1746	dup ?branch lit and
1255	lit over = ?branch
6	move ;s @local0 field:
41	;s +! ;s 2!
33	lit col: >r dup
4751	c! ;s ;s !
152	- swap ! ;s
61	>l >l con: lit
2588	?branch @local# @local1 col:
7	?branch 2dup >float ?branch
124	@ user: ! dup
2	branch lit pick @
2	;s ?branch 2drop close-file
67	@ <> ?branch var:
3716	lit over < ?branch
2048	tuck dabs col: col:
1026	dup @ cells +
13	user: ! user: @
59	;s lit col: 1+
403	lit col: >r defer:
2019	col: 0< ?branch ;s
130	and ?branch @local2 @local1
44	and ?branch @local2 @local3
135	user: @ col: var:
10	field: ;s branch col:
967	execute col: user: @
196	dup ?branch execute col:
9	= ?branch con: ;s
5528	;s dup ?branch defer:
4751	col: con: dup @
2606	con: - dup @
16	rdrop ;s col: r>
88	(type) ;s @local3 col:
4	branch dup ?branch lit
16	col: drop >r drop
1616	;s @ ;s @local1
1	;s cr ;s ;s
1	@local2 @local1 field: !
1	@ 0= ?branch con:
4391	;s lp+ branch >l
29	! ;s @local1 @local2
2	;s cell+ cell+ dup
17	- dup ?branch drop
4632	branch dup ?branch over
7365	@ lp+ ;s >l
1	(?do) unloop 2drop drop
50	@local1 @local0 field: col:
9	lp+ ;s field: col:
1	?branch ;s var: !
17	;s ;s ;s swap
15	field: lp+ ;s var:
1	dup r> ?branch user:
561	+! ;s move ;s
308	0= ?branch nip ;s
360	;s swap c@ lit
247	lp+2 ;s col: col:
13851	branch >l lp- @local1
169	dup ?branch nip branch
26	(type) ;s col: cell+
26	?dup ?branch col: col:
36	@local1 field: @ @local0
73	! lp+ ;s lp+
325	col: col: col: r>
923	@local1 field: @ @local1
5	lit lit ;s over
18	nip nip execute var:
30	@local1 field: @ @local2
1312	@local# @local# execute col:
5	con: ! ;s (loop)
70	r> cell+ cell+ (loop)
824	;s branch @ dup
2433	user: ! lit user:
7	execute col: ;s ;s
283	@ ?branch dup @
1145	(type) ;s lp+ ;s
1	(loop) unloop ;s col:
2	;s var: @ lit
15	?branch drop con: ;s
55	aligned swap (?do) con:
441	;s col: >l lp-
64	?branch @local0 1+ swap
9	or ?branch @local1 field:
28849	col: >l lp- @local1
1	cells col: lit fill
561	! var: @ !
4795	xor cells var: @
1	cr ;s ;s branch
174	@ ;s < or
2546	- does: swap lit
22	var: @ col: >l
3942	>r ;s count defer:
4586	(do) 2dup i 2@
772	lp+ ;s @local2 col:
568	;s ?branch col: cell+
4	;s @local3 @local1 field:
4	var: swap ;s col:
23	2@ lit (?do) dup
542	2drop ;s var: @
84	cr lp+ ;s @local1
26	field: @local1 field: @local1
46	;s 0<> ?branch @local0
15	;s var: ! @local1
561	var: @ ! branch
13	;s col: var: 2@
407	execute does: @ col:
5	drop defer: col: 2dup
3	@ dup @ ?branch
1105	r> var: @ +
17	?branch drop r> col:
67	+! ;s col: col:
568	var: @ col: >r
2266	swap >r ;s >r
647	?branch branch drop ;s
360	>body @ max swap
568	@ and ?dup ?branch
29	(type) col: lit defer:
6	2@ rot field: @
923	?branch 2drop lp+!# ;s
4586	lit col: drop var:
5	2! ;s branch dup
3282	@ (f83find) ;s ;s
904	lp- @local1 con: =
10	lit <> ?branch lp+
1107	pick @ ?dup 0=
316	?branch ;s ;s dup
509	;s @local1 col: field:
1	;s float+ dup user:
45	u< ?branch = ;s
12	;s ?branch lp+2 ;s
6	cells + 2@ rot
4	>r ;s @local3 field:
78	faligned nip ;s user:
4366	and ?branch r> lit
72	over >r rot over
2	compare 0= ?branch 2drop
13	>r ;s user: !
36	;s user: @ ?branch
29618	@ ;s @ ;s
15	lp+ ;s var: !
647	over = ?branch branch
3282	col: @ (f83find) ;s
1746	lit and ?branch nip
976	xor swap c! ;s
117	?branch drop 2dup col:
2036	col: col: dup 0<
26	and ;s 2dup defer:
1	var: 2! var: up!
8558	@local3 = ?branch lp+
4751	col: col: lit /mod
945	lit and col: ?dup
360	@ ;s col: >l
3230	?branch lit col: drop
13	2* cells resize col:
2	2drop close-file col: ?dup
193	;s lit col: lit
135	! lit con: !
4795	r> xor cells var:
2560	;s col: lit does:
13	resize col: ?dup ?branch
2048	;s rot col: 0<
1	con: col: >l >l
4	@ 0= ?branch var:
9	branch col: var: @
2333	and ?branch negate ;s
195	var: @ @local1 col:
23	lit (?do) dup >r
29	>l >l @local1 @local0
3745	;s con: - lit
8	0< ?branch drop ;s
4078	drop 2drop lit (+loop)
20	! ;s over r@
32	;s swap col: col:
1	nip nip execute drop
383	does: col: var: dup
17	code-address! ;s ;s lit
44	;s drop branch ;s
16872	user: @ ;s +!
9	col: lit col: cells
822	;s ;s branch @
60	- dup @ swap
4751	c@ ;s ;s over
498	d0= ?branch ;s col:
34	;s drop ;s ;s
9320	2@ over <> ?branch
15	con: lit (?do) var:
1	lit (?do) unloop lit
26	;s col: cell+ count
1091	?branch @ lit r@
3269	;s ;s branch col:
4877	>l >l @local0 @local1
15	i - unloop ;s
6	;s col: col: does:
2407	?branch 2drop ;s branch
2546	over - does: swap
1	cells / ;s var:
1	var: up! sp@ dup
4	?branch >does-code lit or
4	;s @ ;s count
4	<> ?branch col: col:
132	execute col: col: r>
15	;s @local1 field: !
302	rdrop r> ?branch r>
12	;s col: sp@ user:
510	lit col: >r col:
561	;s swap dup col:
5923	lit and + faligned
566	@ 0< ?branch var:
1683	?branch 0> ?branch nip
568	r> col: dup field:
5	lit cells - var:
49	2dup r> -rot move
5	<> ?branch @local1 col:
1512	(type) ;s @local1 does:
1	drop ;s branch col:
125	col: faligned dup col:
22	;s r> ;s ;s
36	drop r> cell+ cell+
566	lp+ ;s does: @
726	;s lp+!# ;s lp+
29	;s @local0 col: col:
8	2drop drop con: ;s
403	over swap r> col:
18	var: ;s branch col:
4	>l col: does: 2@
822	branch @ dup ?branch
316	over c@ lit -
27	col: >r sp@ r>
982	>l lp- @local1 does:
45	>r ;s var: col:
191	- con: - unloop
62	unloop ;s branch ;s
56	;s col: dup con:
5	lp+ ;s var: @
5	0<> ?branch @local1 @local1
3843	(loop) @local0 i col:
15	lp- @local1 @local1 field:
6	/ ;s lit max
663	?branch lit cells over
561	;s +! ;s move
114	defer: (type) ;s lit
283	?branch dup @ lit
822	swap col: lit +
281	branch lit (+loop) unloop
4	over c@ lit <>
3716	@ lit max col:
1	nip nip execute f*
407	user: @ over min
729	?branch @local1 col: col:
11	execute dup ;s branch
7	lit /string col: over
1	- lit cells /
60	! drop ;s col:
2	;s ?branch 2r> defer:
1	0= ?branch con: cells
13	var: 2! 2* cells
984	@local3 @local# @local# execute
17	u> ?branch lit -
3904	;s dup @local1 i
5	@local0 @local1 con: col:
2420	+! swap user: !
3716	+ col: col: col:
15	dup ?branch dup r>
18226	;s ;s dup ?branch
176	(type) ;s @local1 field:
1	var: @ dup @
63	cell+ cell+ (loop) dup
783	! ;s ;s lit
112	over does: @ +
3745	over +! @ c!
2	user: @ ?branch ;s
285	(f83find) ;s ;s var:
26	?branch @local1 field: @local1
726	! ;s lp+!# ;s
1619	@local1 col: col: col:
1	- dup ?branch r>
374	;s ! ;s col:
13	var: 2@ nip 1-
1	0> ?branch swap col:
5	con: ;s dup ?branch
331	over c@ lit =
4	c! col: col: user:
3	! defer: drop ;s
1105	! r@ swap col:
16	r> r> rot col:
767	;s lit cells col:
23	2dup lit col: >r
1105	fill ;s r> ;s
369	drop rot user: @
5	?branch 2dup 1- +
772	lp+ ;s @local3 lit
255	;s @local1 field: @
3862	dup col: col: col:
27	;s ;s ;s r>
195	lp+ ;s col: ?branch
1	f* ;s branch col:
556	>code-address ;s col: col:
5	@local0 @local1 lit col:
61	(loop) count col: user:
3837	?branch @local1 i col:
14	?branch @local1 @local0 field:
2	drop ;s drop col:
7	;s dup field: dup
3	;s ;s lit branch
8471	/string (parse-white) 2dup +
982	lp- @local1 does: @
1	nip nip execute sfloats
142	(type) ;s cr branch
8	@ 0< ?branch drop
4	1+ /string ;s ;s
8471	user: @ /string (parse-white)
27	con: ;s ;s branch
114	;s ;s defer: noop
1	var: r> ;s col:
259	;s ;s user: !
218	@ ;s does-code! ;s
10	2dup col: var: 2@
122	branch dup ?branch drop
697	@ ?branch defer: col:
1117	! lit col: col:
14	! lit col: >r
4	(parse-white) branch 2dup +
4	i col: cells var:
370	dup 0= lit and
13	@ >r col: swap
13	;s var: 2@ nip
694	! drop ;s ;s
15	field: 2! @local1 lp+
5	?branch rdrop ;s lit
2721	branch (loop) @local1 i
3904	;s @ @local1 i
376	?branch @local1 @local3 execute
16	2@ ;s col: over
60	drop ;s col: col:
12	?branch ;s col: ?dup
1	;s ! ;s branch
12	;s col: ?dup ?branch
28	and ;s dup col:
133	?branch @local1 @local# @local#
63	cell+ (loop) dup >r
191	defer: defer: col: var:
5372	+ faligned ;s r@
1	lp- con: col: >l
4	lp+2 ;s @local0 field:
16	;s ;s >l lp-
5	?branch var: @ >r
562	unloop ;s col: col:
58	;s var: @local1 col:
729	! ;s lp+2 branch
126	lit col: lit lit
5	col: var: @ 0=
90	@local0 field: @ @local1
2552	(?do) unloop drop ;s
2	;s ?branch ;s col:
8092	;s +! ;s !
14	/does-handler col: col: user:
36	swap >l >l @local3
4	;s @local2 @local1 @local3
259	lit lit ! lit
1	;s drop var: 2@
713	swap (?do) unloop ;s
8	nip execute ! ;s
4	execute col: col: >l
15	lit lit @local1 field:
135	drop ;s ;s user:
57	r> ;s ;s branch
4100	col: user: @ lit
54	0= ?branch ;s ;s
29	2@ ;s defer: (type)
45	(do) @local1 i col:
7	?branch 2drop rdrop user:
5528	col: 2dup col: var:
15	@local1 field: @ ?dup
6	0= ?branch nip ?branch
4	col: con: col: col:
124	;s con: lit !
590	move ;s col: col:
255	@ ?branch col: r>
2	lit user: ! col:
15	@local1 field: 2! @local1
44	lit @local0 field: !
49	>r dup allocate col:
1	! ;s user: col:
29	col: 0< ?branch lit
26662	@local1 @ lp+ ;s
2	?branch dup defer: col:
152	con: <> and col:
568	?dup ;s ?branch dup
191	i - count lit
2331	dup @ lit pick
2407	;s branch col: user:
93	branch >l >l @local1
1105	var: lit cells lit
36	open-file 0= ?branch rdrop
72	(?do) unloop ;s ;s
16	var: @ > ?branch
2048	col: >r tuck dabs
8	>l lp- @local3 >l
285	?dup ;s ?branch var:
12	?dup ?branch ;s col:
17	user: ! lit /string
5	r> tuck - dup
7	drop ;s col: user:
15	user: ! over c@
4	min /string rot dup
367	drop ;s ;s col:
2	user: @ ;s ;s
16	pick r@ pick r@
672	0= ?branch @local1 field:
363	;s col: lit defer:
15	@ lit (?do) lit
36	>r 2@ 2over compare
543	;s (loop) unloop ;s
5	dup ?branch 2drop r>
52	;s con: ! ;s
4	/string branch over >r
36	@local0 @local1 swap >l
6	2@ drop over field:
1	?branch swap col: user:
25	?branch 2drop col: lit
7	/string col: over c@
68	over char+ col: col:
323	col: lit (?do) count
78	con: ! col: lit
3716	r> swap >r um/mod
2588	;s col: 0= ;s
1	?branch 2drop 2dup lit
111	?branch nip ;s dup
8	= ?branch @local# @local1
4	= ?branch >does-code lit
6	lit floats col: col:
5372	r@ lit and ?branch
423	nip nip execute does:
19	var: @ ?branch lp+
1	col: >l >l does:
5	+! var: @ con:
16	;s col: drop >r
36	>l @local3 does: @
967	@local0 col: >l >l
343	;s col: r> dup
12	user: ! col: ?dup
1	;s ;s float+ dup
16	var: @ lit (?do)
5	c! 1+ col: col:
2	2r> defer: col: 2dup
14	rdrop lit branch unloop
766	>l lp- @local1 2@
44	>l @local0 @local1 !
124	dup ?branch drop user:
27	@ >r rp@ user:
30	@ ?branch @local1 field:
6	! ;s ;s @local2
116	;s @local# col: col:
3	(?do) col: dup col:
996	dup @ dup ?branch
91	dup col: con: con:
1894	?branch 0> ?branch col:
5372	faligned ;s r@ lit
1	nip execute * ;s
196	;s ;s branch dup
250	@ 1- dup 0=
13	>r user: @ user:
309	dup 0> 0= ?branch
3233	con: swap ! ;s
25	over r@ u>= ?branch
3	execute cells ;s branch
45	@ ;s ;s con:
2048	?branch ;s rot col:
15	;s dup @local1 field:
2052	+ ;s @ var:
2048	col: dup 0< ;s
22	;s ! ;s user:
7	defer: (type) ;s defer:
308	r> ;s (loop) unloop
22	@ col: dup con:
901	var: @ ?branch col:
27	rdrop ;s ;s over
16	rot col: con: <>
135	col: var: var: !
4	var: ! defer: col:
25	dup lit >= col:
1	dup user: ! user:
75	1- >r r@ col:
131	nip ;s col: user:
4	>l @local0 @local1 @local2
663	cells over = ?branch
1026	col: var: dup @
5	2dup 1- + c@
7	nip execute col: ;s
2420	con: user: @ ?dup
45	col: var: @ ?branch
44	>l >l @local1 field:
2	! dup ?branch drop
2048	pick ! ! ;s
58	>l @local0 does: @
191	dup i - count
15	con: ;s ?branch 1-
5	?branch drop defer: col:
21	over = ?branch dup
8475	;s 2dup >r >r
3846	@local1 branch lp+ ;s
1768	con: col: dup field:
16	! ;s rdrop ;s
5	@ 0<> ?branch @local1
1657	;s ?branch drop con:
44	@local1 ! lit @local0
4305	nip nip unloop ;s
403	over min /string over
984	?branch @local3 @local# @local#
13	user: +! user: @
199	?branch drop 2dup 2>r
3282	execute col: @ (f83find)
375	lit = ?branch toupper
892	?branch @local2 @local1 col:
191	c! var: count move
8475	r> - 1+ r>
133	@local1 @local# @local# execute
1105	+ dup @ 0<
17	branch ;s user: col:
17	/string branch ;s user:
5732	col: count lit and
9572	;s user: @ ;s
49	col: swap >r dup
1	lit (?do) i col:
5367	;s ! ;s ;s
4751	+ ;s swap col:
196	swap ! col: r>
1	2drop 2dup lit col:
4751	c@ or swap c!
369	@ um* d+ r>
770	lit ! user: col:
25	var: @ dup var:
12	;s ;s r> user:
5528	defer: col: 2dup col:
9672	>l lp- @local1 ?branch
358	lit u> ?branch dup
3	lp+2 ;s col: r@
62	unloop ;s ;s col:
16	>r r@ pick r@
11	@local1 field: @ 0<>
135	;s lit user: !
2586	lit does: swap lit
50	+ swap cmove var:
7	?branch drop ;s col:
349	defer: (type) ;s cr
191	c! ;s col: lit
191	?branch ;s ;s var:
7	branch r> user: !
8	! drop lp+!# ;s
18	faligned nip ;s -
7	?branch @local1 @local1 col:
5	@ con: >= ?branch
62	(?do) unloop ;s branch
44	@ ?branch con: branch
1699	cell+ count lit and
29	! @local0 @local1 col:
35	?branch con: min >r
7380	;s >l lp- @local1
370	;s ;s col: defer:
683	?branch rdrop ;s ;s
35	min >r var: r@
5	;s >l lp- @local2
50	r@ + swap cmove
316	dup lit u< ?branch
12	;s user: @ close-file
225	r@ col: dup 1+
191	con: - unloop ;s
6	dup 0= ?branch nip
2	;s lit lit col:
338	! ;s user: @
5312	col: dup col: col:
18	0<> ?branch lp+ ;s
95	field: @ col: col:
41	@ ;s lit cells
67	;s @local1 i col: cells
64	swap lp+ branch >l >l
253	;s drop + >r ;s
11	execute col: >r col: col:
16	;s ;s ;s r> r>
12868	@ ;s @ ;s con:
1105	r> var: @ + var:
295	(type) ;s @local1 col: >l
3716	um/mod r> swap >r um/mod
14	lp+ ;s @local0 @local1 field:
29	! ;s @local1 @local2 col:
1	! @local1 lp+2 ;s ;s
191	- count lit and +
5	dup ?branch drop defer: col:
2586	(?do) i' i - lit
976	>r ?branch rdrop ;s cell+
28	r> col: 1- tuck +
498	2dup d0= ?branch ;s col:
15	@local1 field: var: con: cells
1305	;s lp+ ;s lp+ branch
26	user: ! execute col: col:
647	over = ?branch branch drop
5	over r> tuck - dup
772	@local3 lit col: >l >l
1	execute invert ;s branch col:
2	;s over lit (?do) dup
3	?branch nip nip execute @
392	2@ drop lp+ ;s does:
250	1- dup 0= col: col:
2	branch lit pick @ ?dup
4751	col: dup col: col: con:
556	lit >code-address ;s col: col:
13	! execute col: col: r>
88	;s lp+ ;s @local3 does:
3	?branch nip nip execute cells
124	;s ;s ;s user: !
283	@ ?branch dup @ lit
150	;s r@ col: dup 1+
114	execute col: defer: noop col:
203	col: col: col: defer: defer:
6	drop branch ;s branch col:
41	;s @ ;s lit cells
27	>r user: @ >r rp@
2420	lit user: +! swap user:
5732	lit and + faligned ;s
1	>r ;s col: col: user:
1210	;s dup ?branch @local3 execute
12	- con: / ;s lit
15	user: ! over c@ lit
180	con: <> col: col: r>
904	lp- @local1 con: = ?branch
29	does: @ + 2@ ;s
1	?branch nip nip execute drop
3	;s ;s ;s ;s lit
3808	;s ! ;s ;s ;s
308	0> 0= ?branch nip ;s
1	;s nip ?branch 2dup con:
1105	xor cells >r var: lit
7935	;s defer: col: defer: col:
152	defer: (emit) ;s col: col:
2546	drop ;s defer: (type) ;s
8	>l @local1 field: @ col:
124	;s var: ! var: user:
6	?branch nip ?branch 2dup >float
2	r> var: ! ;s branch
114	2drop lp+2 ;s cr (loop)
3745	con: - lit over +!
26	@ and ?dup ?branch col:
1	nip execute col: var: col:
369	;s (loop) unloop ;s ;s
2266	swap >r ;s >r ?branch
58	+ @ ;s 0<> ?branch
820	branch @ dup ?branch 2dup
17	;s r> drop col: con:
1	tuck - lit cells /
694	user: @ ;s user: !
104	@local1 @local0 does: @ +
61	lit @local1 >l >l @local1
124	col: user: @ ;s var:
6	nip execute col: col: con:
1	var: 2@ col: col: col:
4799	cells var: @ + @
112	;s 0= ?branch @local3 col:
726	@ ;s +! ;s @local0
20	var: ! ;s over r@
225	>r cells sp@ cell+ dup
5528	col: 2dup col: var: @
27	rp@ user: ! execute col:
44	cr lp+ ;s branch lp+2
904	>l >l lp- @local1 con:
15	var: @ col: cells con:
2	@local1 ?branch lp+2 ;s var:
1	dup ?branch r> drop r>
1	open-file col: ?dup ?branch ;s
152	@ ;s over - swap
13	2@ nip 1- user: !
72	1+ r> move c! ;s
15	0= ?branch var: @ col:
1356	;s dup ?branch drop lit
2	2drop con: ;s ?branch 2r>
88	@local1 con: = ?branch con:
2	>l lp- @local1 lit col:
5	;s lp+ ;s dup @local1
6208	col: col: r> r> dup
300	+! ;s 2drop ;s ;s
5683	@ col: col: dup field:
61	d+ r> ;s (loop) count
11	@ ?branch defer: noop col:
6208	r> dup count + aligned
35	rdrop ;s swap 2dup r>
29	@local3 col: col: col: user:
407	- ;s col: lit over
218	col: r> /does-handler + col:
822	;s ;s branch @ dup
403	>r over - dup r>
41	@ ;s lit cells col:
10	con: swap ! ;s lp+2
6	dup >code-address lit = ?branch
13	>r >r ;s user: !
369	rot user: @ um* d+
13	resize col: ?dup ?branch ;s
3843	+ ;s ! (loop) @local0
15	@local1 ?branch @local0 lp+2 ;s
60	;s @ swap col: 1-
36	@ ;s var: laddr# col:
29	;s ! ;s @local3 col:
1	! ;s drop ;s user:
45	@ ;s @ ;s -
225	1+ pick >r cells sp@
1638	+ ;s ! (loop) @local2
1	2drop 2dup lit col: >r
771	nip execute col: user: @
255	1+ dup con: > col:
1	;s cr ;s ;s branch
984	dup ?branch @local3 @local# @local#
11	con: defer: noop ;s ;s
302	?branch r> user: ! ;s
195	;s lp+ ;s col: ?branch
15	con: lit (?do) var: @local1
16	;s +! ;s ;s >l
45	;s @ ;s - col:
647	= ?branch branch drop ;s
30	;s lp+ ;s cr col:
8	?branch @local# @local1 ! drop
4	;s ;s branch col: col:
11	noop col: r> dup cell+
246	rdrop ;s ;s col: lit
498	col: lit col: lit col:
1768	con: col: dup field: @
568	count lit and ;s var:
1	fp@ user: ! col: var:
75	1- >r r@ col: dup
152	<> and col: col: r>
2546	- dup @ tuck -
2533	! ;s 0= ?branch-lp+!# >l
210	+ ;s ! (loop) lit
4	nip execute col: col: >l
407	swap - ;s col: lit
194	col: aligned dup col: user:
196	lit col: r> /does-handler +
5372	col: cell+ dup c@ >r
5	dup var: <= ?branch drop
386	drop col: r> dup cell+
4	lit = ?branch >does-code lit
561	;s swap dup col: col:
2266	>r ;s >r ?branch rdrop
4	lp+ ;s @local3 @local1 field:
35	?branch con: min >r var:
1	fasin ;s branch col: sp@
27	;s ;s col: con: @
316	con: swap ! ;s over
561	;s dup faligned swap (?do)
412	dup ?branch nip nip ;s
43	;s var: @ col: col:
67	! ;s @local1 i col:
11	>r ;s @local1 con: =
5	;s drop col: r> /does-handler
1683	?branch 0> ?branch nip nip
3282	col: @ (f83find) ;s ;s
1	user: ! col: var: 2@
2422	col: ?dup ?branch ;s branch
174	>l >l lp- @local3 col:
58	lp+2 ;s @local1 does: @
1	does: col: r> dup cell+
15	@local1 var: ! var: @
1	;s branch col: con: @
4586	(do) 2dup i 2@ over
15	@local1 field: 2! @local1 lp+
1	dup ?branch 0> ?branch swap
1	nip execute invert ;s branch
2586	lit min 2dup defer: (type)
375	?branch toupper lit - dup
218	+ col: col: user: @
4751	over c@ or swap c!
15	lit @local1 field: 2! @local1
8	(loop) col: dup col: dup
15	r> - ?branch dup user:
2	2dup * allocate col: ?dup
44	con: branch ;s lit col:
3	! ;s branch col: var:
1	(loop) unloop ;s col: col:
39	?branch nip nip execute con:
112	swap col: >l >l @local0
88	lp+ ;s col: >l lp-
124	! col: col: var: dup
1	?branch 0> ?branch swap col:
20	?branch con: - dup @
498	d0= ?branch ;s col: 2drop
31	col: over swap col: col:
1	2dup con: open-file col: ?dup
4	@ ;s @ ;s count
28	rdrop ;s ;s ;s ;s
4586	lit col: drop var: dup
13	! user: @ >r >r
195	lp+2 ;s lp+ ;s col:
26	defer: (type) compare 0<> ?branch
25	cell+ tuck ! cell+ tuck
4590	;s col: col: user: @
4281	and 0= ?branch lit r@
9975	user: @ ;s user: @
5	;s f! ;s ;s ;s
4	c! ;s con: col: col:
9	?branch col: dup col: dup
12	lit ;s user: @ close-file
2426	@ ?branch col: user: @
36	@ @local0 col: >l >l
412	?branch nip nip ;s ;s
822	@ dup ?branch drop !
652	;s ;s col: col: col:
323	(?do) count col: user: @
1	swap ! ;s user: col:
216	+ @ ;s col: cells
29	?branch @local0 1+ @local1 col:
1	0= ?branch ;s dup ?branch
16	>r >r lit col: 1+
25	compare 0<> ?branch 2drop col:
250	;s ! ;s col: col:
36	0> ?branch col: r> dup
135	con: swap ! ;s con:
14	rdrop ;s nip ?branch var:
8	;s ?branch col: user: @
1	?dup ?branch ;s -rot >r
1768	col: drop con: ?branch 2dup
18	pick col: lit over 0<>
6	;s drop branch ;s branch
5189	field: @ execute col: drop
5923	count lit and + faligned
2880	;s @ dup var: =
16	@local0 branch lp+ ;s @local0
6	over field: @ 2* cells
27	?dup ?branch ;s swap 2dup
58	@local1 col: >l >l >l
5	@local1 field: 2@ col: >l
49	@local0 branch lp+ ;s @local1
976	;s cell+ tuck c@ xor
2420	?branch ;s branch lit user:
13	user: @ = ?branch r@
61	lit (do) @local0 i col:
1120	>l >l >l lp- @local1
135	var: var: ! ;s lit
13	nip execute col: col: var:
108	drop con: lp+2 ;s 0=
78	@local0 branch lp+ ;s @local3
44	;s ;s lp+ ;s @local1
15	@local1 field: lit col: >l
1	con: @local1 col: >l >l
16	r@ pick r@ pick rdrop
17	var: + @ user: !
1	! execute col: user: @
302	rdrop r> ?branch r> user:
71	>l lp- con: lit (do)
182	>l >l >l lp- @local3
116	@local# col: col: col: user:
191	lit con: (do) dup i
63	con: swap ! ;s branch
370	dup 0= lit and col:
60	@ ;s @ swap col:
191	var: count col: col: col:
360	?branch over col: cell+ dup
9	@ ;s cell+ dup faligned
44	>l >l @local1 ?branch @local0
1	?branch nip nip execute >code-address
1105	;s r> ;s tuck cell+
52	branch drop ;s ;s con:
2420	con: user: @ ?dup ?branch
124	lit ! lit col: lit
131	faligned nip ;s col: user:
4	>r ;s @local3 field: @
151	@local1 field: @ @local1 lit
2588	?branch @local# @local1 col: >l
1	@local2 @local1 field: ! @local3
152	col: col: col: con: @
540	(?do) con: col: col: col:
26	>l >l >l lp- con:
46	;s ?branch drop @local0 lp+2
50	@local1 ! lp+ ;s lp+
19	field: col: con: swap !
2997	(f83find) ;s ;s dup ?branch
15	@ lit (?do) lit @local1
5242	<> ?branch col: dup field:
41	;s +! ;s 2! ;s
5	swap c! 1+ col: col:
3933	;s @ col: >l >l
4	;s @local0 field: col: con:
30	>l >l does: 2@ ;s
4586	dup @ 1- cells over
50	tuck ! cell+ tuck !
309	branch ;s branch col: sp@
670	col: lit col: user: @
12	?branch ;s col: ?dup ?branch
8475	user: @ ;s 2dup >r
14	col: >l >l @local0 ?branch
6	r> -rot move ;s @local0
11	nip nip execute col: 1+
44	@local3 col: >l >l @local1
770	col: >l >l @local1 col:
44	! lit @local0 field: !
74	;s branch dup ?branch execute
2	code-address! ;s branch col: sp@
2	;s ?branch 2drop close-file col:
772	>l >l >l @local0 >l
2	user: @ ;s ;s branch
253	r> does: 2@ ;s drop
4867	col: >l >l @local0 @local1
195	?branch execute col: user: @
112	;s ;s 2drop branch ;s
50	dup >r 2@ dup >r
740	?branch ;s ;s col: dup
29	-rot move ;s col: col:
124	;s user: ! col: var:
14	branch unloop 0<> lit and
26630	col: col: col: user: @
191	execute col: drop col: col:
3466	;s ;s dup ?branch 0>
542	@ and ?dup ?branch 2drop
1105	cells >r var: lit cells
112	drop lp+ ;s @local1 field:
6	var: 2@ drop over field:
64	?branch @local0 1+ swap lp+
15928	@ lp+ ;s dup ?branch
7935	user: @ > ?branch ;s
280	branch ;s ;s col: lit
2	con: ;s ?branch 2drop close-file
5	>l >l @local0 @local1 lit
15	lp+2 ;s @local1 col: field:
1	cells col: swap >r dup
36	+ >r ;s @local1 @local0
6	@ min dup lit (?do)
15	con: ;s col: over swap
239	;s col: ?branch r> does:
27	col: col: user: @ ?branch
1	>l lp- col: r@ defer:
210	(loop) lit @local1 i col:
69	+ >r ;s @local0 field:
285	?dup ;s ?branch var: @
30	execute over ;s branch col:
18	lit pick col: lit over
568	@ ?dup ;s ?branch dup
5	2! ;s branch dup ?branch
1	;s ;s cr ;s ;s
1	@local1 field: ! @local3 @local1
18	field: @ var: = ?branch
124	;s var: ! ;s col:
1	;s ;s float+ dup user:
4512	@ (hashfind) ;s ;s dup
2	dup @ ?branch dup defer:
4586	+ (do) 2dup i 2@
24	;s r> user: ! rdrop
124	! var: user: ! col:
25	;s over r@ u>= ?branch
14	nip ?branch var: 2@ lit
4	dup ?branch lit /string branch
176	;s col: >l lp- col:
15	@local1 field: @local1 field: con:
27	fp@ >r col: laddr# ;s
30	lp+ ;s cr col: col:
35	min >r var: r@ cmove
15	@local1 var: @ col: >l
36	dup >r 2@ 2over compare
760	;s ;s col: col: user:
299	u< ?branch drop ;s user:
196	;s ;s lit col: r>
5	var: +! var: @ con:
23	;s ! lp+ ;s @local1
6	defer: col: cr col: col:
35	nip nip execute col: var:
67	?branch var: col: con: swap
407	does: @ col: user: @
2	?dup 0= ?branch 2dup *
17	dup ?branch drop r> col:
42	;s ;s dup 0= col:
2534	drop ;s ;s ;s ;s
6	rot field: @ ;s >r
124	;s ;s user: ! col:
124	+ ;s ! ;s lit
11	execute col: 1+ >r col:
45	branch (loop) unloop lp+ ;s
1649	branch i col: cells +
2	nip execute col: lit user:
1920	;s ! var: @local1 field:
15	var: ! var: @ @local1
15	1- i' i - unloop
29	col: 0< ?branch lit col:
8	>l lp- @local3 >l lp-
135	! ;s con: ;s ;s
617	nip nip execute col: defer:
26	?branch 2drop lp+2 ;s lp+
967	@local0 col: >l >l @local0
15	over c@ lit = ?branch
16	;s col: drop >r drop
1	@ col: >l lp- con:
6	field: 2! @local0 field: col:
4	<> ?branch col: col: 2dup
316	! ;s over c@ lit
5527	;s branch col: sp@ user:
44	;s ;s ;s col: r>
17	u> ?branch lit - dup
316	;s dup ?branch drop 2dup
2533	;s 0= ?branch-lp+!# >l lp-
135	noop user: @ user: @
5	>r var: col: con: swap
52	drop ;s ;s con: !
982	>l lp- @local1 does: @
78	@local2 @local3 col: >l >l
2048	pick col: dup @ lit
197	?branch nip ;s ?branch 2rdrop
360	col: cell+ dup col: count
16	col: >r >r lit col:
1	(?do) i col: cells var:
2533	?branch-lp+!# >l lp- @local1 col:
976	lit col: user: @ dup
3899	branch lp+ ;s dup @local1
2	?branch 2r> defer: col: 2dup
448	lit col: >l >l @local0
1	branch col: con: @ col:
1105	drop r@ @ rot !
211	does-code! ;s ;s ;s branch
370	;s ;s lit col: user:
568	>r 2dup 2dup r> col:
403	r> col: >r dup ?branch
202	;s ?branch lp+2 branch >l
29	lit var: +! lp+!# ;s
191	count move lit lit !
4	execute col: dup col: col:
1	;s ;s ;s @ col:
663	lit cells over = ?branch
146	;s col: col: col: r>
61	>r ;s @local0 field: @local1
58	@ + @ ;s 0<>
15	var: @local1 field: ! @local1
5	+! ;s f! ;s ;s
2048	! ! ;s lit pick
5	- var: over cell+ !
26	and ;s 2dup defer: (type)
4	/string ;s ;s over c@
13	nip 1- user: ! lit
848	col: dup negate user: +!
58	;s lp+2 ;s @local1 does:
54	;s lp+ ;s con: col:
74	branch dup ?branch execute col:
1105	lit and col: con: (hashkey1)
13	;s user: ! lit user:
29	(emit) ;s @local1 does: @
26	;s var: @ ?branch @local1
729	+! ;s ! ;s lp+2
5	lit ;s over r@ u>=
135	lit user: ! var: var:
23	2dup lit col: >r dup
44	lp+ ;s @local1 col: >l
11	execute dup ;s branch col:
1	- ;s col: col: col:
60	user: @ ;s ! drop
11	1+ >r col: r> dup
568	col: >r 2dup 2dup r>
1097	;s user: @ ;s user:
4	?branch >does-code lit or branch
566	lp+ ;s does: @ +
3904	;s @ @local1 i col:
124	user: @ ;s var: !
2	close-file col: ?dup ?branch ;s
27	>r fp@ >r col: laddr#
174	@ ;s < or and
1	execute col: col: >l >l
1	! ;s branch col: con:
13	2* cells resize col: ?dup
692	;s @ ;s dup aligned
7935	> ?branch fp@ user: @
848	negate user: +! lit over
61	>l >l con: lit (do)
1	nip nip execute lshift ;s
26	2drop lp+2 ;s lp+ ;s
29	@local0 col: col: col: user:
12	;s drop col: ?dup ?branch
1	dup 0> 0= ?branch ;s
1	execute floats ;s branch col:
108	con: ;s lit col: col:
316	swap ! ;s lit lit
2420	+! swap user: ! lit
4632	/string branch dup ?branch over
1	nip var: 2! ;s defer:
1	con: col: >l >l @local0
283	pick ! ! branch var:
6	>body user: @ ?branch col:
1	;s branch dup ?branch 2drop
29	;s @local0 field: ! @local0
5132	swap lit max lit (?do)
1746	;s ;s dup ?branch lit
8719	col: cells + ;s !
251	;s col: col: var: dup
25	rdrop ;s tuck ! cell+
2517	?branch ;s col: 2drop col:
1	;s defer: (type) branch col:
2550	! ;s col: col: user:
25	branch lp+ ;s @local0 field:
12	;s defer: (type) ;s ;s
2546	- does: swap lit max
4	;s branch col: col: user:
116	1- tuck + swap invert
44	;s con: = ?branch col:
29	! ;s @local0 col: col:
40	nip execute col: col: lit
192	;s ;s cell+ dup user:
22	;s r> ;s ;s branch
2333	and ?branch negate ;s ;s
561	0< ?branch var: @ @
54	lp+ ;s con: col: >l
195	?branch con: lp+2 ;s lp+
1	dup r> ?branch user: +!
191	i - con: - unloop
1	?branch drop ;s ;s drop
4	branch ;s (loop) col: dup
4	drop (parse-white) branch 2dup +
65	>r user: @ >r user:
15	col: >l lp- @local1 @local1
3716	um/mod r> ;s rot lit
15	@local1 field: @ ?dup 0=
16	! ;s ;s drop con:
4751	c! ;s ;s ! ;s
2266	>r swap >r ;s >r
27	laddr# ;s >r user: @
14	! lp+ ;s @local0 @local1
4	@local1 @local2 @local3 col: >l
22	;s ;s ;s col: user:
72	lit over = ?branch drop
122	! dup ?branch execute col:
2	<> ?branch rdrop ;s nip
4	move c! ;s con: col:
12	or col: dup ?branch r>
3933	cells + ;s @ col:
5	1- + c@ lit <>
1651	@local1 col: >l lp- col:
52	?branch var: @ ?branch over
1746	dup ?branch lit and ?branch
2036	col: dup 0< ;s col:
67	@ <> ?branch var: col:
6	drop over field: @ 2*
4	?branch @local1 field: @ 0<>
281	(+loop) unloop 2drop con: ;s
2407	;s dup ?branch 2drop ;s
191	defer: defer: col: var: count
9	dup faligned <> ?branch col:
14	@local1 ! lp+ ;s @local0
4	@ ?branch @local1 field: @
1105	@ over cell+ count lit
108	?branch con: ;s lit col:
4	@local2 @local1 @local3 field: @
1	swap col: col: col: user:
2	execute code-address! ;s branch col:
2880	+ ;s @ dup var:
15	?branch @local0 lp+2 ;s @local1
4	@local1 ! lp+ ;s @local2
3	;s drop ;s ;s col:
1	user: @ swap ! col:
124	;s ! ;s lit lit
4795	;s r> xor cells var:
26	;s ;s col: lit does:
2586	min 2dup defer: (type) (+loop)
12	dup ?branch r> r> user:
27	?branch ;s ;s ;s ;s
4	swap 1+ /string ;s ;s
4	@local1 ! lp+ ;s @local3
244	;s code-address! ;s con: col:
4366	lit and ?branch r> lit
22	+! ;s ! ;s user:
822	@ ?branch col: dup @
27	! ;s ;s col: con:
1	?branch con: lit ! lit
216	@ ;s col: cells +
2	! defer: drop ;s drop
13	lit user: ! user: col:
44	and ?branch @local2 @local3 col:
15	?branch var: @ col: cells
923	;s dup ?branch 2drop lp+!#
16	2@ ;s col: over swap
7	swap ! ;s branch r>
1105	col: con: (hashkey1) ;s xor
16	rot col: con: <> col:
5	lit lit col: >r dup
142	defer: (type) ;s cr branch
195	?branch @local# @local# execute col:
1	;s ;s swap col: col:
22	;s ;s r> ;s ;s
16	var: ! ;s rdrop ;s
6208	aligned >r swap >r ;s
1	?branch nip nip execute invert
1	r> drop r> col: col:
4	min /string rot dup con:
1	var: @ 0= ?branch con:
26	drop ;s ;s ;s var:
5	>r lit col: >r dup
548	lp- @local1 2@ drop lp+
730	?branch @local0 @local1 col: >l
135	! lit con: ! var:
7	! ;s ;s var: field:
16	;s ;s col: drop >r
68	over char+ col: col: user:
776	?branch @local1 field: @ @local1
5536	@local0 @local1 col: >l >l
64	nip execute col: >l >l
124	! ;s lit lit !
4795	con: (hashkey1) ;s r> xor
1727	;s ;s ;s branch col:
1	;s defer: noop var: @
1170	d0= ?branch col: user: @
1	! defer: drop ;s ;s
309	dup ?branch 2drop rdrop r>
3933	+ ;s @ col: >l
2546	- dup ! ;s col:
1	execute col: >l >l does:
4	branch col: col: user: @
18	drop r> col: col: col:
28	;s + swap r> col:
1	lit + dup user: !
766	col: >l lp- @local1 2@
784	2drop con: lp+2 ;s 0=
3259	;s ! ;s 0= ?branch-lp+!#
4	col: cells var: @ +
7	= ?branch 2drop rdrop user:
152	con: <> and col: col:
112	;s @local1 field: over does:
4	;s @ ;s ;s char+
4795	@ >r 2dup col: con:
926	+! ;s ! ;s lit
45	2dup u< ?branch = ;s
314	cells over = ?branch drop
5	?branch ;s lit cells -
9572	@ ;s user: @ ;s
143	;s col: col: col: con:
847	user: @ swap - col:
18090	col: cells + ;s @
15	@local1 field: ! var: @local1
984	;s dup ?branch @local3 @local#
16	r> r> rot col: con:
12	;s col: ?dup ?branch ;s
50	var: swap cmove 2dup var:
13	>r ;s user: ! lit
28	! ;s code-address! ;s >r
285	(f83find) ;s ;s var: @
1	?branch 2drop col: col: user:
54	con: = ?branch @local3 col:
8	;s lp+ ;s @local1 field:
31	;s swap col: col: user:
283	;s ?branch var: @ col:
3	@ ;s branch col: sp@
3	branch (+loop) i col: cells
4	;s branch dup ?branch lit
2420	lit user: ! ;s ?branch
485	dup faligned swap (?do) con:
13	col: user: @ >r col:
13	tuck 1+ 2* cells resize
15	lit + ! lit var:
752	;s ! ;s ;s lit
12	>r ;s drop col: ?dup
202	col: 0= ;s ?branch lp+2
6	/ ;s lit col: >r
4	;s @local2 @local1 @local3 field:
255	var: ! col: var: dup
5	nip nip execute col: con:
1	lshift ;s branch col: sp@
649	con: swap ! ;s lit
513	;s @local1 col: >l lp-
15	cells move lp+ ;s @local1
6	;s 0> ?branch col: col:
90	col: >l >l @local0 field:
30	>l >l lp- @local1 field:
9	= or ?branch @local1 field:
16	lit col: var: @ >
5	lit lit lit ;s over
1	>r col: lit (?do) unloop
1105	var: lit cells lit col:
17	?branch lit - dup lit
152	swap con: <> and col:
36	;s 0> ?branch col: r>
1	;s @local1 field: @ var:
729	;s lp+2 branch >l lp-
203	>l lp- @local1 field: @
26	count lit and ;s 2dup
5528	defer: col: 2dup col: var:
29	2@ ;s defer: (type) col:
316	;s user: @ 0= ?branch
14	nip r> rdrop lit branch
16	;s >body user: @ ?branch
3904	+ ;s @ @local1 i
568	var: @ col: >r 2dup
91	con: 1+ within 0= col:
4751	swap col: con: - ;s
4751	does: + c@ ;s ;s
112	@local1 field: over does: @
4512	(hashfind) ;s ;s dup ?branch
56	! ;s col: dup con:
15	?branch @local2 i col: cells
116	@ lit col: >l >l
2048	;s lit pick + (loop)
9	@local1 ! lp+ ;s field:
8	;s (loop) col: dup col:
25	cell+ tuck ! cell+ var:
23	swap c! ;s ;s ;s
14	(?do) unloop ;s ;s col:
2	execute col: var: @ 1-
11	;s ;s ;s ;s r>
4795	execute col: lit + @
2586	lit does: swap lit max
36	2@ 2over compare 0= ?branch
14	@ ;s @ ;s /does-handler
776	@local3 col: >l lp- @local1
36	@local1 field: @ @local0 col:
17	?branch @local1 field: @ var:
1	var: @ lit > ?branch
561	@ ;s +! ;s move
300	user: +! ;s 2drop ;s
58	var: @local1 col: >l >l
1	floats ;s branch col: sp@
144	con: ;s ;s ;s branch
7	col: ;s ;s branch col:
5372	;s ;s dup ?branch col:
72	field: col: >l >l @local0
59	?branch ;s col: user: @
13	cells resize col: ?dup ?branch
225	lit @local1 i col: cells
9	;s @ ;s cell+ dup
9	drop con: ;s ;s ;s
2420	?dup ?branch read-line col: ?dup
5	code-address! ;s lit col: col:
7	@ 0= ?branch 2drop con:
6208	col: r> r> dup count
15	lp- @local1 field: @ ?dup
8558	@local3 = ?branch lp+ branch
191	(do) dup i - count
5	?branch var: @ >r var:
22	@ ?branch var: @ col:
1	execute col: user: @ >r
114	(type) ;s lit col: >l
29	col: >l >l @local1 @local0
46	@local1 >l >l @local1 col:
7365	@local1 @ lp+ ;s >l
1	;s ! ;s branch col:
2420	branch lit user: +! swap
15	;s ;s lp+ ;s cr
5	?branch lp+2 ;s @local1 lit
1	?branch nip nip execute fasin
4586	over + (do) 2dup i
16	u>= ?branch col: var: @
1255	col: user: @ swap -
8475	col: defer: col: col: user:
10829	>l @local0 >l lp- @local1
58	+! ;s ! ;s var:
386	= ?branch drop col: r>
15	@ u>= ?branch drop con:
4795	var: @ + @ (hashfind)
1	! var: @ con: cells
3942	swap >r ;s count defer:
1	lit > ?branch con: lit
1	> ?branch con: lit !
1	2@ nip var: 2! ;s
174	= @local2 var: <> @local3
1	float+ dup user: ! swap
6	cell+ dup @ 0< ?branch
50	2dup var: r@ + swap
40	! ;s ;s col: var:
5	over >r lit col: >r
772	@ @local1 col: >l lp-
6	swap ! ;s ;s @local2
135	! user: ! noop ;s
4586	@ 1- cells over +
2022	+! ;s c! ;s (loop)
17	/string branch ;s user: col:
4751	+ swap does: + c@
6	@local0 field: 2! @local0 field:
2	lit user: ! col: col:
1105	col: lit fill ;s r>
4	var: swap ;s col: user:
142	lp+ ;s @local2 lit col:
2	rdrop ;s nip ?branch 2dup
16	! ;s rdrop ;s col:
16	r@ pick rdrop dup col:
7	drop ;s col: user: @
6	negate ;s ;s ;s 0=
3	nip execute cells ;s branch
13	user: ! user: @ >r
248	;s col: var: @ 1-
1	nip execute f* ;s branch
4	var: @ 0= ?branch var:
1105	;s xor cells >r var:
2	@ ;s col: lit >code-address
2	col: lit >code-address ;s ;s
276	branch ;s col: user: @
169	dup @ dup ?branch nip
17	?branch drop r> col: col:
7	cell+ cell+ (loop) unloop 2drop
2546	over - does: swap lit
4	@local3 @local1 @local2 field: @
5	>l >l @local0 @local1 con:
4	>l @local0 @local1 @local2 @local3
7	;s ;s dup field: dup
8558	?branch lp+ branch >l lp-
2	;s ;s lit lit col:
42	;s ;s ;s dup 0=
262	;s @local3 col: >l lp-
2	lit >code-address ;s ;s branch
822	2dup swap col: lit +
4998	execute col: drop con: ?branch
1	user: ! fp@ user: !
770	lit ! user: col: con:
12	close-file swap 2dup or col:
12	0< ;s r> col: >r
299	@local0 >l lp- @local1 ?branch
124	@ var: ! ;s does:
3	;s con: ! ;s branch
299	dup lit u< ?branch drop
174	@ ;s @local1 = @local2
2533	0= ?branch-lp+!# >l lp- @local1
50	cmove var: over r> +
5372	dup c@ >r col: count
10	;s 2dup col: var: 2@
88	defer: (type) ;s @local3 col:
432	;s ;s lp+ ;s col:
3846	;s ?branch @local1 branch lp+
8	;s lit > col: ?branch
76	! (loop) unloop lp+ ;s
197	?branch 2rdrop branch ;s branch
1117	! lit col: col: col:
246	;s ;s col: lit lit
9	@ ;s @ ;s cell+
83	lit over 0<> ?branch faligned
112	2drop branch ;s branch col:
561	@ @ over ! var:
114	= ?branch i col: col:
15	field: ! lp+ ;s >l
656	branch lit (+loop) 2dup i
255	con: > col: col: r>
1	! ;s user: col: con:
540	min user: ! ;s col:
1	- dup ?branch r> drop
250	rdrop ;s var: ! ;s
39	execute con: ;s branch col:
12	r> user: ! >r ;s
5	?branch 2dup 1- + c@
822	swap col: lit + dup
822	dup ?branch 2dup swap col:
25	>r ?branch rdrop ;s tuck
17	@ user: ! lit /string
24	rdrop rdrop rdrop lit ;s
142	;s lp+ ;s @local2 lit
114	?branch i col: col: dup
3716	>r lit r@ um/mod r>
135	defer: col: noop user: @
4	;s char+ c@ ;s col:
25	>= col: col: r> r>
227	col: lit over 0<> ?branch
1	col: var: 2@ 2* cells
112	cells + ;s @ swap
772	;s @local2 col: >l >l
67	;s @ <> ?branch var:
195	dup ?branch @local# @local# execute
2	nip execute col: does: 2@
5	lit lit ;s over r@
4	= ?branch >does-code lit or
56	user: ! ;s var: col:
1268	dup 0= col: col: r>
2	con: = or ?branch lp+
29	>l >l >l does: 2@
561	@ ;s dup faligned swap
3716	;s ;s 2dup d0= ?branch
116	! ;s @local# col: col:
16	;s col: var: @ ?branch
358	u> ?branch dup user: @
108	0= ?branch lp+2 ;s lp+
3745	over +! @ c! ;s
4	@ over min /string rot
113	;s ;s 0= ?branch ;s
15	con: cells cmove @local1 var:
1	cells col: lit fill ;s
1	@local1 field: ! @local1 lp+2
5	lit var: +! var: @
29	(type) col: lit defer: (emit)
14	@local0 @local1 field: col: >l
1	lit cells / ;s var:
1105	?dup 0= ?branch >r drop
20	<= ?branch con: - dup
5372	?branch col: cell+ dup c@
13	r> user: @ >r user:
46	?branch @local0 col: >l lp-
2	?branch var: @ field: @
17	dup lit u> ?branch lit
8	>l >l lp- @local3 >l
11	?branch nip nip execute dup
8475	2dup >r >r user: @
561	var: @ ! branch ;s
22	drop branch ;s ;s branch
68	r> move c! ;s col:
2048	dup lit pick col: dup
9	col: col: >l lp- lit
191	lit lit ! ;s ;s
7	2drop rdrop user: col: con:
1105	@ rot ! r@ swap
18	lit lit col: >r >r
316	r> user: ! ;s user:
28	swap invert and ;s ;s
2588	>l lp- @local1 ?branch @local#
15	+ ! lit var: +!
7	c@ lit = ?branch 2drop
12868	@ ;s con: col: col:
4751	dup @ + ;s swap
309	unloop lit branch ;s dup
42	;s dup 0= col: col:
29	>l >l @local1 @local0 does:
10	?branch nip nip execute field:
1789	?branch col: col: col: col:
637	aligned swap (?do) unloop ;s
29	@local0 field: ! @local0 @local1
29	@local1 @local2 col: swap >r
15	field: lp+ ;s var: !
663	over = ?branch lit cells
561	;s move ;s col: col:
61	r> ;s (loop) count col:
55	;s con: col: >l lp-
1768	drop con: ?branch 2dup con:
44	nip lp+ ;s col: >l
772	lp+ ;s @local2 col: >l
29	;s ;s ;s @local1 does:
1649	= ?branch @local1 branch i
1105	tuck cell+ ! r> var:
44	@ ?branch con: branch ;s
1091	@ lit r@ lit and
762	con: = ?branch @local2 @local1
116	+! ;s ! ;s @local#
1	0> ?branch swap col: user:
1105	and col: con: (hashkey1) ;s
13	1- user: ! lit col:
30	@local1 field: ! lp+ ;s
1105	swap col: lit fill ;s
39	nip execute con: ;s branch
8	con: ;s ?branch col: user:
5372	faligned ;s r@ lit and
1	;s (loop) unloop ;s col:
150	drop r> ;s r@ col:
93	(type) ;s lp+ ;s col:
498	>r col: col: col: col:
3	;s +! ;s ;s branch
1	drop ;s ;s drop col:
14	lit branch unloop 0<> lit
54	col: >l >l col: col:
3	+! ;s ;s branch col:
2	drop ;s drop col: r>
112	;s ! ;s ;s 2drop
7935	?branch fp@ user: @ >
29	defer: (type) col: lit defer:
1105	var: @ + var: @
50	2@ dup >r var: swap
542	and ?dup ?branch 2drop 2drop
15	@local0 lp+2 ;s lit <>
135	! var: col: con: swap
4795	@ execute col: lit +
2	0= ?branch 2dup * allocate
34	?branch r> cell+ cell+ (loop)
266	col: col: col: r> r>
931	lp+!# ;s ?branch @local1 @local0
1	lp+2 ;s ;s ;s branch
16872	col: user: @ ;s +!
30	unloop lp+ ;s col: col:
4	! lp+ ;s @local3 @local1
880	>l @local1 col: >l lp-
1105	cells lit col: lit pick
1105	lit + dup @ 0<
152	col: dup con: <> swap
1	;s @ ;s >r over
2168	>l lp- @local1 ?branch @local1
2	= ?branch >code-address ;s ;s
4305	nip nip unloop ;s ;s
694	user: ! drop ;s ;s
3843	;s ! (loop) @local0 i
108	@ ?branch con: ;s lit
150	move drop r> ;s r@
58	(?do) unloop ;s ;s lit
4	(loop) unloop ;s ;s branch
23	?branch col: con: @ col:
4	;s var: swap ;s col:
143	?branch 2drop lp+2 ;s cr
5	>l @local0 @local1 con: col:
15	col: does: 2@ ;s col:
1662	>r @ col: col: col:
5372	;s r@ lit and 0=
36	laddr# col: >l >l >l
84	;s cr lp+ ;s @local1
4	! lp+ ;s @local2 @local1
726	lp+!# ;s ?branch @local0 @local1
29	+! ;s ! ;s @local0
135	user: ! noop ;s col:
4	c@ ;s col: user: @
1679	@local2 i col: cells +
5	var: col: >l >l @local0
118	@local0 col: >l lp- col:
29	+! ;s ! ;s @local1
191	lit + = ?branch i
191	lit and + faligned over
360	lit and 0= ?branch ;s
897	;s ! ;s lit col:
3942	>r swap >r ;s count
52	drop ;s dup col: lit
52	drop ;s ;s col: col:
21	col: lit lit col: >r
4751	- ;s con: / col:
195	con: lp+2 ;s lp+ ;s
937	dup ?branch drop branch lit
1	@ lit > ?branch con:
1170	2dup d0= ?branch col: user:
29	+! ;s ! ;s @local3
1	(type) branch col: lit does:
5	branch ;s ;s col: col:
4751	swap does: + c@ ;s
174	var: <> @local3 col: >l
7	defer: col: 2dup lit col:
724	lp+!# ;s lp+2 ;s lp+
1	f! ;s col: r> /does-handler
14	open-file 0= ?branch nip nip
29	;s ;s ;s @local1 col:
2036	0< ;s col: lit col:
8	var: = ?branch @local1 field:
15	unloop lp+ ;s lit lit
5	?branch drop defer: col: 2dup
90	@local0 field: @ @local1 col:
61	>l con: lit (do) @local0
4	>l >l col: does: 2@
56	;s col: dup con: !
1425	col: user: @ ?dup ;s
2408	;s ?branch col: col: sp@
1	+ dup user: ! user:
320	swap ! ;s lit var:
2	con: col: >l lp- var:
3	dup @ dup ?branch 2drop
195	lp- var: @ @local1 col:
976	col: user: @ dup 0=
8837	;s @ ;s lit +
2588	@local# @local1 col: >l >l
3103	col: >l lp- col: col:
44	con: ! ;s ;s branch
23	var: 2@ lit (?do) dup
88	con: = ?branch con: col:
3904	cells + ;s @ <>
60	;s col: user: @ ;s
135	;s ;s user: ! user:
7	?branch 2dup >float ?branch 2drop
16	rdrop ;s ;s col: >r
439	execute col: col: user: @
356	;s ;s ;s col: lit
316	col: over c@ lit -
4	+ >r ;s @local3 field:
191	- con: - unloop ;s
5	;s branch ;s ;s r>
5	>= ?branch ;s lit cells
45	col: con: @ col: 2dup
197	nip ;s ?branch 2rdrop branch
8471	>r user: @ /string (parse-white)
5	?branch @local1 @local1 field: 2@
9	col: col: does: 2@ ;s
1	col: >l >l does: 2@
78	?branch faligned nip ;s user:
1	(?do) unloop 2drop drop con:
191	unloop ;s lit col: user:
15	- unloop ;s dup ?branch
45	?branch = ;s 0= ?branch
12	drop col: ?dup ?branch ;s
2420	;s con: user: @ ?dup
590	move ;s col: col: col:
218	user: @ ;s does-code! ;s
3904	+ ;s @ <> ?branch
35	@ ?branch con: min >r
15	lp- con: lit (?do) var:
412	nip nip ;s ;s dup
5	drop lit lit lit ;s
1	;s swap col: col: col:
18	(?do) unloop ;s lit col:
9	@ lit = ?branch con:
937	?branch drop branch lit (+loop)
323	lit (?do) count col: user:
369	?branch col: swap >r swap
197	0= ?branch nip ;s ?branch
109	branch ;s ;s branch col:
36	drop r> cell+ cell+ (loop)
246	drop con: lp+2 ;s col:
58	+! ;s ! ;s con:
5	execute does: 2@ ;s ;s
8558	?branch @local3 = ?branch lp+
25	col: var: @ dup lit
12	;s r> user: ! col:
890	@ ;s @local1 col: col:
31	over swap col: col: user:
848	user: +! lit over =
4	nip execute col: con: swap
26	drop ;s ;s col: lit
152	lit defer: (emit) ;s col:
4795	field: @ execute col: lit
14	! drop ;s ;s ;s
29	lp+!# ;s @local1 does: @
62	@local0 branch lp+ ;s dup
195	lp+ ;s col: ?branch r>
135	swap ! ;s con: ;s
26	lit and ;s 2dup defer:
9	@ var: ! ;s ;s
16	* 1- >r r@ pick
30	@local1 ?branch lp+!# ;s lp+2
14	?branch ;s swap 2dup r>
1	;s lp+2 ;s ;s ;s
8475	@ ;s 2dup >r >r
29	! @local0 @local1 col: >l
36	r@ cmove var: r> ;s
113	;s ;s ;s 0= ?branch
124	@ ;s var: ! var:
15	field: ! var: @local1 field:
375	lit = ?branch toupper lit
1	;s @ ;s col: col:
2586	(+loop) unloop drop ;s ;s
16	?branch rdrop ;s nip ?branch
277	nip execute col: lit col:
299	?branch drop ;s user: col:
57	0= ?branch ;s col: user:
5	2drop user: @ ?branch col:
822	col: dup @ dup ?branch
1	con: cells allocate col: ?dup
436	>r dup ?branch over c@
174	<> @local3 col: >l lp-
1	lp+2 ;s var: @ col:
186	>l >l lp- @local1 >l
15	+! var: @local1 field: !
4051	lp- @local1 ?branch drop con:
4	;s lp+2 ;s @local0 field:
1657	col: 0= ;s ?branch drop
7	;s branch r> user: !
56	;s user: ! ;s var:
320	;s lit var: ! ;s
323	col: lit (?do) count col:
1823	;s lit col: col: col:
15	cells con: ;s col: over
573	execute col: >l lp- @local1
15	;s ;s >l lp- @local1
2	;s branch @ dup @
568	?dup ;s ?branch col: cell+
1	var: 2! col: var: 2@
225	dup cell+ rot move drop
29	c! ;s ;s col: 2drop
3716	;s rot lit over <
1	;s ;s >l lp- @local2
7	;s ;s user: col: con:
316	col: col: user: @ >r
6	(?do) unloop drop ;s cr
822	! ;s ;s branch @
60	@ swap col: 1- tuck
17	;s ;s r> drop col:
2518	! ;s ;s ;s ;s
8475	r> - 1+ r> min
174	;s < or and ?branch
726	;s 0= ?branch-lp+!# drop lp+2
126	branch drop ;s ;s user:
14	?branch ;s var: swap ;s
54	cr lp+ ;s lp+ branch
360	@ u>= ?branch con: ;s
6	(type) ;s ;s ;s col:
15	var: @local1 field: ! var:
195	! swap ! col: r>
76	dup faligned swap (?do) unloop
91	within 0= col: col: r>
3	lp+2 ;s col: r@ defer:
8	lit > col: ?branch r>
7	@local1 @local1 col: field: @
1105	r@ swap col: lit fill
2	col: ?dup ?branch ;s over
5	col: var: @ 0= ?branch
319	execute col: col: col: user:
8092	@ ;s +! ;s !
6	execute >body ;s branch col:
56	- swap ! ;s col:
13	user: @ user: @ =
225	dup 1+ pick >r cells
91	?branch rdrop ;s ;s ;s
1	>r ;s var: @ col:
2	@ ?branch ;s ;s branch
4	;s ;s char+ c@ ;s
234	count defer: (type) ;s col:
255	;s @ var: @ 1+
1	var: 2@ lit (?do) unloop
1105	con: (hashkey1) ;s xor cells
142	(type) ;s cr branch lp+2
5	0<> ?branch @local1 @local1 field:
1	>l lp- con: col: >l
561	col: dup lit u> lit
556	@ ;s dup user: !
2546	(?do) unloop drop ;s defer:
17	u< ?branch @ branch 2dup
6	;s @ ;s lit floats
7	?branch lit /string col: over
14	! lit col: >r sp@
9989	;s ;s ;s dup ?branch
2	branch ;s (loop) unloop ;s
15	?branch drop con: ;s ?branch
22	?branch var: @ col: dup
17	+ @ user: ! lit
17	branch dup ?branch rdrop ;s
1779	var: col: con: swap !
3837	<> ?branch @local1 i col:
8558	= ?branch lp+ branch >l
1	compare 0<> ?branch col: col:
17	lit u< ?branch cells var:
13836	@ field: @ execute col:
566	;s does: @ + @
12	col: sp@ user: @ swap
164	col: col: con: <> col:
2586	defer: (type) (+loop) unloop drop
3282	execute col: @ (f83find) ;s
29	+ ;s @ @local1 @local0
1170	?branch col: user: @ lit
5	;s lp+2 ;s ;s branch
2	;s ?branch ;s ;s col:
3	unloop ;s ;s branch col:
4717	;s ;s dup ?branch nip
55	aligned swap (?do) con: col:
6	lit max var: @ min
3259	lp+ ;s dup col: col:
2407	branch col: user: @ ?branch
784	! user: col: con: swap
22	! ;s user: @ col:
36	>l @local1 field: @ @local0
4	@local3 field: @ col: >l
117	?branch col: user: @ ?branch
3	nip execute col: col: does:
27	;s ;s over col: lit
1662	cell+ >r @ col: col:
125	defer: noop ;s ;s branch
3837	?branch @local1 i col: cells
2546	unloop drop ;s defer: (type)
1	nip execute lshift ;s branch
111	nip ;s dup ?branch 0>
300	;s 2drop ;s ;s branch
343	;s col: r> dup cell+
5	@local1 ?branch lp+!# ;s lp+
4	@local1 @local3 field: @ col:
44	?branch @local2 @local3 col: >l
2546	dup ! ;s col: col:
42	rdrop ;s 0> ?branch col:
199	dup ?branch drop 2dup 2>r
910	(type) ;s lp+ ;s lp+
14	;s ;s var: @ col:
16	r@ pick r@ pick r@
1	! col: var: 2@ col:
1783	;s ;s 2drop ;s branch
91	con: * 1- >r r@
16	branch lp+2 ;s lp+2 ;s
2	user: ! dup ?branch drop
5242	over <> ?branch col: dup
10	execute does: col: var: dup
48	execute col: col: col: r>
152	;s over - swap !
12	sp@ user: @ swap -
2546	@ tuck - ;s r>
14	?branch @local1 @local0 field: col:
9	execute col: lit col: cells
124	var: ! ;s does: col:
1	>code-address ;s branch col: sp@
1105	;s tuck cell+ ! r>
7935	user: ! ;s dup ?branch
1	;s var: 2! col: var:
1	>r over >r lit col:
135	user: @ col: var: var:
4751	col: col: con: dup @
283	@ (hashfind) ;s ;s var:
3942	>r ;s count defer: (type)
13	execute col: col: var: dup
17	drop col: con: @ col:
3716	col: >r lit r@ um/mod
2	col: user: @ ;s ;s
52	dup col: lit over 0<>
767	lit cells col: col: user:
15	field: var: con: cells cmove
137	?branch rdrop ;s ;s lit
1	fill ;s var: @ over
152	;s ;s con: = ?branch
892	?branch @local2 @local1 col: >l
88	@ col: col: dup 0<
109	@local1 field: col: >l >l
822	?branch col: dup @ dup
28	;s code-address! ;s >r rot
2433	user: ! lit user: !
13	execute col: col: r> user:
29	lit col: col: col: col:
2721	drop branch (loop) @local1 i
1	;s @ col: col: user:
196	swap ! col: r> dup
34	! ;s ;s ;s col:
20	col: cells con: ;s ;s
762	swap c! ;s ;s col:
726	0= ?branch-lp+!# drop lp+2 ;s
2546	2drop col: col: col: user:
729	col: 0= ;s ?branch @local1
10057	col: >l >l @local0 >l
1	execute drop ;s branch col:
5	var: <= ?branch drop lit
1	;s ;s ;s swap col:
22	user: ! ;s col: con:
561	;s user: ! lit col:
112	! ;s ;s 2drop branch
15	lp- var: @ lit (?do)
1	nip nip execute invert ;s
135	lit con: ! var: col:
5	@ con: >= ?branch ;s
402	?branch 1+ user: +! ;s
135	! var: var: ! lit
5	var: @ con: >= ?branch
1	dup user: ! user: !
1	;s ;s ;s cr ;s
2880	field: i col: cells +
125	faligned dup col: user: @
27	col: laddr# ;s >r user:
29	1+ @local1 col: field: @
1091	lit and 0= ?branch @
4	(type) ;s cr col: col:
45	drop branch (loop) unloop lp+
3745	+! @ c! ;s ;s
6	<> ?branch rdrop ;s dup
4795	lit + @ >r 2dup
135	defer: col: col: con: <>
5	?branch 2drop con: ;s dup
11	nip nip execute does: col:
505	>r ?branch rdrop ;s var:
192	col: col: r> dup cell+
309	?branch 2drop rdrop r> ?branch
2	?dup ;s ?branch ;s ;s
4751	or swap c! ;s ;s
12	defer: (type) ;s col: sp@
124	! lit col: lit lit
2	pick + (loop) unloop drop
556	>code-address ;s col: col: col:
130	or and ?branch @local2 @local1
15	>l @local1 ?branch @local0 lp+2
133	col: >l >l @local0 col:
1	;s user: @ swap !
195	dup user: ! swap !
1683	dup ?branch 0> ?branch nip
44	or and ?branch @local2 @local3
41	;s ! (loop) unloop lp+2
14	@local1 ?branch @local1 @local0 field:
7	does-code! ;s ;s ;s ;s
91	dup col: con: con: 1+
322	;s lp+ ;s @local1 col:
152	dup con: <> swap con:
619	;s ;s col: dup col:
15	@local0 field: lp+ ;s var:
191	@ execute col: drop col:
4586	drop var: dup @ 1-
945	and col: ?dup ?branch ;s
308	dup 0> 0= ?branch nip
117	drop 2dup col: col: user:
36	(loop) dup >r 2@ dup
35	+! ;s ! ;s drop
15	unloop ;s dup ?branch dup
1	2drop col: col: user: @
2	0= ?branch 2drop rdrop unloop
1	col: >l lp- col: r@
15	(loop) unloop lp+ ;s lit
1	;s drop ;s user: @
2	nip execute col: lit >code-address
20	@ swap var: ! ;s
18	>r user: @ lit pick
327	nip nip execute col: lit
4	;s @local3 field: @ @local1
1920	cells + ;s ! var:
18	nip execute var: ;s branch
2002	field: @ ;s lp+ branch
4717	;s dup ?branch nip nip
12843	;s con: col: col: user:
17	/string branch dup ?branch rdrop
561	;s @ ;s user: !
26	>l >l lp- con: lit
11	;s ;s ;s r> ;s
45	;s - col: col: col:
116	tuck + swap invert and
13	+! user: @ user: !
135	;s con: ;s ;s ;s
4	@ 0= ?branch var: @
2	@ dup @ ?branch dup
11	nip nip execute dup ;s
4	?branch ;s >body @ col:
15	col: ?dup ?branch ;s var:
14	dup ?branch rdrop ;s nip
21	= ?branch dup col: r>
84	cr lp+ ;s @local1 col:
726	@ ;s @local1 >l lp-
1018	execute col: >l >l >l
17	2dup u< ?branch @ branch
1105	col: lit + dup @
647	?branch branch drop ;s ;s
36	lp+2 ;s lp+2 ;s lp+
360	@ swap branch over 0<>
1	! lit + dup user:
155	defer: (type) ;s cr lp+
1664	+ ;s @ @local3 i
285	@ execute col: col: col:
13	user: @ >r >r ;s
976	cell+ tuck c@ xor swap
34	;s lp+2 ;s lp+ ;s
191	+ = ?branch i -
4	col: col: con: col: col:
225	pick >r cells sp@ cell+
12	;s ?branch lp+2 ;s lp+
4	@local1 @local2 field: @ col:
726	;s lp+!# ;s lp+ ;s
353	+ @ ;s col: >l
2	2drop user: @ ?branch ;s
114	nip execute col: defer: noop
3933	cells + ;s @ @local1
3716	+ col: col: col: col:
15	lp+ ;s >l lp- var:
191	count col: col: col: user:
1	execute fasin ;s branch col:
255	user: @ ?branch col: r>
1	2! var: up! sp@ dup
375	toupper lit - dup lit
1	cells / ;s var: 2!
705	;s ;s col: lit col:
4	@ col: lit lit col:
12	?branch ;s r> user: !
17	;s col: r> /does-handler +
1664	cells + ;s @ @local3
12	;s col: sp@ user: @
386	over = ?branch drop col:
44	lp+ ;s branch lp+2 ;s
6	+ 2@ rot field: @
7365	@ lp+ ;s >l lp-
494	lp+ ;s @local1 col: field:
29	+! lp+!# ;s ;s branch
1	;s var: ! var: @
174	@local1 = @local2 var: <>
124	;s ;s var: @ user:
14	?branch var: 2@ lit (?do)
423	?branch nip nip execute does:
15	;s dup @local1 field: !
2586	i' i - lit min
20	;s ! ;s ;s branch
316	- dup lit u< ?branch
107	?branch ;s ;s ;s 0=
61	+ >r ;s @local1 col:
2546	max lit (?do) unloop drop
29	2@ ;s col: col: user:
7	2drop rdrop r> ?branch dnegate
142	cr branch lp+2 ;s lp+
15	;s ;s dup @local1 field:
890	;s @local1 col: col: col:
7	var: @ col: >l lp-
269	;s ;s ;s col: var:
28	rot r@ col: 1- tuck
12	2drop con: lp+2 ;s ?branch
112	;s @ swap col: >l
726	?branch drop lit col: col:
4	field: @ ?branch @local1 field:
132	col: defer: col: col: con:
276	@ ! branch ;s col:
16	;s ;s swap con: -
1	lp+ ;s @local1 lit col:
5372	lit r@ lit and ?branch
771	nip nip execute col: user:
1	nip execute dfloats ;s branch
17	branch ;s user: col: con:
469	+ @ ;s col: lit
114	@local1 field: @ lit col:
191	swap c! ;s col: lit
9	cell+ dup faligned <> ?branch
16	pick rdrop dup col: con:
1783	;s ;s ;s 2drop ;s
202	?branch lp+2 branch >l lp-
4	drop lp+!# ;s @local3 @local1
35	;s ! ;s drop ;s
155	user: ! ;s col: var:
1	user: ! lit + dup
7	;s ;s ;s ;s user:
117	?branch drop 2dup col: col:
78	nip execute col: dup col:
3716	lit max col: >r lit
1920	+ ;s ! var: @local1
191	col: defer: defer: col: var:
27	>r sp@ r> swap >r
13	@ user: @ = ?branch
1	lit (?do) unloop 2drop drop
15	field: ! lp+ ;s @local1
3	(?do) col: dup col: dup
20	nip execute col: cells con:
84	;s 0= ?branch ;s col:
117	2dup col: col: user: @
60	! r> user: ! r>
358	lit u> ?branch dup user:
1	con: swap ! ;s rp@
50	>r con: open-file 0= ?branch
1006	?branch 1- r> lit and
6	min dup lit (?do) unloop
11	var: ! ;s ;s branch
52	swap ! ;s con: @
1140	col: col: user: @ ?dup
1	2@ lit (?do) unloop 2drop
316	lit - dup lit u<
5	con: >= ?branch ;s lit
9	cell+ var: ! ;s col:
1	;s @ ;s r> tuck
152	col: col: con: @ col:
782	>l >l >l >l @local0
281	2drop con: ;s ;s ;s
1	lit ! lit col: >r
375	lit - dup lit u>
1	rp@ user: ! fp@ user:
931	con: lp+!# ;s ?branch @local0
4	! ;s lp+2 ;s @local0
15	(?do) var: @local1 field: i
13	;s col: col: r> dup
57	code-address! ;s ;s col: col:
469	;s col: lit col: lit
4777	con: lp+!# ;s ?branch @local1
8471	(parse-white) 2dup + r> -
556	;s col: lit >code-address ;s
30	nip execute over ;s branch
16	drop >r drop col: var:
1013	execute col: >l lp- col:
45	>r ;s var: col: con:
195	= ?branch con: lp+2 ;s
124	drop ;s ;s ;s user:
5372	cell+ dup c@ >r col:
1638	(loop) @local2 i col: cells
3846	?branch @local1 branch lp+ ;s
4	@ ;s col: over >r
13	;s col: var: 2@ tuck
34	2over compare 0= ?branch r>
196	(type) ;s col: lit defer:
26	lit (do) @local2 i col:
70	col: >l lp- lit @local1
15	! @local1 var: ! var:
14	;s ;s ;s ;s dup
27	?branch col: col: r> r>
4751	col: lit /mod rot +
2880	@ dup var: = ?branch
7	! ;s lit col: user:
56	var: @ ?branch col: col:
253	does: 2@ ;s drop +
14	@ ;s +! ;s does-handler!
61	>r ;s @local1 col: >l
1105	rot ! r@ swap col:
2	lit pick + (loop) unloop
67	+! ;s col: col: user:
4734	(+loop) 2dup i 2@ over
75	move drop r> ;s rdrop
11	;s col: col: 2dup lit
44	= ?branch col: col: col:
5	>l @local0 @local1 lit col:
722	swap ! ;s ;s ;s
50	dup >r con: open-file 0=
14	unloop 0<> lit and col:
1145	count defer: (type) ;s lp+
15	var: con: cells cmove @local1
111	0= ?branch nip ;s dup
568	var: @ and ?dup ?branch
29	>l >l >l >l does:
44	user: @ col: col: col:
259	lit lit ! lit col:
26	;s ;s ;s var: @
29	+! ;s 2! ;s var:
29	does: 2@ ;s col: col:
7	rdrop ;s dup 0= ?branch
4	i col: cells var: @
10	lit <> ?branch lp+ ;s
997	;s ;s ;s lp+ ;s
62	unloop ;s branch ;s ;s
7935	@ > ?branch fp@ user:
2610	@local1 does: @ + @
4	@ ;s ;s char+ c@
78	user: @ >r user: @
5	+! ;s 2! ;s branch
369	user: @ um* drop rot
5528	?branch defer: col: 2dup col:
1464	@local3 = ?branch @local1 col:
1	! ;s ;s ;s swap
4734	lit (+loop) 2dup i 2@
142	@local2 lit col: >l >l
1369	lp+ ;s lp+ branch >l
1	execute f* ;s branch col:
8471	/string (parse-white) 2dup + r>
976	?branch rdrop ;s cell+ tuck
8837	lit + aligned ;s con:
2048	col: >r tuck dabs col:
93	lp+ branch >l >l @local1
191	faligned over lit + =
2	+ (loop) unloop drop branch
5	over ! lit var: +!
152	dup col: dup con: <>
29	@local1 does: @ + 2@
45	+ >r ;s var: col:
27179	@local1 col: >l lp- @local1
144	lit over 0<> ?branch over
374	+ ;s ! ;s col:
17	- dup ?branch drop r>
1	@ ;s >r over >r
44	(emit) ;s cr col: col:
2	?dup ;s ?branch ;s col:
1	nip execute floats ;s branch
5683	var: @ col: col: dup
2	col: >l lp- @local1 lit
1638	! (loop) @local2 i col:
2002	@ ;s lp+ branch >l
15	;s lit lit @local1 field:
1	nip nip execute dfloats ;s
2	;s lp+ ;s col: r@
6	con: / ;s lit col:
360	+ faligned ;s swap c@
11	;s branch con: defer: noop
8	lp- @local3 >l lp- @local1
35	>r dup allocate col: col:
8475	2dup + r> - 1+
36	0= ?branch ;s ;s branch
29	@ + @ ;s ?branch
2546	tuck - ;s r> over
568	@ ?dup ;s ?branch col:
6	col: var: 2@ drop over
1	col: lit fill ;s var:
244	! ;s code-address! ;s con:
8	lp+ ;s lp+ ;s col:
6	>body ;s branch col: sp@
174	@ + @ ;s @local1
108	;s 0= ?branch lp+2 ;s
4	@local2 field: @ col: >l
64	branch >l >l @local1 col:
412	nip ;s ;s dup ?branch
90	>l @local0 field: @ @local1
5	;s col: r@ defer: col:
6	drop ;s cr ;s r>
6	2@ rot field: @ ;s
6	col: r@ defer: col: cr
1	0> 0= ?branch ;s dup
135	! ;s lit user: !
125	+ ;s ! ;s does:
1746	lit and ?branch nip nip
67	execute col: col: defer: defer:
174	@ + @ ;s @local3
29	lp+2 ;s cr lp+ ;s
3	con: defer: col: noop user:
14	does-handler! ;s branch con: defer:
1	2@ col: col: col: col:
3904	dup @local1 i col: cells
13	var: 2@ nip 1- user:
72	swap (?do) unloop ;s ;s
62	(?do) unloop ;s branch ;s
13	! lit user: ! user:
64	nip nip execute col: >l
196	;s ;s branch dup ?branch
35	@local1 >l lp- @local1 ?branch
6	(type) ;s defer: col: col:
191	+ faligned over lit +
360	over col: cell+ dup col:
5	var: @ >r var: col:
52	@ col: 2dup u<> ?branch
45	?branch drop branch (loop) unloop
29	;s @local1 col: lit col:
2048	?branch ;s rot col: 0<
316	2swap dup >r col: lit
114	;s cr (loop) @local1 i
1638	;s ! (loop) @local2 i
195	dup ?branch execute col: user:
1	;s dup 0= ?branch 2drop
14	@ ;s /does-handler col: col:
1940	con: swap ! ;s ;s
5	@local1 ?branch lp+2 ;s @local1
4	col: con: col: col: defer:
5688	col: col: dup field: @
36	con: open-file 0= ?branch rdrop
1616	>l lp- col: col: user:
6	@local1 col: col: >l lp-
62	swap col: col: user: @
3	branch con: defer: col: noop
11	nip nip execute col: >r
29	execute col: var: @ ?branch
5068	?branch over c@ r@ <>
316	;s dup ?branch ;s ;s
4	lp+!# ;s @local2 field: @
1683	0> ?branch nip nip execute
155	(type) ;s cr lp+ ;s
2	= or ?branch lp+ ;s
2	;s ?branch ;s col: user:
408	user: @ swap - ;s
2331	@ lit pick ! !
2586	(type) (+loop) unloop drop ;s
848	dup negate user: +! lit
5	nip nip execute does: 2@
923	dup ?branch 2drop lp+!# ;s
318	branch drop ;s ;s ;s
11	>r col: col: col: r>
56	! ;s branch ;s ;s
540	;s c! ;s (loop) unloop
52	?branch drop ;s dup col:
50	swap cmove var: over r>
218	@local1 2@ nip lp+ ;s
114	;s lit col: >l >l
1356	drop lit col: drop var:
36	?branch rdrop drop r> cell+
360	user: @ u>= ?branch con:
2546	;s con: - dup !
6	col: cell+ dup @ 0<
12	user: ! ;s ?branch ;s
3	nip nip execute cells ;s
44	2@ drop lp+ ;s col:
454	@local3 = ?branch drop con:
9	>l lp- lit @local1 !
568	2dup 2dup r> col: dup
5	@local0 @local1 lit col: >l
12	lit col: >r col: dup
205	?branch @local0 branch lp+ ;s
158	= ?branch lit floats over
1	;s nip ?branch 2dup >float
370	;s ;s col: dup lit
117	dup ?branch drop 2dup col:
5	lit <> ?branch @local1 col:
3	var: ! defer: drop ;s
28	r@ col: 1- tuck +
31	var: ! ;s ;s lit
15	lp+2 ;s lp+ ;s cr
1586	@local3 execute col: >l lp-
18	user: @ lit pick col:
13	= ?branch r@ user: +!
3716	lit over < ?branch lit
44	@local0 @local1 ! lit @local0
94	@ col: col: col: user:
40	dup @ swap con: -
1	;s >r over >r lit
8	?branch col: user: @ >r
772	2drop lp+!# ;s lp+2 ;s
46	;s 0<> ?branch @local0 col:
26786	lp- @local1 col: >l lp-
7	dup field: dup var: !
244	;s con: col: lit lit
316	user: ! ;s user: @
35	drop ;s ;s ;s branch
726	! ;s 0= ?branch-lp+!# drop
6	;s @local0 field: 2! @local0
29	! ;s @local3 col: col:
16	1- >r r@ pick r@
2	2over compare 0= ?branch 2drop
2420	?branch read-line col: ?dup ?branch
1	cr ;s ;s branch col:
15	drop con: ;s ?branch 1-
15	lit (?do) var: @local1 field:
9	;s col: col: defer: defer:
135	;s lit user: ! var:
9	u>= ?branch col: dup col:
9	r@ u>= ?branch col: dup
1701	;s col: col: col: user:
573	;s ;s lit col: col:
13	2* cells + 2! ;s
277	! ;s code-address! ;s ;s
15	field: @local1 field: con: cells
17	u<= ?branch dup user: @
40	swap con: - dup @
16	;s ;s drop con: ;s
78	faligned nip ;s user: !
144	nip execute col: col: defer:
62	swap (?do) unloop ;s branch
8	lp+2 ;s lit > col:
8	@ var: = ?branch lp+
6	;s +! ;s f! ;s
40	@ swap con: - dup
1	/string ;s var: 2! var:
316	lit lit 2swap dup >r
5	lp+!# ;s lp+ ;s dup
2546	col: 2drop col: col: col:
216	branch over 0<> ?branch over
34	! ;s drop ;s ;s
3	execute cells ;s branch col:
13	col: r> user: @ >r
1	dup ?branch rdrop ;s over
31	@local0 lp+2 ;s lit >
931	lp+2 branch >l lp- @local1
26662	>l lp- @local1 cell+ @local1
2	! col: col: user: @
7	nip ?branch 2dup >float ?branch
4078	?branch drop 2drop lit (+loop)
50	+ dup >r con: open-file
20	lp+!# ;s lp+2 ;s lp+2
174	< or and ?branch @local2
20	! lit var: +! var:
12	! r> user: ! >r
6	;s @local2 @local3 col: swap
283	! ! branch var: col:
227	0<> ?branch faligned nip ;s
300	2drop ;s ;s branch col:
369	;s ?branch col: swap >r
18	execute var: ;s branch col:
26662	@local1 cell+ @local1 @ lp+
2408	?branch col: col: sp@ user:
11256	@local0 >l lp- @local1 col:
15	lit lit @local1 field: 2!
3039	lit and ?branch ;s ;s
630	;s ! ;s ;s col:
12	swap 2dup or col: dup
12	rdrop rdrop lit ;s user:
1	var: 2@ 2* cells col:
15	;s @local1 field: ! lp+
4	;s @local2 field: @ @local1
5	drop defer: col: 2dup lit
283	+ var: @ ?branch dup
12	;s ;s r> user: !
50	+ swap cmove var: over
3	?branch defer: col: col: con:
22	! ;s col: con: @
61	con: lit (do) @local0 i
17	@ branch 2dup u< ?branch
407	col: lit over = ?branch
27	?branch rdrop ;s ;s over
1	execute col: con: 0= ?branch
672	0= ?branch @local1 field: @
29	;s @ @local1 @local0 does:
11	nip execute col: >r col:
822	@ dup ?branch 2dup swap
5	lit cells - var: over
9	col: col: col: col: con:
892	con: lp+2 ;s 0= ?branch
4	lp+ ;s @local2 @local1 @local3
2420	;s branch lit user: +!
1619	@local1 col: col: col: user:
4	dup var: ! defer: col:
5	?branch 2dup + lit swap
7365	;s >l lp- @local1 ?branch
118	! ;s lp+ ;s @local1
1768	?branch 2dup con: col: dup
2	branch @ dup ?branch 2drop
12	@ close-file swap 2dup or
772	! ;s lp+ ;s @local2
8580	@local1 col: >l >l @local0
15	! var: @local1 field: !
561	(?do) unloop ;s col: col:
303	col: lit col: >r defer:
6	defer: (type) ;s defer: col:
726	@local1 col: >l >l @local1
15	>l lp- @local1 var: @
25	var: @ dup lit >=
7	dnegate r> user: ! ;s
561	@ ;s swap dup col:
113	! ;s lit col: >r
2588	@local1 ?branch @local# @local1 col:
10	nip nip execute field: ;s
7	r> ?branch dnegate r> user:
1	r> tuck - lit cells
2546	;s con: - dup @
6	col: col: var: 2@ drop
2	?branch dup defer: col: cell+
49	2dup r> -rot move ;s
3716	rot lit over < ?branch
2	execute col: user: @ ;s
2019	rot col: 0< ?branch ;s
64	@local0 1+ swap lp+ branch
10	swap ! ;s lp+2 ;s
7	;s ;s ;s user: col:
114	dup var: = ?branch i
4	@local3 field: @ @local1 col:
73	! lp+ ;s lp+ ;s
1	drop ;s ;s ;s float+
878	! ;s var: col: con:
72	;s col: over >r rot
28	swap r> col: 1- tuck
94	@ + @ ;s var:
4	+ >r ;s lp+2 ;s
191	?dup ?branch ;s ;s var:
1	var: 2! var: up! sp@
199	?branch drop 2dup 2>r col:
15	>l lp- var: @ lit
4	@ ;s count + c!
285	;s col: user: @ ?dup
4751	;s swap col: con: -
302	r> ?branch r> user: !
15	@local1 field: con: cells move
2546	;s col: 2drop col: col:
6	;s col: col: does: 2@
1105	>r drop r@ @ rot
5	>l lp- @local2 @local1 field:
360	dup col: count lit and
152	?branch rdrop ;s ;s con:
17	cells var: + @ user:
49	swap >r dup allocate col:
498	lit col: lit col: >r
194	@ col: aligned dup col:
16	r@ u>= ?branch col: var:
2420	user: @ ?dup ?branch read-line
375	- dup lit u> ?branch
692	@ ;s dup aligned swap
5	;s lit <> ?branch @local1
1	field: ! @local1 lp+2 ;s
1	r> ?branch user: +! ;s
6	execute col: dup >code-address lit
169	branch dup @ dup ?branch
255	@ var: @ 1+ dup
72	col: over >r rot over
116	col: 1- tuck + swap
126	lit col: lit lit !
1	?branch swap col: user: @
23	;s ! lp+ ;s lp+
2	var: ! ;s ;s drop
4751	;s con: / col: col:
218	col: user: @ ;s does-code!
3904	lp+ ;s dup @local1 i
29	;s @local1 @local2 col: swap
2675	col: user: @ ?branch col:
13	;s lit col: >r sp@
27	@ >r rp@ user: !
1006	lit and ?branch 1- r>
15	;s var: ! @local1 var:
9	;s col: var: @ dup
388	col: col: var: dup @
61	(loop) count col: user: @
44	drop lp+ ;s col: >l
2	lit col: >r >r user:
2331	dup @ lit pick !
91	col: con: con: 1+ within
407	user: @ over min /string
694	@ ;s user: ! drop
6	dup lit (?do) unloop drop
15	! over c@ lit =
7	rdrop r> ?branch dnegate r>
26662	col: >l lp- @local1 cell+
124	@ user: ! dup ?branch
76	faligned swap (?do) unloop ;s
63	cell+ (loop) dup >r 2@
984	@local3 @local# @local# execute col:
46	+ ;s ! lp+ ;s
5	;s dup ?branch drop defer:
75	;s rdrop dup col: con:
8	execute ! ;s branch col:
18	@local1 field: @ var: =
4281	lit and 0= ?branch lit
1	;s rp@ user: ! fp@
29	?branch lit col: col: col:
133	@local1 @local# @local# execute col:
1	= ?branch con: @local1 col:
729	?branch @local1 col: col: col:
890	;s @ ;s @local1 col:
1	nip execute col: var: !
30	over ;s branch col: sp@
440	c! ;s ;s col: lit
17	user: ! lit /string branch
1	noop var: @ lit >
36	var: laddr# col: >l >l
72	over 1+ r> move c!
12	?dup ?branch ;s ;s r>
58	;s ;s ;s ;s @local1
15	var: = ?branch @local2 i
1105	lit fill ;s r> ;s
293	;s ;s col: var: col:
322	c! ;s ;s col: col:
6	2@ drop over field: @
2420	swap user: ! lit user:
12	con: lp+2 ;s ?branch lp+2
2766	var: = ?branch drop branch
4	>r ;s lp+2 ;s lp+
27	;s @local1 lit col: >l
16	var: @ > ?branch ;s
27	execute col: col: col: con:
2586	lit (?do) i' i -
249	! ;s does: col: var:
13	user: ! lit col: >r
30	(loop) unloop lp+ ;s col:
15	@local1 var: lit col: >l
15	field: lit col: >l >l
11	@local1 con: = or ?branch
8	lit = ?branch lit /string
397	lit col: user: @ swap
316	;s lit lit 2swap dup
3259	@ lp+ ;s dup col:
191	drop col: col: dup lit
24	r> user: ! rdrop rdrop
221	nip execute col: defer: col:
191	lit ! ;s ;s col:
20	var: <= ?branch con: -
5528	2dup col: var: @ col:
11	?branch defer: noop col: r>
1	?branch nip nip execute sfloats
2586	2dup defer: (type) (+loop) unloop
380	;s lp+ ;s col: col:
729	0= ;s ?branch @local1 col:
10	@ ?branch ! ;s ;s
5	+ lit swap c! 1+
191	?branch ;s ;s var: c!
25	col: var: @ dup var:
16	- swap lit col: 1+
5	<= ?branch drop lit lit
25	0<> ?branch 2drop col: lit
14	?dup ?branch ;s var: swap
498	col: lit col: >r col:
15	+! ;s ;s dup @local1
104	lp- @local1 ?branch lp+2 ;s
124	?branch drop user: @ col:
14	;s ;s ;s dup col:
3230	con: ?branch lit col: drop
56	swap ! ;s branch ;s
54	execute col: >l >l col:
3	cr @local1 lit col: >l
822	drop ! ;s var: col:
255	;s var: ! col: var:
30	nip nip execute over ;s
7	execute col: ;s ;s branch
13	;s swap 2dup 1+ var:
28	;s ! ;s + swap
1	;s drop var: 2@ nip
111	0> ?branch col: user: @
3182	?branch 2drop con: lp+2 ;s
8	c@ lit = ?branch lit
16	(type) ;s @local1 lit col:
1	lit fill ;s var: @
50	over r> + dup >r
4	drop + >r ;s lp+2
250	var: @ 1- dup 0=
283	?branch dup @ lit pick
937	;s dup ?branch drop branch
282	nip execute col: defer: defer:
370	;s col: dup lit u>
58	>l @local0 does: @ +
5	>r ;s @local1 lit col:
249	cells over = ?branch lit
23	col: var: @ ?branch col:
5	c@ lit <> ?branch 2dup
10	var: swap ;s 2dup col:
556	;s ! ;s code-address! ;s
1170	;s 2dup d0= ?branch col:
11	@local1 field: @ 0<> ?branch
4078	drop 2drop lit (+loop) 2dup
370	0= lit and col: ?dup
316	lit 2swap dup >r col:
498	lit col: >r col: col:
6	@ ?branch lp+ ;s lp+
9	col: lit col: cells con:
1	;s user: @ ?branch col:
15	dup user: ! over c@
45	@ col: 2dup u< ?branch
12	user: ! col: ?dup ?branch
225	cells sp@ cell+ dup cell+
4751	col: col: lit /mod rot
7935	@ > ?branch ;s defer:
48	defer: (type) ;s cr @local1
15	field: @ ?dup 0= ?branch
29	>l @local1 ?branch @local0 1+
151	@ @local1 lit col: >l
7	?branch rdrop ;s dup 0=
1	nip execute sfloats ;s branch
36	0= ?branch rdrop drop r>
13	2! ;s var: 2@ nip
114	;s defer: noop ;s ;s
8837	;s lit + aligned ;s
28	;s branch lp+2 ;s lp+
107	lp+2 ;s lp+ ;s @local1
3716	@ c! ;s ;s 2dup
15	user: @ u>= ?branch drop
46	nip execute col: lit lit
1746	and ?branch nip nip execute
4649	r@ <> ?branch lit /string
403	min /string over swap r>
360	and 0= ?branch ;s >body
2	branch @ dup @ ?branch
78	dup con: ! col: lit
75	r> ;s rdrop dup col:
4751	rot + swap does: +
6	var: @ min dup lit
13	2dup 1+ var: 2! 2*
1	;s ;s ;s ;s cr
4	lp+!# ;s lp+ ;s @local0
29	;s lit var: +! lp+!#
9	con: ;s col: col: defer:
28	;s ;s ;s lit col:
44	swap ! ;s drop branch
772	;s @local3 lit col: >l
2	lp+ ;s col: r@ defer:
46	;s @local1 @local0 does: @
53	@local1 field: @ col: >l
101	lp+!# ;s lp+ ;s @local1
33	nip execute col: var: @
12	rdrop lit ;s user: @
2835	(loop) @local1 i col: cells
8	= ?branch lp+ ;s @local1
5	;s 0= ?branch lp+ ;s
29	@local0 field: lp+ ;s ;s
124	! ;s con: lit !
2333	?branch negate ;s ;s ;s
561	u> lit and col: ?dup
72	>r rot over 1+ r>
694	lp+!# ;s lp+ ;s @local3
191	i - count lit and
36	1+ user: +! ;s user:
6	dup 0= ?branch nip ?branch
8	lp+ ;s @local1 field: @
2	?dup ?branch ;s over lit
11	defer: noop col: r> dup
1833	+ @ ;s col: col:
245	2drop lp+2 ;s col: col:
26	(do) @local2 i col: cells
3904	;s dup @local1 i col:
2048	;s rot col: 0< ?branch
1	-rot >r var: r@ cmove
548	>l lp- @local1 2@ drop
4	lp+ ;s var: @ col:
29	field: ! @local0 @local1 col:
14817	@local1 i col: cells +
76	;s ! (loop) unloop lp+
50	! cell+ tuck ! cell+
1	! ;s ;s col: user:
407	execute does: @ col: user:
360	and + faligned ;s swap
5	r> tuck - dup ?branch
23	@ ;s ?branch lp+ ;s
15	lit var: +! var: @local1
60	col: user: @ ;s !
4078	2@ over <> ?branch drop
708	col: user: @ ?branch defer:
1	user: @ >r var: @
22	col: 2dup lit col: >r
1	con: swap ! ;s user:
1512	(type) ;s @local1 does: @
7	0= ?branch 2drop con: ;s
4751	col: con: - ;s con:
344	;s ;s ;s ;s ;s
10135	col: col: col: col: user:
23	2@ lit (?do) dup >r
6	;s lit max var: @
1312	@local# @local# execute col: >l
205	;s ?branch @local0 branch lp+
35	?branch rdrop ;s swap 2dup
17	allocate col: ?dup ?branch ;s
570	field: @ execute col: col:
976	c@ xor swap c! ;s
5	@local1 ?branch lp+2 ;s col:
144	branch over 0<> ?branch faligned
17	r> drop col: con: @
87	field: @local1 field: col: >l
19187	@local1 @ lp+ ;s dup
191	var: c! var: count move
316	over c@ lit = dup
6	/ ;s lit max var:
2	con: ;s ?branch 2r> defer:
15	i' i - unloop ;s
281	con: ;s ;s ;s dup
25	2drop col: lit does: swap
594	col: cell+ count lit and
42	r> -rot move ;s col:
3843	(loop) @local0 i col: cells
4	@local2 @local1 field: col: >l
4	lp- @local2 @local1 field: col:
8	var: = ?branch lp+ ;s
1	drop + >r ;s con:
360	over 0<> ?branch over col:
26	;s 2dup defer: (type) compare
2997	@ (f83find) ;s ;s dup
14	>l >l @local0 ?branch @local1
285	@ execute col: col: user:
61	lp- lit @local1 >l >l
360	c@ lit and 0= ?branch
45	(do) @local1 i col: cells
3	;s branch con: defer: col:
2	nip nip execute code-address! ;s
2	?branch 2drop close-file col: ?dup
49	swap 2dup r> -rot move
1657	;s ?branch drop con: lp+!#
1659	?branch @local1 @local3 = ?branch
1920	! var: @local1 field: i
18	swap (?do) unloop ;s lit
63	r> cell+ cell+ (loop) dup
12	;s user: @ close-file swap
45	;s cr @local1 field: col:
60	and ;s col: user: @
2	?branch 2drop con: ;s ?branch
6	@ ;s +! ;s f!
1	execute sfloats ;s branch col:
1105	r@ @ rot ! r@
27	rdrop ;s ;s over col:
10	execute field: ;s branch col:
561	swap (?do) unloop ;s col:
17	lit /string branch ;s user:
309	branch ;s dup ?branch 2drop
410	lp+ ;s col: col: r>
152	;s ;s var: @ ?branch
29	swap ;s branch col: sp@
116	+ swap invert and ;s
6	defer: col: col: col: r>
12	col: >r col: dup 0<
1	nip execute cell+ ;s branch
1	swap ! ;s col: col:
7	;s ! ;s ;s dup
7	= dup >r ?branch lit
14	dup allocate col: ?dup ?branch
6	;s r> lit col: >r
319	dup col: user: @ swap
309	dup >r ?branch col: over
124	@local3 does: @ + @
35	user: @ ?branch con: min
4795	@ + @ (hashfind) ;s
2327	negate ;s ;s ;s dup
1	var: r> ;s col: user:
4	execute col: col: con: col:
5	cells - var: over cell+
13836	field: @ field: @ execute
6	@local2 @local3 col: swap >r
169	@ dup ?branch nip branch
5068	dup ?branch over c@ r@
28	invert and ;s dup col:
5	con: col: col: dup field:
2	code-address! ;s lit col: lit
1	(?do) unloop lit branch ;s
13	cells + 2! ;s var:
44	! ;s drop branch ;s
14	rdrop lit branch unloop 0<>
360	swap @ swap branch over
364	0= ?branch ;s >body @
12	?branch ;s ;s r> user:
29	;s ! ;s var: @
124	user: ! col: col: var:
1	dup ?branch rdrop ;s dup
13	2! 2* cells + 2!
369	um* drop rot user: @
1	defer: noop var: @ lit
2546	;s r> over - does:
122	user: ! dup ?branch execute
316	over c@ lit - dup
13	@ >r user: @ user:
113	! ;s ;s branch col:
6	defer: (type) ;s ;s ;s
890	;s ! ;s lp+ ;s
3	execute col: col: >l lp-
283	var: @ col: lit +
14	nip nip r> rdrop lit
4751	lit /mod rot + swap
7	var: field: @ col: col:
14	;s does-handler! ;s branch con:
41	@ ;s +! ;s 2!
7	@ ;s @ ;s col:
1020	lp+2 ;s lp+ branch >l
4	;s lp+ ;s @local0 field:
2048	>r tuck dabs col: col:
880	>l >l @local1 col: >l
5	field: @ 0<> ?branch @local1
152	rdrop ;s ;s con: =
114	i col: col: dup 0<
4	lit > ?branch @local0 @local1
45	;s @local1 field: @ @local1
195	@local1 @local3 = ?branch con:
135	@ col: var: var: !
4	>code-address ;s ;s branch col:
4	0= ?branch var: @ over
2048	pick ! ! ;s lit
403	/string over swap r> col:
435	branch ;s ;s ;s branch
15	var: lit col: >l >l
100	col: col: col: lit lit
10	field: ;s branch col: sp@
2546	col: col: user: @ lit
9	faligned <> ?branch col: r>
1	nip nip execute floats ;s
281	drop branch lit (+loop) unloop
29678	col: user: @ ;s @
561	col: dup col: col: col:
485	faligned swap (?do) con: col:
561	+! ;s c! ;s col:
454	= ?branch drop con: lp+2
133	>l >l @local0 col: >l
6	-rot move ;s @local0 field:
5	?branch drop lit lit lit
191	;s lit col: lit con:
11	branch ;s ;s r> ;s
16	cell+ var: ! ;s rdrop
1664	;s @ @local3 i col:
44	>l >l @local1 field: @
7	2! ;s col: r> /does-handler
1	dup user: ! lit +
91	1+ within 0= col: col:
46	@ ;s 0<> ?branch @local0
45	con: var: col: con: swap
13	var: 2@ tuck 1+ 2*
5	@local0 @local1 con: col: col:
2	col: lit user: ! col:
6	user: @ ?branch col: col:
56464	col: col: user: @ ;s
2266	;s >r ?branch rdrop ;s
12	! >r ;s drop col:
124	dup ?branch drop user: @
2586	i - lit min 2dup
3716	over < ?branch lit +
15	var: @ col: >l >l
283	var: @ ?branch dup @
2583	;s lit col: col: user:
309	?branch col: over c@ lit
3	;s lit branch (+loop) i
363	;s col: lit defer: (emit)
3716	?branch lit + col: col:
10	?branch lp+ ;s lp+ branch
26662	lp- @local1 cell+ @local1 @
16	col: var: @ > ?branch
509	;s @local1 col: field: @
1	@ lit (?do) i col:
44	field: ! @local0 field: lp+
412	nip execute col: col: col:
15	>l lp- con: lit (?do)
5	;s >l lp- @local2 @local1
16	>r r@ pick r@ pick
91	con: con: 1+ within 0=
124	col: var: @ ;s does:
1662	col: r> dup cell+ >r
12	! col: ?dup ?branch ;s
1359	0= col: col: r> r>
68	;s +! ;s col: over
283	@ col: lit + dup
7	code-address! ;s ;s ;s branch
45	- col: col: col: user:
12	! ;s ?branch ;s r>
100	drop con: lp+2 ;s ?branch
46	drop + >r ;s var:
726	+! ;s ! ;s lp+!#
1	lp- con: col: >l lp-
1	nip execute fasin ;s branch
568	;s lit col: user: @
847	@ swap - col: dup
50	r> + dup >r con:
392	col: lit defer: (emit) ;s
3574	does: @ + @ ;s
1464	?branch @local1 col: field: @
1783	;s 2drop ;s branch col:
199	2>r col: col: user: @
1	+ >r ;s con: col:
1	col: user: @ col: faligned
1	var: @ dup @ ?branch
561	@ over ! var: @
5	lit <> ?branch 2dup +
110	@local1 @ lp+ ;s ?branch
17	?branch @ branch 2dup u<
4	! defer: col: cell+ dup
16	>r lit col: 1+ con:
2103	;s col: lit col: >r
1	! var: ! col: lit
46	0<> ?branch @local0 col: >l
100	execute col: col: col: lit
7	r> cell+ cell+ (loop) unloop
2880	cells + ;s @ dup
191	con: - unloop ;s ;s
638	@ cells + ;s !
25	! cell+ var: ! ;s
79	over col: lit over 0<>
8475	- 1+ r> min user:
174	lp- @local3 col: >l lp-
6	lp+ ;s ;s ;s ;s
6	nip execute col: dup >code-address
3	;s cr @local1 lit col:
1210	dup ?branch @local3 execute col:
9	lit @local1 ! lp+ ;s
16	> ?branch ;s ;s ;s
29	defer: (emit) ;s @local1 does:
23	;s lp+ ;s @local1 !
376	@local1 ?branch @local1 @local3 execute
29	var: +! lp+!# ;s ;s
49	col: swap >r dup allocate
3745	lit over +! @ c!
64	lp+ ;s ?branch @local0 1+
2	lit = ?branch >code-address ;s
5372	r@ lit and 0= ?branch
376	?branch @local1 @local3 execute col:
5	2drop r> var: ! ;s
7	;s ;s var: field: @
29	@local1 ?branch @local0 1+ @local1
5	does: 2@ ;s ;s branch
133	@local1 ?branch @local1 @local# @local#
8	drop con: ;s ?branch col:
251	lp+ ;s lp+ ;s lp+
117	+ ;s ! (loop) unloop
44	@local1 ! lit @local0 field:
360	0<> ?branch over col: cell+
1105	lit col: lit pick @
4	?branch col: col: 2dup lit
58	;s col: dup col: dup
2730	defer: (type) ;s col: lit
135	user: @ user: @ col:
18	r> col: col: col: col:
1746	?branch lit and ?branch nip
17	u< ?branch cells var: +
4	lp+!# ;s @local3 @local1 @local2
5	0= ?branch lp+ ;s dup
358	dup lit u> ?branch dup
28	and ;s dup col: col:
11	@local1 field: @ ?branch @local1
6753	cells + ;s ! (loop)
1	;s lp+ ;s @local1 lit
191	lit lit ! ;s lit
36	user: +! ;s user: @
5	c! 1+ col: col: col:
1783	?branch 0> ?branch col: col:
36	;s var: laddr# col: >l
58	var: col: col: col: user:
945	! (loop) var: @local1 field:
4	col: col: defer: col: col:
4795	+ @ >r 2dup col:
114	! ;s ;s defer: noop
6208	count + aligned >r swap
246	swap ! ;s ;s defer:
6	cells + 2@ rot field:
2	;s cell+ cell+ dup user:
7	;s var: field: @ col:
13266	col: dup field: @ field:
9572	defer: col: col: user: @
726	;s @local1 >l lp- @local1
7	;s col: >l >l @local0
1	field: ! @local3 @local1 field:
4586	var: dup @ 1- cells
225	rot move drop r> ;s
1	execute col: var: ! ;s
7	2dup >float ?branch 2drop user:
26	2dup defer: (type) compare 0<>
2836	?branch nip nip execute col:
3716	r@ um/mod r> swap >r
8	?branch @local3 = ?branch @local#
125	@ col: faligned dup col:
1	@ ?branch drop ;s ;s
28	! ;s ;s ;s lit
68	+! ;s col: over >r
6	lp+2 ;s ;s branch col:
1	var: @ con: cells col:
4586	col: drop var: dup @
18	col: >r >r user: @
11	branch con: defer: noop ;s
542	2drop 2drop ;s var: @
1105	?branch @ over cell+ count
399	;s ;s branch ;s ;s
54	;s cr lp+ ;s lp+
1659	@local1 ?branch @local1 @local3 =
29	;s ! ;s var: col:
137	rdrop ;s ;s lit lit
431	;s branch ;s ;s ;s
945	lit and col: ?dup ?branch
3745	aligned ;s con: - lit
60	! drop ;s col: col:
13	user: @ user: ! user:
6	;s r> does: 2@ ;s
17	! lit /string branch ;s
976	tuck c@ xor swap c!
197	2rdrop branch ;s branch col:
29	>l @local1 @local0 does: @
67	<> ?branch var: col: con:
15	;s >l lp- var: @
72	lp+ ;s @local1 @ col:
945	+ ;s ! (loop) var:
822	dup ?branch drop ! ;s
16	?branch ;s >body user: @
384	user: @ lit = ?branch
27	lit col: >r sp@ r>
46	cells + ;s ! lp+
29	lp+!# ;s ;s branch col:
1	?dup ?branch ;s var: !
6	con: swap ! ;s col:
255	> col: col: r> r>
7935	fp@ user: @ > ?branch
5372	c@ >r col: count lit
309	0= ?branch user: @ dup
25	over r@ u>= ?branch col:
3	(type) ;s cr @local1 lit
11878	branch >l lp- @local1 col:
26	(type) ;s col: cell+ count
3039	r> lit and ?branch ;s
6	>r defer: (type) col: col:
556	col: lit >code-address ;s col:
2583	;s +! ;s c! ;s
692	;s dup aligned swap (?do)
1	var: ! col: lit lit
2052	cells + ;s @ var:
388	@ cells + ;s @
316	@ >r user: col: con:
1145	defer: (type) ;s lp+ ;s
152	lp+ ;s col: lit defer:
152	;s lp+ ;s col: lit
11	> ?branch lp+ ;s @local1
11	nip execute col: 1+ >r
39	con: ;s branch col: sp@
2	dup @ dup ?branch 2dup
16	;s swap con: - swap
338	branch drop ;s ;s col:
8475	1+ r> min user: !
72	;s lp+ ;s @local1 @
28	! ;s + swap r>
77	?branch 2drop lp+!# ;s lp+
4	> ?branch @local1 field: @
26	;s ;s var: @ field:
4305	nip unloop ;s ;s ;s
324	dup >r col: lit (?do)
6	col: cr col: col: var:
8	@local0 field: @ col: >l
15	;s lit > ?branch lp+
360	faligned ;s swap c@ lit
15	lit > ?branch lp+ ;s
15	@local1 lit + ! lit
11	>r col: r> dup cell+
5	@local1 @local1 field: 2@ col:
561	+! ;s move ;s col:
2019	0< ?branch ;s col: 2drop
6	@ ;s >r defer: (type)
592	@ ;s @ ;s swap
568	@ col: >r 2dup 2dup
3716	r> swap >r um/mod r>
2880	@local1 field: i col: cells
2420	read-line col: ?dup ?branch ;s
61	@local0 field: @local1 field: col:
15	@ @local1 lit + !
8	unloop 2drop drop con: ;s
566	@ 0< ?branch var: @
3837	;s @ <> ?branch @local1
28	lp+2 ;s lp+ ;s lp+
173	;s (loop) unloop ;s lit
194	col: user: @ col: aligned
31	;s ;s ;s col: dup
88	lp+ ;s @local3 does: @
52	con: @ col: 2dup u<>
694	?branch defer: col: col: user:
4815	@ ;s +! ;s col:
2002	col: field: @ ;s lp+
79	cells over = ?branch col:
194	drop ;s ;s ;s cell+
1	nip nip execute fasin ;s
3282	field: @ execute col: @
316	user: @ >r user: col:
68	move c! ;s col: col:
194	user: @ col: aligned dup
561	over ! var: @ !
1	@ ;s @ ;s r>
36	rdrop drop r> cell+ cell+
44	con: = ?branch col: col:
26	con: lit (do) @local2 i
1	>r ;s con: col: >l
22	col: user: @ col: col:
1	col: lit col: dup negate
15	?branch 1- i' i -
4	>body @ col: col: col:
2	over lit (?do) dup lit
285	@ ! branch ;s ;s
174	nip lp+ ;s does: @
26	?branch @local1 field: @local1 field:
124	var: user: ! col: col:
822	dup @ dup ?branch drop
5	@ over ! lit var:
17	lit - dup lit u<=
403	over - dup r> ?branch
726	lp+2 ;s lit cells col:
116	>l >l >l >l >l
408	@ swap - ;s col:
27	;s over col: lit over
225	col: dup 1+ pick >r
174	@ ;s @local3 col: >l
3846	lp+!# ;s ?branch @local1 branch
2048	lit pick col: dup @
191	?branch i - con: -
1	(type) compare 0<> ?branch col:
124	;s var: ! ;s con:
124	var: ! var: user: !
1482	;s (loop) con: col: col:
5683	col: var: @ col: col:
9	lp- lit @local1 ! lp+
255	@ 1+ dup con: >
2407	! ;s dup ?branch 2drop
309	;s dup ?branch 2drop rdrop
174	+ @ ;s @local1 =
26	@local1 field: @local1 field: col:
726	;s +! ;s @local0 >l
7	rdrop user: col: con: swap
2586	col: lit does: swap lit
16	;s ;s col: var: @
316	c@ lit = dup >r
27	>r rp@ user: ! execute
4751	swap c! ;s ;s !
152	;s var: @ ?branch con:
1	col: user: @ >r var:
2	lp+2 ;s lp+ ;s var:
45	lp- @local1 field: @ col:
29	;s @local0 col: col: col:
5	! dup @ dup ?branch
3	?branch lp+2 ;s col: r@
195	user: ! swap ! col:
403	@ ;s user: @ over
1783	2drop ;s branch col: sp@
15	(?do) lit @local1 i col:
124	;s ! ;s col: var:
1	dup @ ?branch drop ;s
299	1+ user: +! ;s 2drop
30	field: @ @local2 @local3 col:
36	open-file 0= ?branch rdrop drop
91	col: 1+ con: * 1-
4751	;s over c@ or swap
176	(type) ;s @local1 field: @
114	;s ;s defer: noop ;s
2	user: ! col: col: user:
1	drop ;s branch col: sp@
169	?branch nip branch dup @
4	@ col: >l lp- col:
4	;s lit > ?branch @local0
6208	r> r> dup count +
556	+! ;s ! ;s code-address!
1	swap ! ;s rp@ user:
2546	;s 2dup d0= ?branch ;s
6	r@ defer: col: cr col:
15	@ col: cells con: ;s
4	;s lit > ?branch @local1
17	?branch cells var: + @
4	;s @local3 @local1 @local2 field:
191	col: lit lit ! ;s
191	;s var: c! var: count
15	move lp+ ;s @local1 col:
152	;s @ ;s ;s var:
8471	defer: col: defer: col: col:
2407	2drop ;s branch col: user:
730	;s lp+2 ;s lp+ branch
3716	max col: >r lit r@
116	;s @local# col: col: col:
283	lit pick ! ! branch
2	* allocate col: ?dup ?branch
32	col: 2dup u< ?branch =
16	pick r@ pick r@ pick
3	execute col: col: does: 2@
1	?branch nip nip execute dfloats
60	con: - dup @ swap
1	-rot move ;s drop var:
5528	dup ?branch defer: col: 2dup
309	= dup >r ?branch col:
4777	>l @local0 @local1 col: >l
7	?branch dnegate r> user: !
1091	0= ?branch @ lit r@
637	dup aligned swap (?do) unloop
44	lp+ ;s @local0 lit col:
3716	c! ;s ;s 2dup d0=
4	drop lp+!# ;s @local2 field:
13	col: 2dup u< ?branch @
191	lit col: lit con: (do)
1768	2dup con: col: dup field:
5	over cell+ ! dup @
26	;s col: cell+ count lit
24	user: ! rdrop rdrop rdrop
6	2* cells + 2@ rot
7	field: @ ?branch @local1 @local1
194	aligned dup col: user: @
174	@local2 var: <> @local3 col:
36	;s @local1 @local0 field: col:
12	;s r> col: >r tuck
46	lp+ ;s ?branch drop @local0
1	f* ;s branch col: sp@
4	dup con: = ?branch drop
2586	- lit min 2dup defer:
2	unloop con: ;s ?branch 2drop
218	@ ;s does-code! ;s ;s
369	@ um* drop rot user:
561	?branch var: @ @ over
6	defer: (type) ;s r> lit
1	0= ?branch 2drop 2dup lit
4	?branch drop (parse-white) branch 2dup
2	! dup ?branch drop user:
78	con: ! col: lit over
225	cell+ rot move drop r>
4649	c@ r@ <> ?branch lit
61	(do) @local0 i col: cells
4	! drop lp+!# ;s @local2
195	lp+ ;s dup ?branch @local#
1	;s f! ;s col: r>
26	defer: (type) ;s col: cell+
45	! ;s @local1 field: @
4	! drop lp+!# ;s @local3
125	user: @ col: faligned dup
20	execute col: cells con: ;s
68	char+ col: col: user: @
1	@ ;s r> tuck -
15	>l lp- @local1 field: var:
505	?branch rdrop ;s var: !
1	con: lit ! lit col:
8475	+ r> - 1+ r>
2766	= ?branch drop branch (loop)
14	?branch @local1 ?branch @local1 @local0
7	?branch @local1 @local1 col: field:
8475	r> min user: ! ;s
568	?dup ;s ?branch dup @
12	col: dup 0< ;s r>
29	?branch nip nip execute swap
283	! branch var: col: con:
13	-rot move ;s col: var:
1	dup ?branch 2drop col: col:
35	var: r> ;s ;s branch
11	dup ;s branch col: sp@
194	cell+ dup user: ! swap
15	+ ;s ! ;s ;s
4751	c@ ;s ;s over c@
1	?branch 2dup con: open-file col:
57	r> ;s ;s branch col:
1	! user: ! user: col:
11	= @local1 con: = or
4751	/mod rot + swap does:
5528	;s dup ?branch defer: col:
112	;s 2drop branch ;s branch
119	execute col: col: r> dup
16	;s branch lp+2 ;s lp+2
253	2@ ;s drop + >r
191	col: lit con: (do) dup
5	tuck - dup ?branch 2dup
2408	! ;s ?branch col: col:
112	+ ;s @ swap col:
2546	r> over - does: swap
188	@local1 lit col: >l >l
201	over = ?branch col: r>
7	dup >r ?branch lit /string
130	and ?branch @local2 @local1 col:
23	;s ?branch lp+ ;s @local1
30	?branch lp+!# ;s lp+2 ;s
5	?branch lp+ ;s dup 0=
74	execute col: dup col: dup
23	c! ;s ;s ;s branch
12843	con: col: col: user: @
1	lp- col: r@ defer: col:
3	! noop ;s col: r>
1	@ 0= ?branch con: cells
4751	;s ;s ! ;s ;s
370	! ;s ;s col: defer:
13266	dup field: @ field: @
6	con: / ;s lit max
785	xor swap c! ;s ;s
15	@local1 @local1 field: lit col:
656	drop branch lit (+loop) 2dup
561	lit u> lit and col:
770	col: lit lit ! user:
2048	2dup d0= ?branch ;s rot
2	var: @ lit col: >l
4	@local2 field: @ @local1 col:
173	(loop) unloop ;s lit col:
22	var: @ ?branch var: @
61	>l lp- lit @local1 >l
61	field: @ col: >l lp-
11214	lp+ ;s dup ?branch @local3
10829	>l >l @local0 >l lp-
1	execute col: var: @ dup
2407	;s branch col: user: @
19	var: @ ?branch lp+ ;s
1	cmove var: r> ;s col:
360	>body @ max swap @
8	lit /string branch dup >r
536	col: defer: col: defer: col:
414	dup ?branch 2drop lp+2 ;s
870	field: @ @local1 col: >l
124	drop user: @ col: faligned
2	! ;s ;s drop col:
4	(parse-white) branch 2dup + r>
1107	lit pick @ ?dup 0=
1	var: 2@ nip var: 2!
5	1+ col: col: col: user:
88	?branch con: col: >l lp-
15	var: @ lit (?do) lit
29	execute swap ;s branch col:
1	swap col: user: @ ?branch
7935	user: @ > ?branch fp@
1105	count lit and col: con:
7	field: @ col: col: col:
16	pick r@ pick rdrop dup
13	>r user: @ user: @
5372	dup ?branch col: cell+ dup
151	field: @ @local1 lit col:
15	@local1 col: >l lp- con:
2	cr lp+ ;s var: @
15	;s ?branch 1- i' i
17	! ;s ;s r> drop
5527	branch col: sp@ user: @
36	field: @ @local0 col: >l
11670	@ ;s @ ;s lit
353	@ ;s col: >l lp-
72	lp+ ;s @local1 ! lp+
6	;s drop branch ;s (loop)
1	nip nip execute f* ;s
4	;s @ ;s col: over
20	nip nip execute col: cells
29	+ 2@ ;s defer: (type)
2721	branch (loop) @local1 i col:
210	;s ! (loop) lit @local1
7	/string col: over c@ lit
4751	+ ;s swap col: con:
1	* ;s branch col: sp@
124	col: col: lit lit !
7	;s dup field: dup var:
77	col: col: defer: col: defer:
7	nip execute col: ;s ;s
8	@ col: >l >l >l
3182	dup ?branch 2drop con: lp+2
556	;s @ ;s dup user:
13	r@ user: +! user: @
36	@local1 swap >l >l @local3
663	?branch lit cells over =
2	0= ?branch ;s ;s ;s
438	! ;s ;s col: col:
4	branch dup ?branch lit /string
54	(emit) ;s @local0 col: >l
44	lit @local0 field: ! @local0
100	con: lit ! ;s lit
36	floats over = ?branch lit
7	nip nip execute col: ;s
369	swap user: @ um* drop
50	swap cmove 2dup var: r@
1	@local1 con: col: >l >l
2	;s @ ;s col: lit
923	;s var: col: con: swap
1487	>l lp- col: col: r>
133	+ ;s @ var: !
68	c! ;s col: col: col:
3	?branch ;s ;s ;s lit
370	;s ;s col: defer: col:
982	lp- @local1 does: @ +
1	+! ;s ! ;s branch
16	;s col: >r >r user:
309	user: @ 0= ?branch user:
1	@ ;s @ ;s >r
2546	dup @ tuck - ;s
196	! col: r> dup cell+
402	- dup r> ?branch 1+
4	col: >l >l col: does:
180	col: con: <> col: col:
22	var: @ col: dup con:
1006	r@ lit and ?branch 1-
100	con: lp+2 ;s ?branch @local1
5	field: 2@ col: >l >l
10	>l >l >l @local0 @local1
1	2! ;s defer: noop var:
54	;s @local0 col: >l lp-
1	execute * ;s branch col:
1	@ dup @ ?branch drop
56	?branch var: @ ?branch col:
7935	col: sp@ user: @ >
50	>r 2@ dup >r var:
984	?branch @local3 @local# @local# execute
6	max var: @ min dup
2019	col: 0< ?branch ;s col:
14	@local0 ?branch @local1 ?branch @local1
2	execute col: lit user: !
7	0< ?branch drop ;s col:
50	@local1 @local0 field: col: >l
100	;s lit col: >r defer:
15	?branch dup user: ! over
7	field: dup var: ! defer:
14	+! ;s does-handler! ;s branch
67	swap ! ;s @local1 i
12	user: @ swap - con:
64	;s ?branch @local0 1+ swap
196	code-address! ;s ;s col: lit
694	;s user: ! drop ;s
2	;s var: @ lit col:
1	! ;s (loop) unloop ;s
9	;s col: col: col: col:
561	;s @ ;s dup faligned
45	swap ! ;s @local1 field:
4	lp+2 ;s @local0 field: col:
4	con: col: col: defer: col:
1	sfloats ;s branch col: sp@
4751	c@ or swap c! ;s
2420	?branch col: user: @ ;s
4751	;s ;s over c@ or
112	2@ drop lp+ ;s @local1
78	nip ;s user: ! ;s
10	<> ?branch lp+ ;s @local1
12	@ ;s 0<> ?branch lp+
554	;s ;s col: lit >code-address
9572	col: user: @ ;s user:
407	@ col: user: @ swap
7	user: @ 0= ?branch 2drop
133	;s @ var: ! ;s
2	;s cr lp+ ;s var:
41	(loop) unloop lp+2 ;s @local1
5	;s ;s 0= ?branch lp+
1768	con: ?branch 2dup con: col:
52	;s ;s con: ! ;s
13	var: 2! 2* cells +
6	count defer: (type) ;s r>
1	?branch execute col: lit col:
27	;s >r user: @ >r
320	lit var: ! ;s ;s
84	nip nip execute col: dup
1	?branch user: +! ;s 2drop
196	;s lit col: r> /does-handler
1105	(hashkey1) ;s xor cells >r
20	- dup @ swap var:
882	nip nip execute col: col:
2	;s ;s cell+ cell+ dup
17	;s - dup ?branch drop
3716	user: @ lit max col:
45	@ ;s ;s con: var:
556	;s dup user: ! lit
58	col: >l >l @local0 does:
22	;s user: @ col: col:
16	col: lit col: var: @
1	defer: (type) branch col: lit
542	2drop ;s var: @ field:
4	@ ?dup ;s ?branch ;s
16	execute col: col: lit col:
18	faligned nip ;s - dup
108	;s con: = ?branch var:
540	c! ;s (loop) unloop ;s
13	@ >r col: swap >r
1	?branch 2drop 2dup lit col:
5	2dup + lit swap c!
726	?branch-lp+!# drop lp+2 ;s lit
29	! ;s var: @ col:
15	var: ! @local1 var: !
132	! ;s ;s defer: col:
6	drop branch ;s ;s r>
1091	?branch @ lit r@ lit
6	field: @ 2* cells +
8	@local3 >l lp- @local1 col:
281	branch lit (+loop) unloop 2drop
847	- col: dup negate user:
14	user: ! user: col: con:
12	?branch r> r> user: !
4	char+ c@ ;s col: user:
4795	col: con: (hashkey1) ;s r>
3716	r> ;s rot lit over
1	@ swap ! col: r>
16	execute col: lit lit col:
141	nip execute col: col: user:
561	;s @ ;s swap dup
78	cr col: col: r> r>
291	lit ! ;s lit col:
4	>r user: @ over min
45	;s @ ;s ;s con:
218	/does-handler + col: col: user:
568	;s ?branch dup @ 0<
114	lp+2 ;s cr (loop) @local1
295	defer: (type) ;s @local1 col:
1664	+ ;s @ var: =
5	?branch ;s ;s 0= ?branch
14	;s ;s dup col: col:
1	nip nip execute >code-address ;s
4751	+ c@ ;s ;s over
44	lp+ ;s lp+ ;s @local0
132	@local1 col: >l lp- var:
12	@ swap - con: /
102	lp+ ;s lp+ ;s @local1
24	execute col: col: lit lit
5	2drop con: ;s dup ?branch
826	swap ! ;s ;s branch
114	defer: (type) ;s lit col:
12	swap - con: / ;s
44	@local0 field: ! @local0 field:
6	branch ;s branch col: var:
255	+ ;s @ var: @
16872	user: @ ;s +! ;s
5	;s lit swap 1+ /string
18	var: ;s branch col: sp@
50	var: r@ + swap cmove
88	lp+ ;s lp+ ;s @local3
6	>l @local0 @local1 col: col:
255	var: @ 1+ dup con:
29	?branch 2drop lp+!# ;s @local1
4362	;s lp+ branch >l lp-
1	con: open-file col: ?dup ?branch
169	dup ?branch nip branch dup
570	@ field: @ field: @
20	;s 0= ?branch ;s >body
29	;s defer: (type) col: lit
2588	lp- @local1 ?branch @local# @local1
1	nip execute does: col: r>
4496	unloop ;s ;s ;s dup
375	dup user: @ u>= ?branch
5	?branch execute var: col: >l
68	@ ;s over char+ col:
3666	lit col: col: col: user:
44	?branch con: branch ;s lit
114	cr (loop) @local1 i col:
210	! (loop) lit @local1 i
12920	lp+ branch >l lp- @local1
7	col: field: @ ;s col:
1	unloop ;s ;s branch ;s
4	swap ;s col: user: @
152	and col: col: r> r>
370	;s col: dup 0= lit
17	;s code-address! ;s ;s lit
7	cell+ (loop) unloop 2drop drop
170	branch lp+2 ;s lp+ branch
191	;s ;s var: c! var:
2046	lit pick + (loop) dup
2	defer: drop ;s drop col:
683	>r ?branch rdrop ;s ;s
197	col: con: @ col: col:
279	col: col: defer: defer: col:
4	@local0 @local1 @local2 @local3 col:
124	@ ;s does: col: var:
23	+ @ ;s ?branch lp+
27	col: >r sp@ r> swap
124	;s con: lit ! ;s
3	lit branch (+loop) i col:
4	@local3 @local1 field: col: >l
8	2drop drop con: ;s ?branch
244	con: col: lit lit !
370	col: dup 0= lit and
14	0= ?branch nip nip r>
10	;s lit <> ?branch lp+
114	count defer: (type) ;s lit
4783	>l >l @local0 @local1 col:
8	/string branch dup >r col:
1105	@ ?dup 0= ?branch >r
672	lp+2 ;s 0= ?branch @local1
1649	var: = ?branch @local1 branch
61	col: >l >l con: lit
6	! ;s lp+2 ;s ;s
16	@ > ?branch ;s ;s
8	nip nip execute ! ;s
12	?dup ?branch ;s col: ?dup
112	lp+2 ;s 0= ?branch @local3
12	r> col: >r tuck dabs
195	var: @ @local1 col: >l
1	dfloats ;s branch col: sp@
52	col: 2dup u<> ?branch drop
8092	;s +! ;s ! ;s
203	execute col: col: col: defer:
369	swap >r swap user: @
2	lp- @local1 lit col: >l
6	field: @ 0<> ?branch lp+
124	var: ! ;s con: lit
13	user: @ >r col: swap
75	drop r> ;s rdrop dup
892	@local2 @local1 col: >l >l
601	+! ;s ! ;s ;s
11	;s @local1 con: = @local1
5	execute var: col: >l >l
158	lit floats over = ?branch
176	defer: (type) ;s @local1 field:
1	?branch ;s -rot >r var:
997	;s ;s ;s ;s lp+
1	?branch ;s dup ?branch 0>
52	;s con: @ col: 2dup
1	var: up! sp@ dup user:
111	?branch nip ;s dup ?branch
4	?branch lit /string branch over
2583	lit col: col: user: @
2721	?branch drop branch (loop) @local1
186	>l lp- @local1 >l lp-
9	! lp+ ;s field: col:
1	cell+ ;s branch col: sp@
2046	pick + (loop) dup lit
7	;s code-address! ;s lit col:
4649	<> ?branch lit /string branch
1482	(loop) con: col: col: col:
29618	user: @ ;s @ ;s
188	col: >l lp- @local1 field:
29	;s ! ;s @local1 @local2
191	dup i - count lit
2046	(loop) dup lit pick col:
403	;s >r over - dup
28	swap invert and ;s dup
1	swap - ;s col: col:
52	! ;s con: @ col:
6	field: @ ;s >r defer:
15	! lp+ ;s >l lp-
9	;s branch col: var: @
12	r> user: ! col: ?dup
1	! ;s rp@ user: !
15	field: con: cells move lp+
61	@ col: >l lp- lit
132	noop ;s col: col: col:
152	over - swap ! ;s
6	cr col: col: var: 2@
360	;s swap c@ lit and
308	;s (loop) unloop lit branch
403	@ over min /string over
88	@local1 field: @ col: col:
1	lp+ ;s var: @ lit
35	allocate col: col: r> r>
360	swap branch over 0<> ?branch
7	branch r> user: ! ;s
1105	>r var: lit cells lit
22	;s ! ;s user: @
17	;s ! ;s ;s r>
18	>r >r user: @ lit
50	var: over r> + dup
375	@ lit = ?branch toupper
132	;s ;s defer: col: noop
4	+ c! col: col: user:
1	;s r> tuck - lit
638	;s col: lit col: user:
6	(type) ;s ;s col: col:
44	con: lp+2 ;s col: ?branch
2	user: @ ?branch ;s ;s
44	branch ;s lit col: col:
72	@local1 @ col: >l >l
4	r> move c! ;s con:
4751	con: - ;s con: /
50	cmove 2dup var: r@ +
29	2! ;s var: col: col:
31	;s col: over swap col:
91	rdrop dup col: con: con:
29	@ @local1 @local0 does: @
44	lp+2 ;s col: ?branch r>
6	;s ;s col: col: does:
9	;s ;s col: r> /does-handler
45	con: @ col: 2dup u<
403	>r defer: col: col: user:
5	;s over r> tuck -
27	sp@ r> swap >r fp@
133	>l @local0 col: >l lp-
36	var: r@ cmove var: r>
3	;s ;s lit (?do) col:
7	>r ?branch lit /string col:
44	;s con: ! ;s ;s
1512	defer: (type) ;s @local1 does:
45	lit (do) @local1 i col:
1	col: col: >l >l >l
187	;s branch drop ;s ;s
12	r> r> user: ! r>
3034	and ?branch ;s ;s ;s
4020	@ col: >l >l @local0
4	over min /string rot dup
561	swap dup col: col: user:
323	>r col: lit (?do) count
1	var: = ?branch con: @local1
7	count defer: (type) ;s defer:
4	?branch var: @ over !
29	lp+ ;s @local0 field: !
4	or branch ;s ;s branch
201	= ?branch col: r> dup
1105	fill ;s r> ;s tuck
257	var: ! ;s col: var:
199	2dup 2>r col: col: user:
58	;s ! ;s con: col:
60	col: >l lp- con: lit
2586	max lit (?do) i' i
26	var: @ ?branch @local1 field:
50	@local0 field: col: >l >l
2	?branch >code-address ;s ;s branch
52	;s dup col: lit over
19	and ;s ;s ;s branch
67	1+ user: +! ;s col:
5	(loop) unloop ;s ;s ;s
1999	count defer: (type) ;s @local1
1	col: var: @ col: >l
191	move lit lit ! ;s
2	drop branch ;s (loop) unloop
27	con: ;s ;s branch col:
197	;s ?branch 2rdrop branch ;s
316	! ;s user: @ 0=
1658	@ var: = ?branch @local1
1	col: var: @ dup @
88	count defer: (type) ;s @local3
15	@ var: = ?branch @local2
195	>l lp- var: @ @local1
58	! ;s con: col: col:
360	@ max swap @ swap
192	;s ;s ;s cell+ dup
2	unloop drop branch lit pick
384	count col: user: @ lit
11	?branch @local1 col: >l lp-
6	@ 2* cells + 2@
8	field: @ col: >l >l
15	var: +! var: @local1 field:
1105	?branch >r drop r@ @
218	;s does-code! ;s ;s ;s
135	;s ;s lit lit !
62	unloop ;s ;s col: col:
976	@ dup 0= col: col:
187	;s ;s ;s branch drop
122	branch dup ?branch drop user:
283	(hashfind) ;s ;s var: @
26	and ?dup ?branch col: col:
542	?branch 2drop 2drop ;s var:
3745	- lit over +! @
124	;s var: @ user: !
25	(type) compare 0<> ?branch 2drop
61	;s (loop) count col: user:
174	>l lp- @local3 col: >l
36	swap >l >l @local3 does:
230	execute col: >l >l @local0
2	?branch lp+2 ;s col: col:
73	execute col: >l >l @local1
376	@local1 @local3 execute col: >l
1	var: ! var: @ con:
8	nip execute ! ;s branch
88	= ?branch con: col: >l
9	;s field: col: con: swap
5	con: ;s dup ?branch drop
68	;s @ ;s over char+
4	;s ;s over c@ lit
54	= ?branch @local3 col: >l
1616	lp- col: col: user: @
17	lit u> ?branch lit -
402	r> ?branch 1+ user: +!
6	cr ;s r> does: 2@
35	dup allocate col: col: r>
945	;s ! (loop) var: @local1
40	- dup @ swap con:
402	dup r> ?branch 1+ user:
29	2drop lp+!# ;s @local1 does:
3716	lit + col: col: col:
454	?branch @local3 = ?branch drop
726	drop lp+2 ;s lit cells
931	?branch @local1 @local0 col: >l
122	;s branch dup ?branch drop
27	user: @ >r rp@ user:
568	;s var: @ and ?dup
4366	and ?branch r> lit and
6	move ;s @local0 field: 2!
2	;s var: ! ;s ;s
5	var: over cell+ ! dup
27	r> swap >r fp@ >r
88	;s @local1 field: @ col:
133	?branch @local1 @local# @local# execute
29	;s @local3 col: col: col:
15	lp+ ;s var: ! @local1
187	;s ;s branch drop ;s
15	;s dup ?branch dup r>
20	! ;s over r@ u>=
680	! drop ;s ;s branch
1006	and ?branch 1- r> lit
234	col: >l lp- @local1 col:
9	= ?branch con: ;s ?branch
14	;s nip ?branch var: 2@
7	(loop) unloop 2drop drop con:
2408	user: ! ;s ?branch col:
2	compare 0= ?branch 2drop rdrop
10	?branch ! ;s ;s branch
4281	0= ?branch lit r@ lit
113	defer: (emit) ;s @local1 col:
26786	>l lp- @local1 col: >l
77	execute col: col: defer: col:
1783	! ;s ;s ;s 2drop
92	@local1 ?branch lp+2 ;s lp+
4	2! @local1 lp+ ;s >l
3	lit (?do) col: dup col:
1	>r var: @ lit (?do)
419	c@ r@ <> ?branch rdrop
1482	c! ;s (loop) con: col:
1	lp+2 ;s var: @ lit
44	! @local0 field: lp+ ;s
1	lit (?do) unloop lit branch
6	lit floats col: col: user:
16	rdrop ;s ;s ;s r>
3	;s ;s lit branch (+loop)
2048	dabs col: col: col: col:
2	?branch ;s ;s col: lit
4	;s @ ;s count +
2	lit (?do) dup lit pick
281	lit (+loop) unloop 2drop con:
5372	>r col: count lit and
152	col: dup col: dup con:
822	?branch drop ! ;s var:
108	con: = ?branch var: @
16	0= ?branch ;s >body user:
15	! @local1 col: >l lp-
9	lit = ?branch con: ;s
283	branch var: col: con: swap
27	0= ?branch ;s col: var:
14	con: open-file 0= ?branch nip
1	dup ?branch execute col: lit
403	rdrop ;s >r over -
694	;s lp+ ;s @local3 lit
72	;s @local1 ! lp+ ;s
22	;s col: user: @ col:
1	?branch nip nip execute lshift
5	unloop ;s ;s ;s ;s
3301	;s dup col: col: col:
113	(emit) ;s @local1 col: >l
2048	tuck dabs col: col: col:
2588	lp+2 ;s col: 0= ;s
783	! ;s ;s lit col:
2420	user: @ ;s con: user:
218	lp- @local1 2@ nip lp+
6	;s >r defer: (type) col:
9	con: = or ?branch @local1
568	and ;s var: @ col:
561	dup col: col: user: @
28	>r rot r@ col: 1-
10	col: var: 2@ lit (?do)
1	user: ! execute col: user:
4	1+ /string ;s ;s over
5	2dup 1- + c@ lit
6	@ ;s ?branch @local1 col:
166	?branch @local3 col: >l lp-
28	code-address! ;s >r rot r@
2583	@ ;s +! ;s c!
2609	;s ;s dup ?branch drop
15	= ?branch @local2 i col:
135	var: ! ;s lit user:
1973	branch >l lp- @local1 ?branch
3	;s ;s ;s lit (?do)
4	c! col: col: user: @
772	@local2 col: >l >l @local0
3	lp+!# ;s lp+ ;s lp+
6	unloop drop ;s cr ;s
1	0< ?branch drop ;s ;s
17	dup lit u<= ?branch dup
638	cells + ;s ! ;s
4657	?branch lit /string branch dup
10	>body user: @ ?branch !
124	;s col: var: @ ;s
4	count + c! col: col:
5	- dup ?branch 2dup 1-
45	(type) ;s cr @local1 field:
15	>r ;s @local1 field: @local1
36	>l >l @local0 @local1 swap
16	;s rdrop ;s col: r>
244	code-address! ;s con: col: lit
29	;s ! ;s @local0 col:
407	nip nip execute does: @
131	nip ;s col: user: @
28	;s >r rot r@ col:
369	col: swap >r swap user:
174	;s @local1 = @local2 var:
6	(type) ;s r> lit col:
1	r> ;s col: user: @
302	2drop rdrop r> ?branch r>
370	defer: col: col: col: col:
2386	2drop con: lp+2 ;s col:
7	?branch 2drop user: @ ?branch
822	;s branch @ dup ?branch
58	+ @ ;s var: @local1
890	! ;s lit col: col:
31	lp+ ;s ;s branch col:
23	;s ;s col: user: @
169	nip branch dup @ dup
13	>r col: swap >r dup
9	@local1 branch lp+ ;s @local0
2592	;s ;s ;s ;s col:
1105	lit cells lit col: lit
8	>r ;s @local0 field: @
1	lit col: dup negate user:
2036	dup 0< ;s col: lit
293	@ @local1 col: >l >l
4	;s >body @ col: col:
16	;s ;s r> r> rot
4747	;s +! ;s col: dup
5372	+ faligned ;s r@ lit
2534	;s defer: (type) ;s col:
6	;s cr ;s r> does:
31	;s @ ;s swap col:
1	?branch nip nip execute floats
12	?dup ?branch ;s ;s ;s
398	;s ;s ;s branch ;s
312	(loop) unloop ;s ;s lit
44	2@ nip lp+ ;s col:
36	>r ;s @local1 @local0 field:
4	lit > ?branch @local1 field:
11	con: = @local1 con: =
14	;s /does-handler col: col: user:
152	<> swap con: <> and
15	! var: @ @local1 lit
8475	;s user: @ ;s 2dup
64	@ lp+ ;s ?branch @local0
135	col: noop user: @ user:
38	?branch ;s ;s branch col:
78	;s cr col: col: r>
2546	lit max lit (?do) unloop
8	@local1 ! drop lp+!# ;s
1	= ?branch @local1 con: col:
1	execute cell+ ;s branch col:
285	@ (f83find) ;s ;s var:
114	col: defer: noop col: col:
769	execute col: user: @ ?branch
12	user: @ close-file swap 2dup
2	nip execute code-address! ;s branch
2	dup defer: col: cell+ dup
52	?branch over col: lit over
58	lp+!# ;s lp+2 ;s @local1
61	@local0 col: >l lp- var:
15	lp- @local1 @local1 field: lit
931	@local1 @local0 col: >l >l
3	lp+ ;s ;s ;s branch
29	;s ! ;s lit var:
245	?branch 2drop lp+2 ;s col:
4649	lit /string branch dup ?branch
29	;s ;s @local1 col: lit
79	?branch lp+ ;s @local1 col:
18	var: ! ;s ;s ;s
6208	dup count + aligned >r
1	?branch col: col: r> dup
192	;s cell+ dup user: !
822	+ var: @ ?branch col:
2048	! ;s lit pick +
9320	2dup i 2@ over <>
308	r> ;s (loop) unloop lit
360	u>= ?branch con: ;s ?branch
7	;s code-address! ;s ;s ;s
30	execute col: lit lit !
52	- swap ! ;s con:
436	col: >r dup ?branch over
568	;s ;s var: @ and
8	;s @local0 field: @ col:
15	u>= ?branch drop con: ;s
4795	xor cells var: @ +
25	@ dup var: <= ?branch
2786	;s @ ;s lit col:
726	;s @ ;s @local1 >l
3	r> var: ! ;s ;s
6	@ ;s lit floats col:
1105	cell+ ! r> var: @
4751	@ + ;s swap col:
8	@local3 = ?branch @local# @local1
28	+! ;s ! ;s +
5	2@ ;s ;s branch col:
155	;s col: var: @ col:
320	;s col: var: col: con:
14	;s @local0 @local1 field: col:
4519	lp+ ;s dup ?branch 2drop
5	+ >r ;s @local1 lit
4	con: = ?branch drop (parse-white)
1105	+ dup @ 0< ?branch
5132	does: swap lit max lit
4586	cells over + (do) 2dup
16	rdrop ;s col: r> dup
152	(emit) ;s col: col: r>
45	@local1 field: col: >l lp-
726	lp- @local1 ?branch drop lit
10	@local0 field: col: con: swap
52	u<> ?branch drop ;s dup
69	drop + >r ;s @local0
26662	cell+ @local1 @ lp+ ;s
1666	@ col: col: col: col:
506	;s ;s lp+ ;s lp+
128	drop + >r ;s @local1
2	@local1 lp+ ;s ;s branch
1487	lp- col: col: r> r>
2588	con: lp+2 ;s col: 0=
9	cells con: ;s col: col:
1	/ ;s var: 2! col:
561	;s c! ;s col: col:
90	>l >l @local0 field: @
15	@local0 lp+2 ;s @local1 field:
4	drop + >r ;s @local3
14	r> rdrop lit branch unloop
15	;s ;s col: lit defer:
13	branch 2dup u< ?branch =
8	= ?branch lit /string branch
4795	col: lit + @ >r
13	@ user: ! user: @
1662	r> dup cell+ >r @
13	@ = ?branch r@ user:
5	cell+ ! dup @ dup
10	;s var: swap ;s 2dup
360	swap c@ lit and 0=
6	@local0 @local1 col: col: >l
4	branch 2dup u< ?branch @
158	over = ?branch lit floats
120	?branch lp+2 ;s lp+ branch
8	= ?branch @local1 field: @
5	?branch 2drop r> var: !
19	;s var: @ ?branch lp+
35	lp- @local1 ?branch lp+!# ;s
437	;s col: lit lit !
12	col: ?dup ?branch ;s col:
7	! ;s code-address! ;s lit
370	! ;s col: dup 0=
1616	@ ;s @ ;s @local1
1	;s ;s @ col: col:
7	?branch 2drop rdrop user: col:
6	?branch nip nip execute >body
316	?branch ;s ;s dup ?branch
4795	>r 2dup col: con: (hashkey1)
1	;s var: 2! var: up!
72	rot over 1+ r> move
568	;s var: @ field: @
2420	! lit user: ! ;s
59	;s lit col: 1+ con:
15	>l lp- @local1 @local1 field:
104	>l lp- @local1 ?branch lp+2
44	>l >l @local0 @local1 !
1	nip ?branch 2dup con: open-file
1	! fp@ user: ! col:
36	@local0 @local1 swap >l >l
15	dup @local1 field: ! lp+
1105	0= ?branch >r drop r@
138	! ;s ;s var: @
16	?branch ;s ;s col: drop
2407	dup ?branch 2drop ;s branch
105	?branch col: col: col: user:
822	?branch 2dup swap col: lit
5	var: @ over ! lit
25	tuck ! cell+ var: !
25	dup lit >= col: col:
142	(type) ;s lp+ ;s @local2
8837	+ aligned ;s con: -
218	r> /does-handler + col: col:
58	@ ;s var: @local1 col:
54	lit defer: (emit) ;s @local0
16	con: - swap lit col:
14	/does-handler col: col: user: @
568	?branch dup @ 0< ?branch
9	(?do) dup >r 2@ 2over
253	;s code-address! ;s ;s col:
142	lit defer: (emit) ;s @local1
30	@ @local2 @local3 col: >l
3716	col: user: @ lit max
12	0<> ?branch lp+ ;s @local1
7	>float ?branch 2drop user: @
1425	user: @ ?dup ;s ?branch
316	c@ lit - dup lit
191	defer: col: var: count col:
100	lp+2 ;s ?branch @local1 field:
5	2@ col: >l >l @local0
5	@ >r var: col: con:
9	;s cell+ dup faligned <>
14	;s +! ;s does-handler! ;s
3578	;s dup ?branch 0> ?branch
309	@ 0= ?branch user: @
1	nip execute col: con: 0=
112	over does: @ + @
369	>r swap user: @ um*
36	>r 2@ 2over compare 0=
236	execute col: lit col: >r
2546	con: - dup ! ;s
247	col: ?branch r> does: 2@
60	drop ;s col: col: user:
25	?branch 2drop col: lit does:
309	lit branch ;s dup ?branch
1	2! col: var: 2@ 2*
6	?branch lp+ ;s lp+ ;s
45	lp+!# ;s var: @ ?branch
2546	- ;s r> over -
4	>does-code lit or branch ;s
10	swap ;s 2dup col: var:
13	swap ! ;s lit col:
1	1+ /string ;s var: 2!
1950	;s ;s ;s col: col:
142	con: col: >l lp- col:
15	cells cmove @local1 var: lit
15	;s @local1 field: @local1 field:
21	cells over = ?branch dup
7	lit = ?branch 2drop rdrop
108	= ?branch var: @ ?branch
316	>r user: col: con: swap
4795	r> xor cells var: @
1431	user: col: con: swap !
15	field: ! @local1 col: >l
1105	@ 0< ?branch @ over
125	;s ! ;s does: col:
16	;s ;s ;s swap con:
45	lp- con: lit (do) @local1
9	<> ?branch col: r> dup
8	branch dup >r col: lit
15	user: ! ;s col: col:
26	lp- con: lit (do) @local2
87	;s con: col: col: col:
4	;s count + c! col:
131	;s col: user: @ swap
49	;s col: con: @ col:
50	dup >r var: swap cmove
7935	sp@ user: @ > ?branch
1	var: = ?branch @local1 con:
16	lit col: >r >r lit
12868	;s @ ;s con: col:
392	drop lp+ ;s does: @
1356	?branch drop lit col: drop
22	;s drop ;s ;s ;s
2407	?branch 2drop ;s branch col:
44	col: >l >l @local1 field:
1	;s ;s ;s ;s @
285	@ ?dup ;s ?branch var:
384	col: user: @ lit =
1482	;s c! ;s (loop) con:
7935	min user: ! ;s dup
7935	> ?branch ;s defer: col:
135	user: ! var: var: !
1488	;s ;s col: col: r>
5	;s lit cells - var:
15	col: col: 2dup lit col:
1	drop var: 2@ nip var:
1	lp+ ;s lp+ ;s var:
46	?branch drop @local0 lp+2 ;s
770	lit lit ! user: col:
316	swap ! ;s over c@
5	lp+ ;s dup 0= ?branch
135	con: ! var: col: con:
135	var: var: ! lit con:
1	user: ! user: ! user:
4366	?branch r> lit and ?branch
1	2@ 2* cells col: swap
2048	col: dup @ lit pick
1	swap 1+ /string ;s var:
1	sp@ dup user: ! lit
15	lp+ ;s lit lit @local1
5	@ dup ?branch 2drop r>
276	! branch ;s col: user:
184	! ;s ;s ;s branch
218	>l lp- @local1 2@ nip
26	field: col: >l >l >l
726	;s ?branch @local0 @local1 col:
4998	@ execute col: drop con:
4	lit /string branch over >r
78	branch lp+ ;s @local3 lit
191	var: count move lit lit
5	+! var: @ con: >=
3230	drop con: ?branch lit col:
767	cells col: col: user: @
29	;s lp+ branch >l >l
2880	var: @local1 field: i col:
4	lit or branch ;s ;s
1	dup 0= ?branch 2drop 2dup
68	;s over char+ col: col:
34	compare 0= ?branch r> cell+
726	@local1 ?branch drop lit col:
1	nip nip execute * ;s
1	col: lit (?do) unloop lit
1	invert ;s branch col: sp@
4078	2drop lit (+loop) 2dup i
174	@ + @ ;s <
5	@ 0<> ?branch @local1 @local1
5708	?branch drop con: lp+!# ;s
1	- dup r> ?branch user:
6	;s lit floats col: col:
15	field: 2! @local1 lp+ ;s
1	+! ;s f! ;s col:
45	;s con: var: col: con:
2	2drop close-file col: ?dup ?branch
6	nip execute >body ;s branch
25	@ dup lit >= col:
16	;s ;s col: >r >r
44	var: @ ?branch con: branch
2	var: ! ;s branch @
1026	col: var: dup @ cells
12	lp+2 ;s ?branch lp+2 ;s
6	;s ?branch @local1 col: >l
2766	dup var: = ?branch drop
2	?branch lp+2 ;s var: @
46	drop @local0 lp+2 ;s lit
6	;s dup 0= ?branch nip
1	0= ?branch con: cells allocate
3942	;s count defer: (type) ;s
24	! rdrop rdrop rdrop lit
12	;s 0<> ?branch lp+ ;s
9020	;s dup ?branch @local3 =
890	+! ;s ! ;s lp+
22	;s user: ! ;s col:
44	;s @local0 lit col: >l
54	>l col: col: r> r>
92	?branch lp+2 ;s lp+ ;s
2	;s ?branch var: @ field:
16	col: drop >r drop col:
1	@local1 lp+2 ;s ;s branch
1	;s - dup ?branch r>
4	/string branch over >r lit
1	col: col: user: @ swap
7935	?branch ;s defer: col: defer:
369	@ um* d+ r> ;s
31	rdrop ;s ;s ;s col:
1664	;s @ var: = ?branch
15	lp- @local1 var: @ col:
36	>r var: r@ cmove var:
124	! col: var: ! ;s
13	swap 2dup 1+ var: 2!
114	defer: noop col: col: col:
3233	col: con: swap ! ;s
3837	@local1 branch lp+ ;s dup
1	execute dfloats ;s branch col:
982	col: >l lp- @local1 does:
64	1+ swap lp+ branch >l
34	@ ;s +! ;s ;s
375	?branch dup user: @ u>=
5372	and + faligned ;s r@
23	lit (?do) dup >r 2@
568	r> col: dup field: @
29	0< ?branch lit col: col:
2036	col: col: dup 0< ;s
1649	?branch @local1 branch i col:
15	@local1 field: ! @local1 col:
191	c! ;s col: lit lit
39	nip nip execute con: ;s
3904	@local0 i col: cells +
9020	dup ?branch @local3 = ?branch
15	+ >r ;s @local1 field:
11	+ >r ;s @local1 con:
35	>r ?branch rdrop ;s swap
191	= ?branch i - con:
1	;s -rot >r var: r@
4	var: ! defer: col: cell+
15	?branch dup r> - ?branch
11	user: @ ?branch defer: noop
6	r> lit col: >r col:
1026	dup @ cells + ;s
43	var: @ col: col: col:
59	;s ;s lit col: 1+
27	col: col: col: con: <>
369	?branch con: ;s ?branch col:
13	move ;s col: var: 2@
2	or ?branch lp+ ;s @local1
255	dup con: > col: col:
3	execute @ ;s branch col:
65	@ >r user: @ >r
5	<> ?branch 2dup + lit
4751	dup col: col: con: dup
955	col: ?dup ?branch ;s ;s
3	;s ;s ;s lit branch
45	2drop lp+!# ;s var: @
1	cells allocate col: ?dup ?branch
1	! col: lit lit col:
36	>l @local0 @local1 swap >l
45	field: col: >l lp- con:
2	;s lit lit col: >r
61	@ ?branch col: col: col:
469	@ ;s col: lit col:
77	2drop lp+!# ;s lp+ ;s
5732	col: count lit and +
561	c! ;s col: col: user:
63	cell+ cell+ (loop) dup >r
6	(type) col: col: r> r>
2560	;s col: lit does: swap
566	dup @ 0< ?branch var:
12	dup 0< ;s r> col:
5	lp+2 ;s @local1 lit col:
4	con: ! ;s (loop) col:
251	! ;s col: col: var:
5	lit swap c! 1+ col:
309	user: @ dup 0> 0=
44	- swap ! ;s drop
594	cell+ count lit and ;s
36	>l @local3 does: @ +
41	! (loop) unloop lp+2 ;s
191	col: col: dup lit u>
15	- ?branch dup user: !
568	2dup r> col: dup field:
44	defer: (emit) ;s cr col:
15	var: @ @local1 lit +
60	user: @ ;s @ swap
17	- dup lit u<= ?branch
255	rdrop ;s var: ! col:
3	nip execute @ ;s branch
61	field: col: >l >l con:
4	>r >r user: @ over
78	col: dup con: ! col:
369	um* d+ r> ;s (loop)
403	over min /string over swap
225	r@ col: dup 1+ pick
4	branch over >r lit col:
370	unloop ;s ;s lit col:
1	+ >r ;s var: @
16	does: 2@ ;s col: over
2048	lit pick ! ! ;s
150	r> ;s r@ col: dup
1	@local3 @local1 field: ! @local1
2009	@local1 col: field: @ ;s
27	col: ?dup ?branch ;s swap
174	+ @ ;s @local3 col:
5	?branch lp+!# ;s lp+ ;s
4	@local1 col: >l >l col:
124	user: ! col: var: !
15	con: ;s ?branch 1- i'
2420	?dup ?branch ;s branch lit
162	@local0 does: @ + @
7	;s @local1 field: @ 0<>
16	?branch col: var: @ dup
1	execute does: col: r> dup
2	(loop) unloop drop branch lit
12	2dup or col: dup ?branch
88	field: @ col: col: dup
46	lp+ ;s @local1 @local0 does:
2	execute col: does: 2@ ;s
191	over lit + = ?branch
45	;s ;s con: var: col:
4751	/ col: col: lit /mod
729	;s ! ;s lp+2 branch
23	var: @ ?branch col: con:
52	var: @ ?branch over col:
12	lit ;s r> user: !
88	;s @local3 does: @ +
15	lp- @local1 field: var: con:
78	! col: lit over 0<>
114	noop col: col: col: r>
767	;s lit cells col: col:
1	branch dup ?branch 2drop col:
255	@ ?branch col: r> dup
29	branch >l >l @local1 ?branch
17	lit u<= ?branch dup user:
2036	lit col: >r tuck dabs
26	@ ?branch @local1 field: @local1
1105	over cell+ count lit and
16	0= ?branch ;s ;s col:
1	@ var: = ?branch con:
55	dup aligned swap (?do) con:
8	@ 0< ?branch drop ;s
1105	col: lit pick @ ?dup
369	user: @ um* d+ r>
273	var: ! ;s ;s col:
33	lit col: >r dup ?branch
20	;s lp+2 ;s lp+2 ;s
4	@local1 lp+ ;s >l lp-
135	drop ;s ;s user: !
4305	?branch nip nip unloop ;s
112	0= ?branch @local3 col: >l
6	;s var: @ col: >l
132	;s defer: col: noop user:
11	! ;s col: col: 2dup
1	var: 2! ;s defer: noop
15	lp+2 ;s lit <> ?branch
21	over = ?branch dup col:
16	drop col: var: @ dup
152	;s @ ;s over -
2534	(type) ;s col: lit does:
726	drop lit col: col: col:
6	@local3 col: swap >r dup
4	branch 2dup + r> -
4	rot dup con: = ?branch
1105	! r@ swap col: lit
3230	?branch lit col: drop var:
45	@ ;s - col: col:
7	;s 2! ;s col: r>
72	r> user: ! r> user:
112	@ swap col: >l >l
174	+ @ ;s < or
877	@local1 >l lp- @local1 col:
4	>l >l @local0 @local1 @local2
9	@local1 lp+ ;s ;s ;s
1	nip nip execute cell+ ;s
9	branch col: var: @ dup
1	defer: drop ;s ;s branch
29	@ + 2@ ;s defer:
4	defer: (type) ;s cr col:
4795	2dup col: con: (hashkey1) ;s
299	drop ;s user: col: con:
12	;s ?branch ;s r> user:
4	+ @ col: lit lit
112	field: over does: @ +
48	(loop) unloop ;s ;s col:
370	user: ! ;s col: dup
1664	@local3 i col: cells +
1664	@ @local3 i col: cells
1	defer: (type) ;s defer: (type)
5	;s con: ! ;s (loop)
6	floats col: col: user: @
568	;s var: @ col: >r
15	lit (?do) lit @local1 i
108	var: @ ?branch con: ;s
197	con: @ col: col: user:
419	r@ <> ?branch rdrop ;s
3716	< ?branch lit + col:
5	dup ?branch 2dup 1- +
14	(?do) dup >r 2@ dup
904	>l lp- @local1 con: =
7365	lp+ ;s >l lp- @local1
16	col: col: lit col: var:
1105	0< ?branch @ over cell+
4078	over <> ?branch drop 2drop
14	?branch nip nip r> rdrop
4	lp+ ;s >l lp- @local2
2588	;s col: 0= ;s ?branch
11	nip execute dup ;s branch
1	var: ! var: ! col:
60	swap invert and ;s col:
1	nip execute * ;s branch
5	rdrop ;s lit swap 1+
16	+! ;s ;s >l lp-
1	execute col: lit col: dup
4751	con: / col: col: lit
316	;s ;s dup ?branch ;s
54	lp+ ;s lp+ ;s con:
44	lit defer: (emit) ;s cr
29	nip nip execute swap ;s
135	! lit col: user: @
2408	col: col: sp@ user: @
6	2! @local0 field: col: con:
18	?branch faligned nip ;s -
561	! var: @ ! branch
54	>l >l col: col: r>
29	2drop lp+2 ;s cr lp+
2036	col: lit col: >r tuck
72	user: ! r> user: !
12	(type) ;s col: sp@ user:
3	;s lp+ ;s var: @
21	?branch dup col: r> dup
1	dup ?branch rdrop ;s >r
1210	?branch @local3 execute col: >l
216	;s col: cells + ;s
42	>r ?branch rdrop ;s 0>
58	>l >l @local0 does: @
393	;s lp+ ;s lp+ ;s
1105	@ + var: @ ?branch
1006	1- r> lit and ?branch
309	?branch user: @ dup 0>
225	sp@ cell+ dup cell+ rot
360	;s >body @ max swap
1105	dup @ 0< ?branch @
568	?branch col: cell+ count lit
561	var: @ @ over !
31	@ ;s swap col: col:
15	i - unloop ;s dup
5	;s 2! ;s branch dup
3862	dup col: col: col: user:
17	code-address! ;s ;s lit col:
360	max swap @ swap branch
196	;s ;s ;s branch dup
6	0= ?branch nip ?branch 2dup
3	con: ! ;s branch col:
142	;s cr branch lp+2 ;s
30	>l does: 2@ ;s col:
281	unloop 2drop con: ;s ;s
45	= ;s 0= ?branch ;s
369	con: ;s ?branch col: swap
3282	@ execute col: @ (f83find)
2871	@ + @ ;s col:
3259	+! ;s ! ;s 0=
2	(?do) dup lit pick col:
308	(loop) unloop lit branch ;s
199	drop 2dup 2>r col: col:
4777	>l lp- @local1 ?branch drop
11	lp- @local1 field: @ ?branch
1105	! r> var: @ +
29	nip execute swap ;s branch
403	lit col: >r defer: col:
5	rdrop ;s over r> tuck
5092	aligned ;s con: - dup
1	col: >l lp- con: col:
25	?branch rdrop ;s tuck !
52	2dup u<> ?branch drop ;s
227	over 0<> ?branch faligned nip
5	<> ?branch @local1 col: >l
1834	;s col: col: dup 0<
38	! lp+ ;s @local1 col:
383	does: col: var: dup @
25	var: @ dup var: <=
225	cell+ dup cell+ rot move
316	;s over c@ lit =
44	;s lp+ ;s @local0 lit
191	! ;s lit col: lit
22	col: var: @ ?branch var:
556	dup user: ! lit col:
4632	branch dup ?branch over c@
201	@ ;s @ ;s ;s
3837	@ <> ?branch @local1 i
3716	swap >r um/mod r> ;s
3	;s ;s drop col: r>
16	rdrop ;s ;s ;s swap
52	@ ?branch over col: lit
4366	r@ lit and ?branch r>
370	defer: defer: col: col: col:
15	;s >l lp- @local1 var:
1	0<> ?branch col: col: r>
1	con: ! ;s (loop) unloop
125	noop ;s ;s branch col:
958	lit col: >l >l >l
4078	<> ?branch drop 2drop lit
316	lit = dup >r ?branch
414	;s dup ?branch 2drop lp+2
191	and + faligned over lit
1	;s var: @ over !
50	r@ + swap cmove var:
369	drop rot user: @ um*
26	unloop lp+2 ;s @local1 field:
726	+! ;s @local0 >l lp-
15	dup r> - ?branch dup
29	@local1 col: lit col: lit
5	drop col: r> /does-handler +
45	u< ?branch = ;s 0=
682	drop ;s ;s branch col:
320	! ;s lit var: !
9	and ;s ;s ;s col:
4	= ?branch drop (parse-white) branch
26	?dup ?branch col: col: r>
17	dup lit u< ?branch cells
13	+ 2! ;s var: 2@
198	@ col: col: user: @
4	>l col: does: 2@ ;s
1105	r> ;s tuck cell+ !
56	swap ! ;s col: dup
1	col: var: 2@ col: col:
501	?branch col: r> dup cell+
1356	dup ?branch drop lit col:
2586	lit max lit (?do) i'
5372	;s dup ?branch col: cell+
3	noop ;s col: r> dup
1	?branch nip nip execute f*
25	;s tuck ! cell+ tuck
4	c@ lit <> ?branch col:
5528	! ;s dup ?branch defer:
112	lp+ ;s @local1 field: over
26	@local1 field: @local1 field: @local1
729	! ;s lp+2 branch >l
726	;s @local0 >l lp- @local1
407	;s col: lit over =
4305	dup ?branch nip nip unloop
20	swap var: ! ;s over
29	;s ;s @local1 does: @
5242	2@ over <> ?branch col:
8471	@ /string (parse-white) 2dup +
321	col: var: col: con: swap
46	;s lp+ ;s @local1 @local0
5	and ?branch ;s ;s 0=
4	>code-address lit = ?branch >does-code
2	;s ;s ;s cell+ cell+
2	2r> defer: col: 2dup lit
4	@ + @ col: lit
111	?branch 0> ?branch col: user:
6	;s defer: col: col: col:
191	- unloop ;s ;s ;s
324	;s user: col: con: swap
29	@ c! ;s ;s col:
133	lp- @local1 ?branch @local1 @local#
35	con: min >r var: r@
386	?branch drop col: r> dup
132	execute col: defer: col: col:
250	col: var: @ 1- dup
2	?branch 2dup * allocate col:
375	= ?branch toupper lit -
4	;s over c@ lit <>
4	lit <> ?branch col: col:
8	@local# @local1 ! drop lp+!#
5	;s dup 0= ?branch execute
14	>l @local0 ?branch @local1 ?branch
1	nip nip execute drop ;s
6	;s lit col: >r col:
370	col: defer: defer: col: col:
299	lit u< ?branch drop ;s
67	user: +! ;s col: col:
75	* 1- >r r@ col:
114	field: @ lit col: >l
135	var: ! lit con: !
250	@ 1- dup 0= col:
49	;s swap 2dup r> -rot
16	defer: (type) ;s @local1 lit
195	;s dup ?branch @local# @local#
195	col: >l lp- var: @
60	;s ! drop ;s col:
536	lit over = ?branch lit
4795	+ @ (hashfind) ;s ;s
1	@ con: cells col: lit
848	+! lit over = ?branch
1	up! sp@ dup user: !
772	lp+ ;s @local3 lit col:
726	! ;s lp+!# ;s lp+
29	! ;s lit var: +!
570	var: @ field: @ field:
2786	@ ;s lit col: col:
2	cell+ cell+ dup user: !
772	?branch 2drop lp+!# ;s lp+2
54	@local0 col: >l lp- @local1
30	@local1 field: @ @local2 @local3
7	! ;s branch r> user:
647	lit over = ?branch branch
58	;s var: col: col: col:
4586	1- cells over + (do)
4	> ?branch lp+ ;s lp+
1	nip nip execute sfloats ;s
403	over swap r> col: >r
14	0<> lit and col: ?dup
5	lit swap 1+ /string ;s
15	cmove @local1 var: lit col:
4	;s @local3 @local1 field: col:
6	;s ;s @local2 @local3 col:
18	@ lit pick col: lit
762	= ?branch @local2 @local1 col:
1312	@local# execute col: >l >l
24	con: lit ! ;s ;s
2	execute col: lit >code-address ;s
13	;s var: 2@ nip 1-
8	! ;s branch col: sp@
13	1+ var: 2! 2* cells
2	2drop rdrop unloop con: ;s
1789	0> ?branch col: col: col:
697	@ ?branch defer: col: col:
370	;s col: defer: col: defer:
316	dup ?branch ;s ;s dup
29	rot col: 0< ?branch lit
4	/string rot dup con: =
2560	unloop drop ;s ;s ;s
16	r> rot col: con: <>
34	0= ?branch r> cell+ cell+
195	execute col: user: @ col:
1	nip execute >code-address ;s branch
259	;s lit lit ! lit
23	@ ?branch col: con: @
16	;s r> r> rot col:
2333	lit and ?branch negate ;s
403	;s user: @ over min
1	move ;s drop var: 2@
1	?branch @local1 con: col: >l
3182	;s dup ?branch 2drop con:
2035	lp- @local1 ?branch @local1 @local3
29	;s 2! ;s var: col:
1	;s float+ dup user: !
568	lit and ;s var: @
15	?dup 0= ?branch var: @
316	col: user: @ >r user:
2	rdrop unloop con: ;s ?branch
29	! ;s var: col: col:
822	var: @ ?branch col: dup
1	execute lshift ;s branch col:
9320	i 2@ over <> ?branch
30	?branch nip nip execute over
2333	r> lit and ?branch negate
561	;s +! ;s move ;s
772	@local1 field: @ @local1 col:
3716	lit r@ um/mod r> swap
11	@local1 con: = @local1 con:
26593	i col: cells + ;s
124	var: @ ;s does: col:
135	lit ! lit col: user:
5	swap ! ;s col: var:
8837	@ ;s lit + aligned
976	user: @ dup 0= col:
45	cr @local1 field: col: >l
195	@local3 = ?branch con: lp+2
9	lp+ ;s field: col: con:
135	col: var: var: ! ;s
16	;s drop con: ;s ;s
7	+! ;s 2! ;s col:
276	?branch rdrop ;s ;s col:
27	>r col: laddr# ;s >r
5308	;s col: dup col: col:
976	rdrop ;s cell+ tuck c@
29	@local0 1+ @local1 col: field:
1	! @local3 @local1 field: !
1	nip execute drop ;s branch
1	execute col: var: @ col:
124	swap ! ;s ;s var:
1107	pick @ ?dup 0= ?branch
8	> col: ?branch r> does:
9	or ?branch @local1 field: @
1	drop ;s user: @ swap
12	col: dup ?branch r> r>
402	<> ?branch rdrop ;s >r
205	lp+!# ;s ?branch @local0 branch
931	;s ?branch @local1 @local0 col:
124	col: var: ! ;s col:
20	dup @ swap var: !
403	col: >r defer: col: col:
316	! ;s lit lit 2swap
283	?branch var: @ col: lit
1657	0= ;s ?branch drop con:
945	(loop) var: @local1 field: i
1	?branch con: cells allocate col:
4281	?branch lit r@ lit and
1746	;s dup ?branch lit and
4751	con: dup @ + ;s
2284	;s col: col: r> r>
282	execute col: defer: defer: col:
10	2dup col: var: 2@ lit
49	branch lp+ ;s @local1 !
1	branch col: lit does: swap
1	var: @ lit (?do) i
29	;s ;s col: 2drop col:
44	>l @local0 @local1 ! lit
191	con: (do) dup i -
1	?branch nip nip execute cell+
1	?branch con: @local1 col: >l
729	;s ?branch @local1 col: col:
5708	drop con: lp+!# ;s ?branch
1	col: var: ! ;s ;s
122	floats over = ?branch col:
131	?branch faligned nip ;s col:
7	drop con: ;s ;s branch
1328	col: >l >l >l lp-
125	col: faligned dup col: user:
6	defer: col: cell+ dup @
561	@ ;s user: ! lit
135	@ user: @ col: var:
5	0< ?branch var: @ >r
8475	;s 2dup >r >r user:
1834	@ ;s col: col: dup
7	@ ;s col: >l >l
2	>code-address lit = ?branch >code-address
3230	col: drop con: ?branch lit
2	?branch 2drop rdrop unloop con:
114	;s @local1 field: @ lit
1	con: cells col: lit fill
72	;s @local1 @ col: >l
562	unloop ;s col: col: user:
32	;s drop branch ;s ;s
289	drop ;s ;s col: r>
247	lp+2 ;s col: col: r>
247	?branch r> does: 2@ ;s
5	;s col: var: @ 0=
218	! ;s ;s col: dup
26	unloop drop ;s ;s col:
542	?dup ?branch 2drop 2drop ;s
15	;s +! ;s ;s dup
15	lp+2 ;s @local1 field: !
2	drop branch lit pick @
21	;s ! ;s ;s var:
152	con: <> swap con: <>
83	;s branch ;s ;s branch
5	+ c@ lit <> ?branch
60	@ ;s ! drop ;s
407	nip execute does: @ col:
1	@ >r var: @ lit
20	cells con: ;s ;s branch
5	0= ?branch execute var: col:
509	col: >r col: col: col:
2	?branch ;s over lit (?do)
1	lit (?do) i col: cells
13	1+ 2* cells resize col:
1	lp+!# ;s lp+ ;s col:
4051	@local1 ?branch drop con: lp+!#
697	user: @ ?branch defer: col:
1	r> -rot move ;s drop
13	@ ?branch lp+ ;s @local1
27	?branch ;s col: var: col:
16	>r drop col: var: @
2	nip nip execute col: does:
1	execute >code-address ;s branch col:
18	nip nip execute var: ;s
14	;s @ ;s /does-handler col:
2	?dup ?branch ;s branch ;s
58	;s var: @local1 col: >l
1464	= ?branch @local1 col: field:
7	?branch drop ;s col: user:
24	col: cells con: ;s col:
36	+! ;s user: @ ?branch
6	col: dup >code-address lit =
3	;s lit (?do) col: dup
14	>r dup allocate col: ?dup
285	! branch ;s ;s col:
2420	user: +! swap user: !
72	over >r rot over 1+
142	;s @local2 lit col: >l
29	@local2 col: swap >r dup
191	col: drop col: col: dup
2420	@ ?dup ?branch read-line col:
4	<> ?branch rdrop ;s over
6	+ @ ;s ?branch @local1
2546	con: - dup @ tuck
4	var: @ + @ col:
13	2@ tuck 1+ 2* cells
349	count defer: (type) ;s cr
5	@local1 con: col: col: dup
2	;s lit col: lit lit
180	<> col: col: r> r>
50	>r var: swap cmove 2dup
4747	+! ;s col: dup col:
1	- lit cells / ;s
2552	lit (?do) unloop drop ;s
35	;s user: @ ?branch con:
360	?branch ;s >body @ max
4795	(hashkey1) ;s r> xor cells
1	execute col: var: col: con:
541	! ;s col: var: @
6208	+ aligned >r swap >r
35	>l lp- @local1 ?branch lp+!#
6	defer: (type) ;s ;s col:
12	>r col: dup 0< ;s
1	col: ?dup ?branch ;s -rot
15	dup ?branch dup r> -
20	dup var: <= ?branch con:
568	;s ?branch col: cell+ count
265	;s col: >l lp- @local1
561	@ ;s @ ;s user:
114	var: = ?branch i col:
9	;s drop ;s ;s user:
2	?branch ;s branch ;s ;s
54	;s 0= ?branch ;s ;s
1662	dup cell+ >r @ col:
663	= ?branch lit cells over
16	swap ! ;s ;s drop
309	>r ?branch col: over c@
772	;s lp+ ;s @local2 col:
1657	;s @local1 does: @ +
1649	@local1 branch i col: cells
26	field: @local1 field: @local1 field:
3716	>r um/mod r> ;s rot
15	unloop lp+2 ;s @local1 col:
5	<> ?branch rdrop ;s lit
540	swap (?do) con: col: col:
42	?branch rdrop ;s 0> ?branch
54	defer: (emit) ;s @local0 col:
202	0= ;s ?branch lp+2 branch
3843	! (loop) @local0 i col:
60	invert and ;s col: user:
11	col: 1+ >r col: r>
10	nip execute field: ;s branch
132	! noop ;s col: col:
4	drop branch ;s (loop) col:
1809	@ ;s @ ;s dup
36	>l >l @local3 does: @
6	defer: (type) col: col: r>
2	! ;s branch @ dup
762	@local1 con: = ?branch @local2
15	@ ?dup 0= ?branch var:
324	;s ;s col: r> dup
54	@local1 con: = ?branch @local3
2	;s ?branch 2r> defer: col:
6	nip nip execute >body ;s
5	?branch rdrop ;s lit swap
3	(+loop) i col: cells var:
4	execute col: con: swap !
1446	;s ;s ;s ;s branch
36	+ @ ;s var: laddr#
34	@local3 col: >l >l >l
1105	cell+ count lit and col:
16	swap lit col: 1+ con:
12	rdrop rdrop lit ;s r>
44	@local0 lit col: >l >l
116	;s ! ;s @local# col:
21	dup col: r> dup cell+
4	! ;s (loop) col: dup
309	@ dup 0> 0= ?branch
1	+ >r ;s col: col:
6	! ;s ;s @local2 @local3
3	nip nip execute @ ;s
308	d+ r> ;s (loop) unloop
28	+ swap r> col: 1-
8	= ?branch @local# @local1 !
135	;s user: ! user: !
1	?branch ;s var: ! var:
1091	and 0= ?branch @ lit
2048	d0= ?branch ;s rot col:
454	?branch drop con: lp+2 ;s
135	user: ! user: ! noop
5242	?branch col: dup field: @
5068	over c@ r@ <> ?branch
4	drop branch ;s ;s ;s
8	?branch nip nip execute !
1894	dup ?branch 0> ?branch col:
1117	user: ! lit col: col:
44	;s cr lp+ ;s branch
26	lp+2 ;s @local1 field: @
2927	?branch ;s ;s ;s dup
1	(type) ;s defer: (type) branch
2	@ ?branch dup defer: col:
2109	con: col: col: col: user:
119	nip execute col: col: r>
28	invert and ;s ;s ;s
18	?branch nip nip execute var:
13	?branch r@ user: +! user:
186	lp- @local1 >l lp- @local1
1	?branch r> drop r> col:
191	xor swap c! ;s col:
2420	col: user: @ ;s con:
2426	user: @ ?branch col: user:
13	user: +! user: @ user:
45	?branch 2drop lp+!# ;s var:
7	lit /string col: over c@
91	lit col: 1+ con: *
1	2* cells col: swap >r
27	swap >r fp@ >r col:
403	?branch rdrop ;s >r over
7	@ ?branch @local1 @local1 col:
8	dup @ 0< ?branch drop
5	;s col: user: @ >r
13	! execute col: col: user:
2	@ col: >l lp- @local1
23	lp+2 ;s lit > ?branch
24	lit ! ;s ;s branch
5	?branch rdrop ;s over r>
124	var: @ user: ! dup
18	nip ;s - dup ?branch
10	user: @ ?branch ! ;s
29	field: lp+ ;s ;s branch
1	?branch drop ;s ;s branch
1026	var: dup @ cells +
1	drop + >r ;s col:
6	@ 0<> ?branch lp+ ;s
1	?branch nip nip execute *
360	cell+ dup col: count lit
1	;s ;s ;s float+ dup
11	2! @local1 lp+ ;s ;s
152	@ ;s ;s var: @
12	rdrop lit ;s r> user:
15	con: cells move lp+ ;s
15	@local1 >l >l @local1 ?branch
16	swap con: - swap lit
5	nip execute does: 2@ ;s
1	lp- @local2 @local1 field: !
10	nip execute does: col: var:
25	lit >= col: col: r>
3	cells ;s branch col: sp@
91	1+ con: * 1- >r
13	col: col: r> user: @
561	dup lit u> lit and
220	@ ;s @ ;s over
2	@ ?dup 0= ?branch 2dup
4	over c@ lit <> ?branch
3	dup var: ! defer: drop
3265	;s ;s branch col: sp@
14	rdrop ;s ;s col: col:
3745	;s con: - lit over
9	lit col: cells con: ;s
2420	@ ;s con: user: @
76	(loop) unloop lp+ ;s lp+
2	@ ;s ;s branch col:
373	;s does: col: var: dup
740	?dup ?branch ;s ;s col:
403	swap r> col: >r dup
75	>r r@ col: dup 1+
191	c! var: count move lit
2	?branch nip nip execute code-address!
13	?branch ;s swap 2dup 1+
108	lp+2 ;s 0= ?branch lp+2
255	! col: var: dup @
1	col: con: 0= ?branch lit
548	@local1 2@ drop lp+ ;s
88	(type) ;s @local3 col: >l
672	;s 0= ?branch @local1 field:
45	con: lit (do) @local1 i
6	0<> ?branch lp+ ;s lp+
76	unloop lp+ ;s lp+ ;s
61	;s @local0 field: @local1 field:
112	con: swap ! ;s @local1
726	;s ! ;s lp+!# ;s
191	col: var: count col: col:
5	dup ?branch 2drop r> var:
7	! ;s ;s dup field:
4751	col: con: dup @ +
32	execute col: lit col: user:
27	(loop) dup >r 2@ 2over
102	lp- @local1 field: @ @local1
5	dup 0= ?branch execute var:
2	execute col: col: con: <>
2046	+ (loop) dup lit pick
13	col: var: 2@ tuck 1+
8471	user: @ /string (parse-white) 2dup
174	2@ nip lp+ ;s does:
30	lp- @local1 field: @ @local2
4	> ?branch @local0 @local1 col:
158	?branch lit floats over =
13	@ >r >r ;s user:
59	col: col: col: r> dup
100	;s ?branch @local1 field: @
3716	@ lit max col: >r
1464	@local1 @local3 = ?branch @local1
1	@ ?branch col: col: r>
5	f! ;s ;s ;s ;s
847	swap - col: dup negate
3904	@ @local1 i col: cells
12	user: ! >r ;s drop
89	execute col: defer: col: defer:
1	con: 0= ?branch lit (bye)
811	col: >l >l >l >l
22	@ col: dup con: !
7	field: @ ;s col: >l
60	swap col: 1- tuck +
62	;s col: user: @ ?branch
8471	>r >r user: @ /string
46	@ lp+ ;s ?branch drop
35	cmove var: r> ;s ;s
218	col: >l lp- @local1 2@ nip
151	@local1 field: @ @local1 lit col:
4806	@local0 @local1 col: >l >l @local0
191	?branch i - con: - unloop
5	@ con: >= ?branch ;s lit
27	execute col: col: col: con: <>
16	rdrop ;s ;s col: >r >r
131	nip ;s col: user: @ swap
1	user: @ >r var: @ lit
1	2@ lit (?do) unloop 2drop drop
680	user: ! drop ;s ;s branch
353	@ + @ ;s col: >l
3904	dup @local1 i col: cells +
15	@local1 >l >l @local1 ?branch @local0
726	@local0 @local1 col: >l >l @local1
4051	lp- @local1 ?branch drop con: lp+!#
22	;s col: user: @ col: col:
945	! (loop) var: @local1 field: i
1	;s ! ;s ;s col: col:
1	?branch nip nip execute f* ;s
4	;s >body @ col: col: col:
2	;s over lit (?do) dup lit
15	@ lit (?do) lit @local1 i
100	;s con: lit ! ;s lit
9	drop con: ;s ;s ;s branch
62	(?do) unloop ;s branch ;s ;s
2048	?branch ;s rot col: 0< ?branch
4	>r ;s @local3 field: @ @local1
195	lp+ ;s dup ?branch @local# @local#
726	! ;s 0= ?branch-lp+!# drop lp+2
199	2>r col: col: user: @ >r
5372	;s r@ lit and 0= ?branch
13	?dup ?branch ;s swap 2dup 1+
3837	?branch @local1 i col: cells +
2	col: user: @ ;s ;s branch
3846	lp+!# ;s ?branch @local1 branch lp+
12	(type) ;s col: sp@ user: @
1	;s +! ;s ! ;s branch
5	;s f! ;s ;s ;s ;s
185	;s ;s ;s col: lit lit
12	rdrop rdrop lit ;s user: @
2407	2drop ;s branch col: user: @
1359	0= col: col: r> r> dup
9	@local1 con: = or ?branch @local1
116	! ;s @local# col: col: col:
1	dup ?branch rdrop ;s >r over
2	?branch rdrop ;s nip ?branch 2dup
4	+ c! col: col: user: @
5	?branch rdrop ;s lit swap 1+
15	;s @local1 field: ! lp+ ;s
195	col: >l lp- var: @ @local1
29	;s @local1 @local2 col: swap >r
7935	fp@ user: @ > ?branch ;s
11	field: 2! @local1 lp+ ;s ;s
1	float+ dup user: ! swap !
5	;s col: user: @ >r col:
388	col: col: var: dup @ cells
3	and ?branch nip nip execute @
485	faligned swap (?do) con: col: col:
1	dup ?branch rdrop ;s over r>
29	2drop lp+2 ;s cr lp+ ;s
2546	swap lit max lit (?do) unloop
6	col: var: 2@ drop over field:
4	lp+ ;s @local3 @local1 field: col:
877	@local1 >l lp- @local1 col: >l
5	;s 0= ?branch lp+ ;s dup
191	defer: defer: col: var: count col:
17	! ;s ;s r> drop col:
8471	2dup >r >r user: @ /string
403	lit col: >r defer: col: col:
29	?branch 2drop lp+2 ;s cr lp+
162	@local0 does: @ + @ ;s
726	;s 0= ?branch-lp+!# drop lp+2 ;s
11	execute col: >r col: col: col:
18	;s ;s ;s ;s col: r>
281	2drop con: ;s ;s ;s dup
255	;s var: ! col: var: dup
152	;s ;s var: @ ?branch con:
174	@ + @ ;s @local1 =
45	>l lp- con: lit (do) @local1
29	+! ;s 2! ;s var: col:
1	;s @ col: col: user: @
57	0= ?branch ;s col: user: @
43	var: @ col: col: col: user:
25	dup lit >= col: col: r>
847	user: @ swap - col: dup
152	<> swap con: <> and col:
1	cr ;s ;s branch col: sp@
26	>l lp- con: lit (do) @local2
23	branch >l lp- @local1 ?branch lp+!#
8	>r ;s @local0 field: @ col:
100	col: col: col: lit lit !
4078	2@ over <> ?branch drop 2drop
28	>r rot r@ col: 1- tuck
4751	+ swap does: + c@ ;s
7	drop con: ;s ;s branch col:
246	rdrop ;s ;s col: lit col:
11	dup ;s branch col: sp@ user:
9	col: lit col: cells con: ;s
2	nip execute col: var: @ 1-
18	lit pick col: lit over 0<>
561	user: @ ;s @ ;s user:
2109	con: col: col: col: user: @
68	r> move c! ;s col: col:
46	?branch drop @local0 lp+2 ;s lit
729	;s ! ;s lp+2 branch >l
1	;s (loop) unloop ;s col: col:
124	;s ;s ;s user: ! col:
1	execute sfloats ;s branch col: sp@
87	;s con: col: col: col: user:
15	unloop lp+ ;s lit lit @local1
191	- con: - unloop ;s ;s
2	execute col: lit >code-address ;s ;s
4795	@ execute col: lit + @
23	@ ?branch col: con: @ col:
4586	drop var: dup @ 1- cells
1	var: @ lit (?do) i col:
26	(loop) unloop lp+2 ;s @local1 field:
407	@ swap - ;s col: lit
191	col: defer: defer: col: var: count
8	= ?branch lit /string branch dup
15	cmove @local1 var: lit col: >l
112	col: con: swap ! ;s @local1
1920	cells + ;s ! var: @local1
2	;s lit pick + (loop) unloop
5	con: swap ! ;s col: var:
20	lp+!# ;s lp+2 ;s lp+2 ;s
15	con: ;s ?branch 1- i' i
75	r> ;s rdrop dup col: con:
5	rdrop ;s over r> tuck -
44	;s ;s ;s lp+ ;s @local1
6	lit max var: @ min dup
2	;s ;s ;s cell+ cell+ dup
20	var: <= ?branch con: - dup
2	2drop rdrop unloop con: ;s ?branch
1662	cell+ >r @ col: col: col:
2766	dup var: = ?branch drop branch
12	+ @ ;s 0<> ?branch lp+
225	cell+ dup cell+ rot move drop
35	(f83find) ;s ;s dup ?branch ;s
8475	;s 2dup >r >r user: @
1834	@ ;s col: col: dup 0<
202	?branch lp+2 branch >l lp- @local1
2	@ ?dup ;s ?branch ;s ;s
135	;s con: ;s ;s ;s branch
250	col: var: @ 1- dup 0=
5	swap c! 1+ col: col: col:
15	@local1 var: lit col: >l >l
729	+! ;s ! ;s lp+2 branch
2	;s lit lit col: >r >r
2	r> var: ! ;s branch @
19	invert and ;s ;s ;s branch
195	@local3 = ?branch con: lp+2 ;s
772	lp+ ;s @local2 col: >l >l
44	lit defer: (emit) ;s cr col:
1	?branch nip nip execute invert ;s
27	nip execute col: col: col: con:
54	@local1 con: = ?branch @local3 col:
4	lp- @local2 @local1 field: col: >l
3	0> ?branch nip nip execute con:
8	con: ;s ?branch col: user: @
976	user: @ dup 0= col: col:
29	! ;s @local3 col: col: col:
173	(loop) unloop ;s lit col: user:
1	var: up! sp@ dup user: !
29	;s lp+ branch >l >l @local1
29	-rot move ;s col: col: col:
122	lit floats over = ?branch col:
308	@ dup 0> 0= ?branch nip
36	col: >l >l @local0 @local1 swap
36	>l @local1 field: @ @local0 col:
4	@local3 field: @ col: >l >l
4777	>l @local0 @local1 col: >l >l
116	;s +! ;s ! ;s @local#
5	;s (loop) unloop ;s ;s ;s
15	drop + >r ;s @local1 field:
10947	lp+ branch >l lp- @local1 col:
2	?dup ;s ?branch var: @ field:
135	col: noop user: @ user: @
18	?branch faligned nip ;s - dup
4	var: @ + @ col: lit
44	;s lp+ ;s lp+ ;s @local0
61	con: lit (do) @local0 i col:
6	defer: (type) ;s ;s ;s col:
196	c! ;s ;s col: lit col:
848	dup negate user: +! lit over
29	;s defer: (type) col: lit defer:
6	(type) ;s defer: col: col: col:
50	;s lp+ ;s lp+ ;s @local1
3	! ;s ;s ;s ;s lit
1	c! ;s (loop) unloop ;s col:
4	lit = ?branch >does-code lit or
283	?dup ;s ?branch var: @ col:
16	>r r@ pick r@ pick r@
4751	+ c@ ;s ;s over c@
8	nip nip execute ! ;s branch
88	;s lp+ ;s lp+ ;s @local3
15	lp+2 ;s @local1 col: field: @
1	cells col: lit fill ;s var:
5	code-address! ;s lit col: col: col:
4	@local1 ! lp+ ;s @local2 @local1
2	var: ! ;s ;s drop col:
137	>r ?branch rdrop ;s ;s lit
5	cell+ dup @ 0< ?branch var:
234	;s count defer: (type) ;s col:
1	user: @ ;s @ ;s >r
568	col: >r 2dup 2dup r> col:
8	+ >r ;s @local0 field: @
135	! var: var: ! lit con:
15	dup user: ! over c@ lit
72	rot over 1+ r> move c!
1	does: col: r> dup cell+ >r
192	;s cell+ dup user: ! swap
9	over r@ u>= ?branch col: dup
30	>l >l lp- @local1 field: @
2	= or ?branch lp+ ;s @local1
29	;s ! ;s var: col: col:
694	;s user: ! drop ;s ;s
6	?branch lp+ ;s lp+ ;s @local1
61	unloop lp+ ;s lp+ ;s lp+
64	?branch @local0 1+ swap lp+ branch
7	;s col: >l >l @local0 ?branch
4795	execute col: lit + @ >r
6	col: con: swap ! ;s col:
244	c! ;s ;s col: lit >code-address
5683	@ col: col: dup field: @
1464	?branch @local1 col: field: @ ;s
108	var: @ ?branch con: ;s lit
1783	2drop ;s branch col: sp@ user:
218	/does-handler + col: col: user: @
3904	;s dup @local1 i col: cells
27	;s @local1 lit col: >l >l
58	+! ;s ! ;s con: col:
542	2drop 2drop ;s var: @ field:
22	col: 2dup lit col: >r dup
13	user: @ >r col: swap >r
29	;s +! ;s ! ;s @local0
196	;s ;s ;s branch dup ?branch
24	execute col: col: lit lit !
1	0= ?branch 2drop 2dup lit col:
246	;s ;s col: lit lit !
12843	;s con: col: col: user: @
1	col: var: 2@ col: col: col:
29	;s ! ;s @local1 @local2 col:
29	;s +! ;s ! ;s @local1
976	;s >r ?branch rdrop ;s cell+
561	(?do) unloop ;s col: col: user:
1	and ?branch nip nip execute lshift
23	swap c! ;s ;s ;s branch
2333	r> lit and ?branch negate ;s
554	;s ;s col: lit >code-address ;s
2407	;s branch col: user: @ ?branch
3039	r> lit and ?branch ;s ;s
984	?branch @local3 @local# @local# execute col:
29	;s ;s @local1 col: lit col:
2036	col: lit col: >r tuck dabs
14	@local1 ! lp+ ;s @local0 @local1
29	;s +! ;s ! ;s @local3
56	nip ;s user: ! ;s var:
309	= dup >r ?branch col: over
27	>r col: laddr# ;s >r user:
88	@local1 con: = ?branch con: col:
52	?branch var: @ ?branch over col:
246	var: ! ;s ;s col: col:
13	2* cells + 2! ;s var:
133	?branch @local1 @local# @local# execute col:
26567	lp- @local1 col: >l lp- @local1
1	col: lit col: dup negate user:
2	2drop close-file col: ?dup ?branch ;s
1649	@ var: = ?branch @local1 branch
1	col: lit fill ;s var: @
23	?branch col: con: @ col: col:
3282	field: @ execute col: @ (f83find)
15	and ?branch nip nip execute does:
5	lp- @local1 ?branch lp+2 ;s col:
56	;s user: ! ;s var: col:
360	u>= ?branch con: ;s ?branch col:
1105	lit and col: con: (hashkey1) ;s
34	compare 0= ?branch r> cell+ cell+
1482	;s c! ;s (loop) con: col:
8	@ col: >l >l >l lp-
1	execute dfloats ;s branch col: sp@
5	! lit var: +! var: @
5	?branch var: @ >r var: col:
353	+ @ ;s col: >l lp-
2721	drop branch (loop) @local1 i col:
3	nip execute col: col: does: 2@
16	;s +! ;s ;s >l lp-
3	nip nip execute @ ;s branch
1	! defer: drop ;s ;s branch
23	xor swap c! ;s ;s ;s
976	>r ?branch rdrop ;s cell+ tuck
27	cell+ (loop) dup >r 2@ 2over
910	defer: (type) ;s lp+ ;s lp+
155	;s col: var: @ col: col:
5	+! ;s 2! ;s branch dup
6	defer: (type) ;s ;s col: col:
1657	;s col: 0= ;s ?branch drop
29	does: 2@ ;s col: col: user:
2	nip execute col: col: con: <>
12	>r ;s drop col: ?dup ?branch
1487	>l lp- col: col: r> r>
1210	;s dup ?branch @local3 execute col:
1	lit fill ;s var: @ over
2583	;s lit col: col: user: @
12	user: @ close-file swap 2dup or
4	@local0 @local1 @local2 @local3 col: >l
7	user: @ 0= ?branch 2drop con:
4	@ 0= ?branch var: @ over
820	;s branch @ dup ?branch 2dup
7	?branch nip nip execute col: ;s
46	;s @local1 @local0 does: @ +
1	?branch @local1 con: col: >l >l
7	= ?branch 2drop rdrop user: col:
50	tuck ! cell+ tuck ! cell+
6	+ 2@ rot field: @ ;s
360	>body @ max swap @ swap
17	dup lit u> ?branch lit -
14	@ ;s @ ;s /does-handler col:
322	c! ;s ;s col: col: user:
173	execute col: >l lp- @local1 field:
7	;s ;s dup field: dup var:
91	rdrop dup col: con: con: 1+
36	@ + @ ;s var: laddr#
2	cr lp+ ;s var: @ col:
135	@ col: var: var: ! ;s
16	rot col: con: <> col: col:
52	?branch over col: lit over 0<>
113	! ;s ;s branch col: sp@
57	;s code-address! ;s ;s col: col:
20	nip execute col: cells con: ;s
6	unloop drop ;s cr ;s r>
3259	+! ;s ! ;s 0= ?branch-lp+!#
92	;s branch drop ;s ;s user:
11	nip execute col: >r col: col:
12	@ close-file swap 2dup or col:
117	dup ?branch drop 2dup col: col:
15	con: cells cmove @local1 var: lit
1662	col: r> dup cell+ >r @
4	lp+!# ;s @local3 @local1 @local2 field:
14	lit branch unloop 0<> lit and
9	(?do) dup >r 2@ 2over compare
570	@ field: @ field: @ execute
20	execute col: cells con: ;s ;s
3846	;s ?branch @local1 branch lp+ ;s
191	count lit and + faligned over
1	and ?branch nip nip execute floats
1	;s swap col: col: col: user:
1	f! ;s col: r> /does-handler +
18	0<> ?branch faligned nip ;s -
277	;s ! ;s code-address! ;s ;s
2048	2dup d0= ?branch ;s rot col:
6	@local0 field: 2! @local0 field: col:
2	nip nip execute col: lit >code-address
5	+! var: @ con: >= ?branch
26	2dup defer: (type) compare 0<> ?branch
1	execute col: var: col: con: swap
91	within 0= col: col: r> r>
2266	>r ;s >r ?branch rdrop ;s
785	c@ xor swap c! ;s ;s
726	lp+2 ;s lit cells col: col:
191	;s ;s var: c! var: count
1	;s nip ?branch 2dup >float ?branch
15	lit @local1 >l >l @local1 ?branch
3	(loop) unloop ;s ;s branch col:
7	! ;s code-address! ;s ;s ;s
5	rdrop ;s lit swap 1+ /string
88	@ col: col: dup 0< ;s
60	user: @ ;s @ swap col:
3	;s +! ;s ;s branch col:
1268	dup 0= col: col: r> r>
112	field: over does: @ + @
6	cr ;s r> does: 2@ ;s
1	cell+ dup @ 0< ?branch drop
6	drop branch ;s branch col: var:
28	invert and ;s dup col: col:
88	= ?branch con: col: >l lp-
58	+ @ ;s var: @local1 col:
146	;s col: col: col: r> r>
1	;s lp+2 ;s ;s ;s branch
5	over cell+ ! dup @ dup
29	nip execute col: var: @ ?branch
4747	;s +! ;s col: dup col:
316	c@ lit = dup >r ?branch
9	;s ;s col: col: col: col:
5	?branch 2dup 1- + c@ lit
116	tuck + swap invert and ;s
4632	lit /string branch dup ?branch over
62	?branch @local0 branch lp+ ;s dup
186	>l >l >l lp- @local1 >l
6	@local1 col: col: >l lp- lit
191	c! var: count move lit lit
135	con: swap ! ;s con: ;s
1	nip nip execute cell+ ;s branch
13	var: 2@ tuck 1+ 2* cells
36	laddr# col: >l >l >l lp-
3716	>r lit r@ um/mod r> swap
15	! lp+ ;s >l lp- var:
26	drop ;s ;s col: lit does:
4	@ col: lit lit col: >r
112	@ swap col: >l >l @local0
16	count defer: (type) ;s @local1 lit
7365	cell+ @local1 @ lp+ ;s >l
1105	col: lit + dup @ 0<
83	lit over 0<> ?branch faligned nip
109	branch ;s ;s branch col: sp@
15	- unloop ;s dup ?branch dup
5	branch ;s ;s col: col: col:
9	;s col: col: col: col: con:
403	user: @ ;s user: @ over
62	aligned swap (?do) unloop ;s branch
15	@local1 col: >l lp- @local1 field:
1	dup >r col: lit (?do) unloop
14	;s @ ;s /does-handler col: col:
36	;s ;s 0= ?branch ;s ;s
1	fp@ user: ! col: var: 2@
414	lp+ ;s dup ?branch 2drop lp+2
3716	swap >r um/mod r> ;s rot
931	drop con: lp+!# ;s ?branch @local0
1	nip nip execute * ;s branch
308	um* d+ r> ;s (loop) unloop
4751	/mod rot + swap does: +
72	r> user: ! r> user: !
36	>r con: open-file 0= ?branch rdrop
15	lp+ ;s >l lp- var: @
4777	drop con: lp+!# ;s ?branch @local1
10	>l >l >l >l @local0 @local1
3	;s branch con: defer: col: noop
61	execute col: >l >l @local0 col:
9	field: @ var: = ?branch @local1
44	@local0 @local1 ! lit @local0 field:
663	= ?branch lit cells over =
4	con: col: col: defer: col: col:
32	col: 2dup u< ?branch = ;s
15	@local0 lp+2 ;s @local1 field: !
4	> ?branch @local0 @local1 col: >l
56	! ;s col: dup con: !
12	rdrop rdrop rdrop lit ;s user:
369	@ um* d+ r> ;s (loop)
16	lp+ ;s branch lp+2 ;s lp+2
29	;s ;s ;s @local1 col: lit
133	@local1 @local# @local# execute col: >l
124	;s ;s var: @ user: !
45	col: con: @ col: 2dup u<
59	branch ;s ;s col: lit lit
8	@local0 field: @ col: >l lp-
35	drop ;s ;s ;s branch col:
4	lit <> ?branch col: col: 2dup
2586	lit max lit (?do) i' i
2	defer: drop ;s drop col: r>
11	col: user: @ ?branch defer: noop
174	@ + @ ;s @local3 col:
250	1- dup 0= col: col: r>
4	dup con: = ?branch drop (parse-white)
1	?branch lp+!# ;s lp+ ;s col:
19	field: col: con: swap ! ;s
5	! ;s branch ;s ;s r>
1105	?dup 0= ?branch >r drop r@
6	;s cr ;s r> does: 2@
18	(?do) unloop ;s lit col: user:
124	col: var: ! ;s col: var:
135	rdrop ;s ;s lit lit !
4	;s char+ c@ ;s col: user:
28	! ;s ;s ;s lit col:
6	;s drop branch ;s branch col:
2420	@ ;s con: user: @ ?dup
5	lit swap c! 1+ col: col:
1	;s ;s ;s cr ;s ;s
1	col: lit (?do) unloop lit branch
26	count defer: (type) ;s col: cell+
293	;s ;s col: var: col: con:
26662	lp- @local1 cell+ @local1 @ lp+
2046	pick + (loop) dup lit pick
5132	does: swap lit max lit (?do)
26	defer: (type) ;s col: cell+ count
561	@ ;s @ ;s swap dup
5	nip execute does: 2@ ;s ;s
3745	con: - lit over +! @
15	@ col: cells con: ;s col:
28	swap invert and ;s ;s ;s
7935	sp@ user: @ > ?branch fp@
36	@ ;s var: laddr# col: >l
6	field: @ ;s >r defer: (type)
7	rdrop user: col: con: swap !
289	drop ;s ;s col: r> dup
4	var: @ col: >l lp- col:
4	@local1 @local3 field: @ col: >l
5	>l @local0 @local1 con: col: col:
7365	@local1 @ lp+ ;s >l lp-
2880	col: cells + ;s @ dup
28	;s ;s ;s lit col: 1+
26	lit and ;s 2dup defer: (type)
647	lit over = ?branch branch drop
8	?branch @local# @local1 ! drop lp+!#
7	field: @ ;s col: >l >l
60	+ swap invert and ;s col:
1	rdrop ;s dup 0= ?branch 2drop
4586	cells over + (do) 2dup i
52	over - swap ! ;s con:
20	;s ;s 0= ?branch ;s >body
225	col: dup 1+ pick >r cells
1	+ dup user: ! user: !
10135	col: col: col: col: user: @
14	swap >r dup allocate col: ?dup
24	2drop lp+2 ;s lp+ ;s lp+
2	rdrop ;s var: ! ;s ;s
1	user: ! fp@ user: ! col:
6	;s lit max var: @ min
2	lit user: ! col: col: user:
4	user: @ ;s @ ;s count
403	;s user: @ over min /string
36	drop r> cell+ cell+ (loop) dup
13	user: ! user: @ >r >r
15	unloop lp+ ;s lp+ ;s @local1
210	;s ! (loop) lit @local1 i
191	var: count move lit lit !
3602	;s ;s ! ;s ;s ;s
6	defer: (type) ;s r> lit col:
5	@local1 field: @ 0<> ?branch @local1
2	2drop con: ;s ?branch 2r> defer:
2420	;s con: user: @ ?dup ?branch
130	or and ?branch @local2 @local1 col:
64	@ lp+ ;s ?branch @local0 1+
14	swap (?do) unloop ;s ;s col:
201	= ?branch col: r> dup cell+
1	nip nip execute invert ;s branch
5	var: over cell+ ! dup @
12	swap 2dup or col: dup ?branch
15	field: ! var: @local1 field: !
31	;s @ ;s swap col: col:
180	<> col: col: r> r> dup
683	;s >r ?branch rdrop ;s ;s
211	does-code! ;s ;s ;s branch col:
91	con: con: 1+ within 0= col:
111	dup ?branch 0> ?branch col: user:
13	col: var: 2@ tuck 1+ 2*
27	laddr# ;s >r user: @ >r
1091	lit and 0= ?branch @ lit
2420	?dup ?branch read-line col: ?dup ?branch
1170	2dup d0= ?branch col: user: @
494	lp+ ;s @local1 col: field: @
2	pick @ ?dup 0= ?branch 2dup
1	! fp@ user: ! col: var:
6208	col: col: r> r> dup count
1431	user: col: con: swap ! ;s
152	lit defer: (emit) ;s col: col:
58	@ + @ ;s 0<> ?branch
2	@local1 ?branch lp+2 ;s var: @
2	con: ;s ?branch 2drop close-file col:
309	@ 0= ?branch user: @ dup
176	count defer: (type) ;s @local1 field:
205	;s ?branch @local0 branch lp+ ;s
3	user: ! noop ;s col: r>
1	nip nip execute fasin ;s branch
42	2dup r> -rot move ;s col:
403	/string over swap r> col: >r
5	<> ?branch @local1 col: >l lp-
92	@local1 ?branch lp+2 ;s lp+ ;s
17	branch ;s user: col: con: swap
568	user: @ ?dup ;s ?branch dup
1	invert ;s branch col: sp@ user:
4366	r@ lit and ?branch r> lit
358	- dup lit u> ?branch dup
285	(f83find) ;s ;s var: @ and
8	var: = ?branch lp+ ;s @local1
2	2over compare 0= ?branch 2drop rdrop
65	>r user: @ >r user: @
199	dup ?branch drop 2dup 2>r col:
218	! ;s ;s col: dup col:
2586	defer: (type) (+loop) unloop drop ;s
3	?branch nip nip execute @ ;s
6	lp+ ;s lp+ ;s col: col:
4	@local3 field: @ @local1 col: >l
16	nip execute col: col: lit col:
15	! @local1 var: ! var: @
114	col: defer: noop col: col: col:
1	dup user: ! user: ! user:
4	lp+2 ;s lit > ?branch @local0
890	;s @local1 col: col: col: user:
68	;s over char+ col: col: user:
13	@ = ?branch r@ user: +!
78	branch lp+ ;s @local3 lit col:
2546	lit (?do) unloop drop ;s defer:
4	lp+2 ;s lit > ?branch @local1
2533	0= ?branch-lp+!# >l lp- @local1 col:
4	@ ?branch @local1 field: @ 0<>
5	;s +! ;s f! ;s ;s
283	@ ?branch dup @ lit pick
36	var: laddr# col: >l >l >l
26	lp+2 ;s @local1 field: @ lit
15	dup @local1 field: ! lp+ ;s
124	var: user: ! col: col: var:
309	;s dup ?branch 2drop rdrop r>
46	@local1 @ lp+ ;s ?branch drop
412	?branch nip nip ;s ;s dup
7935	r> min user: ! ;s dup
1	;s var: 2! col: var: 2@
568	lit and ;s var: @ col:
1	var: @ lit > ?branch con:
4	= ?branch >does-code lit or branch
2	0= ?branch ;s ;s ;s ;s
4	cells var: @ + @ col:
34	2@ 2over compare 0= ?branch r>
285	user: @ ?dup ;s ?branch var:
255	@ 1+ dup con: > col:
324	;s user: col: con: swap !
46	col: cells + ;s ! lp+
5	var: +! var: @ con: >=
16	over r@ u>= ?branch col: var:
5528	! ;s dup ?branch defer: col:
1	var: = ?branch @local1 con: col:
4051	>l lp- @local1 ?branch drop con:
370	0= lit and col: ?dup ?branch
316	over c@ lit - dup lit
142	count defer: (type) ;s cr branch
54	;s cr lp+ ;s lp+ branch
64	lp+ ;s ?branch @local0 1+ swap
1	execute col: var: @ col: >l
29	>l does: 2@ ;s col: col:
15	>l lp- var: @ lit (?do)
6	;s col: var: @ ?branch col:
14	nip r> rdrop lit branch unloop
112	0= ?branch @local3 col: >l lp-
6	0<> ?branch lp+ ;s lp+ ;s
1170	;s ;s 2dup d0= ?branch col:
191	c@ xor swap c! ;s col:
412	nip ;s ;s dup ?branch col:
4	/string branch over >r lit col:
4	+ @ col: lit lit col:
41	@ ;s @ ;s lit cells
112	;s @ swap col: >l >l
15	+! var: @local1 field: ! var:
25	var: @ dup lit >= col:
75	rot move drop r> ;s rdrop
1114	! ;s ;s ;s ;s col:
1487	col: >l lp- col: col: r>
15	lit lit @local1 field: 2! @local1
7	con: swap ! ;s branch r>
638	;s ;s col: lit col: user:
152	defer: (emit) ;s col: col: r>
176	defer: (type) ;s @local1 field: @
14	?branch @local1 ?branch @local1 @local0 field:
1768	con: col: dup field: @ field:
1	@ ;s r> tuck - lit
548	>l lp- @local1 2@ drop lp+
61	@local1 field: col: >l >l con:
12	col: dup 0< ;s r> col:
15	(?do) lit @local1 i col: cells
7	nip ?branch 2dup >float ?branch 2drop
283	var: @ ?branch dup @ lit
323	lit (?do) count col: user: @
14	rdrop ;s nip ?branch var: 2@
637	dup aligned swap (?do) unloop ;s
114	execute col: defer: noop col: col:
8	>l >l >l lp- @local3 >l
1	! @local1 lp+2 ;s ;s branch
17	2dup u< ?branch @ branch 2dup
127	execute col: col: user: @ ;s
4586	dup @ 1- cells over +
152	con: <> and col: col: r>
2588	con: lp+2 ;s col: 0= ;s
60	col: user: @ ;s @ swap
21	;s ;s ! ;s ;s var:
561	swap dup col: col: user: @
4	swap 1+ /string ;s ;s over
316	2swap dup >r col: lit (?do)
58	>l @local0 does: @ + @
4998	@ execute col: drop con: ?branch
3904	@ @local1 i col: cells +
1	lp- col: r@ defer: col: cr
15	;s ;s dup @local1 field: !
8	> col: ?branch r> does: 2@
3259	@ lp+ ;s dup col: col:
2420	col: ?dup ?branch ;s branch lit
15	;s var: ! @local1 var: !
15	?branch dup user: ! over c@
2	(?do) dup lit pick col: dup
452	;s @local1 col: >l lp- @local1
4	drop lp+!# ;s @local3 @local1 @local2
822	var: @ ?branch col: dup @
10	nip nip execute field: ;s branch
319	execute col: col: col: user: @
60	@ swap col: 1- tuck +
225	dup cell+ rot move drop r>
770	lit ! user: col: con: swap
1	;s lp+ ;s @local1 lit col:
21	over = ?branch dup col: r>
225	pick >r cells sp@ cell+ dup
11	user: ! ;s col: col: 2dup
27	@ >r rp@ user: ! execute
2284	;s col: col: r> r> dup
4	;s @local3 field: @ @local1 col:
4	@local1 ! lp+ ;s @local3 @local1
5	drop + >r ;s @local1 lit
191	i - count lit and +
15	?branch dup r> - ?branch dup
45	;s ;s con: var: col: con:
2	2! @local1 lp+ ;s ;s branch
60	@ ;s @ swap col: 1-
314	lit cells over = ?branch drop
5242	i 2@ over <> ?branch col:
255	rdrop ;s var: ! col: var:
41	;s @ ;s lit cells col:
68	over char+ col: col: user: @
324	;s ;s col: r> dup cell+
561	0< ?branch var: @ @ over
15	field: lit col: >l >l >l
3182	dup ?branch 2drop con: lp+2 ;s
1	con: cells col: lit fill ;s
1638	! (loop) @local2 i col: cells
5	?branch lp+2 ;s @local1 lit col:
15	col: does: 2@ ;s col: over
20	@ swap var: ! ;s over
114	nip execute col: defer: noop col:
15	field: @local1 field: con: cells move
195	con: lp+2 ;s lp+ ;s col:
116	@local# col: col: col: user: @
124	@ var: ! ;s does: col:
2	col: ?dup ?branch ;s branch ;s
112	! ;s ;s 2drop branch ;s
143	dup ?branch 2drop lp+2 ;s cr
15	;s @local1 field: @local1 field: con:
77	dup ?branch 2drop lp+!# ;s lp+
132	nip execute col: defer: col: col:
16	?branch ;s ;s col: drop >r
5372	faligned ;s r@ lit and 0=
561	@ ;s dup faligned swap (?do)
5	var: <= ?branch drop lit lit
5	c@ lit <> ?branch 2dup +
117	?branch drop 2dup col: col: user:
440	swap c! ;s ;s col: lit
6	max var: @ min dup lit
285	@ execute col: col: col: user:
3	lp+!# ;s lp+ ;s lp+ ;s
4512	@ (hashfind) ;s ;s dup ?branch
280	! branch ;s ;s col: lit
12	?branch r> r> user: ! r>
11	;s ;s ;s r> ;s ;s
75	execute col: user: @ ?branch col:
54	cr lp+ ;s lp+ branch >l
15	move lp+ ;s @local1 col: field:
1	lp+ ;s var: @ lit col:
1	@local1 field: ! @local3 @local1 field:
11	>r col: col: col: r> dup
6	?branch nip ?branch 2dup >float ?branch
2046	;s lit pick + (loop) dup
1105	lit + dup @ 0< ?branch
26	;s col: cell+ count lit and
22	;s col: con: @ col: col:
5	2dup + lit swap c! 1+
15	lit col: >l >l @local0 field:
11670	user: @ ;s @ ;s lit
17	cells var: + @ user: !
17	lit u< ?branch cells var: +
124	@local3 does: @ + @ ;s
113	defer: (emit) ;s @local1 col: >l
3904	@local0 i col: cells + ;s
1464	@local3 = ?branch @local1 col: field:
1	;s ;s ;s @ col: col:
124	;s ! ;s lit lit !
822	+ var: @ ?branch col: dup
29618	col: user: @ ;s @ ;s
195	! swap ! col: r> dup
540	+! ;s c! ;s (loop) unloop
14	>r con: open-file 0= ?branch nip
14	?branch ;s swap 2dup r> -rot
29	var: +! lp+!# ;s ;s branch
31	over swap col: col: user: @
124	user: @ ;s var: ! var:
67	swap ! ;s @local1 i col:
191	swap c! ;s col: lit lit
1	rdrop ;s nip ?branch 2dup >float
14	;s ;s var: @ col: col:
16	pick r@ pick r@ pick rdrop
1666	@ col: col: col: col: user:
2583	user: @ ;s +! ;s c!
64	1+ swap lp+ branch >l >l
1	;s ;s @ col: col: user:
1	! ;s ;s ;s swap col:
2	unloop drop branch lit pick @
1	;s var: @ over ! lit
52	drop ;s ;s con: ! ;s
403	over min /string over swap r>
54	defer: (emit) ;s @local0 col: >l
54	lit defer: (emit) ;s @local0 col:
202	col: 0= ;s ?branch lp+2 branch
6	;s var: @ col: >l lp-
1	0= ?branch ;s dup ?branch 0>
7	user: @ ;s @ ;s col:
283	(hashfind) ;s ;s var: @ and
926	;s +! ;s ! ;s lit
13	execute col: col: var: dup @
269	;s ;s ;s ;s col: var:
984	;s dup ?branch @local3 @local# @local#
4	(type) ;s cr col: col: r>
6	;s defer: col: col: col: r>
358	lit u> ?branch dup user: @
437	! ;s ;s col: col: user:
62	unloop ;s branch ;s ;s branch
568	;s var: @ and ?dup ?branch
12	>r col: dup 0< ;s r>
42	! lp+ ;s lp+ ;s lp+
22	;s +! ;s ! ;s user:
4	dup >code-address lit = ?branch >does-code
132	noop ;s col: col: col: r>
9	;s cell+ dup faligned <> ?branch
15	unloop ;s dup ?branch dup r>
22	;s user: ! ;s col: con:
436	>r dup ?branch over c@ r@
112	;s ! ;s ;s 2drop branch
6	2@ rot field: @ ;s >r
6	2dup r> -rot move ;s @local0
35	user: @ ?branch con: min >r
35	;s user: @ ?branch con: min
2	;s ?branch ;s ;s col: lit
191	lit lit ! ;s ;s col:
58	;s col: dup col: dup con:
142	defer: (type) ;s cr branch lp+2
295	(type) ;s @local1 col: >l lp-
2546	- dup @ tuck - ;s
29	@local0 col: col: col: user: @
4	;s ;s branch col: col: user:
12	execute col: var: @ ?branch var:
5189	@ field: @ execute col: drop
13	user: @ user: ! user: @
15	unloop lp+2 ;s @local1 col: field:
44	@local0 field: ! @local0 field: lp+
1	nip execute lshift ;s branch col:
26	;s ;s col: lit does: swap
403	@ ;s user: @ over min
13	@ user: ! user: @ >r
58	lp+!# ;s lp+2 ;s @local1 does:
15	branch (loop) unloop lp+ ;s lp+
61	+ >r ;s @local0 field: @local1
26662	@local1 cell+ @local1 @ lp+ ;s
1	2drop col: col: user: @ ;s
54	;s con: col: >l lp- col:
5	;s lit <> ?branch @local1 col:
15	con: cells move lp+ ;s @local1
216	@ + @ ;s col: cells
125	user: @ col: faligned dup col:
1	?branch nip nip execute cell+ ;s
25	(type) compare 0<> ?branch 2drop col:
8475	2dup + r> - 1+ r>
19	and ;s ;s ;s branch col:
556	;s ;s ! ;s ;s lit
1	(type) compare 0<> ?branch col: col:
1	(?do) unloop lit branch ;s dup
15	! over c@ lit = ?branch
13	cells + 2! ;s var: 2@
2	r> var: ! ;s ;s drop
1	col: var: @ 0= ?branch con:
1140	col: col: user: @ ?dup ;s
650	(f83find) ;s ;s dup ?branch col:
36	lp+2 ;s lp+2 ;s lp+ branch
155	count defer: (type) ;s cr lp+
2036	0< ;s col: lit col: >r
4	0= ?branch ;s >body @ col:
6	?branch nip nip execute >body ;s
1638	;s ! (loop) @local2 i col:
1616	user: @ ;s @ ;s @local1
30	>l >l does: 2@ ;s col:
2327	?branch negate ;s ;s ;s dup
67	1+ user: +! ;s col: col:
2266	>r swap >r ;s >r ?branch
17	u> ?branch lit - dup lit
4	;s ;s over c@ lit <>
1	@ ;s @ ;s >r over
88	?branch con: col: >l lp- col:
15	?branch lp+2 ;s lp+ ;s cr
210	cells + ;s ! (loop) lit
1	! ;s drop ;s user: @
36	;s 0= ?branch ;s ;s branch
246	?branch rdrop ;s ;s col: lit
29	nip execute col: >l >l @local0
2	@ ;s @ ;s col: lit
1	defer: (type) ;s defer: (type) branch
5	swap ! ;s col: var: @
561	over ! var: @ ! branch
12	rdrop lit ;s r> user: !
1105	;s tuck cell+ ! r> var:
44	over - swap ! ;s drop
2583	@ ;s lit col: col: user:
2	execute col: lit user: ! col:
9	r@ u>= ?branch col: dup col:
10	?branch ! ;s ;s branch col:
5372	?branch col: cell+ dup c@ >r
2546	over - does: swap lit max
726	;s ! ;s lp+!# ;s lp+
1	! ;s ;s col: col: col:
590	move ;s col: col: col: user:
13	2@ nip 1- user: ! lit
32	! ;s drop branch ;s ;s
14	dup ?branch rdrop ;s nip ?branch
58	col: >l >l @local0 does: @
15	var: ! @local1 var: ! var:
276	>r ?branch rdrop ;s ;s col:
302	rdrop r> ?branch r> user: !
11	nip nip execute col: >r col:
45	;s con: var: col: con: swap
542	and ?dup ?branch 2drop 2drop ;s
4020	@ col: >l >l @local0 @local1
22	! ;s drop ;s ;s ;s
5	<> ?branch 2dup + lit swap
1	lit ! lit col: >r sp@
2408	;s ?branch col: col: sp@ user:
726	;s @local0 >l lp- @local1 col:
360	dup col: count lit and +
8	/string branch dup >r col: lit
211	;s does-code! ;s ;s ;s branch
75	con: * 1- >r r@ col:
97	;s ! ;s ;s ;s branch
1564	and ?branch nip nip execute col:
4	>l >l col: does: 2@ ;s
726	! ;s lp+!# ;s lp+ ;s
194	execute col: user: @ col: aligned
40	nip nip execute col: col: lit
259	;s lit lit ! lit col:
6	?branch negate ;s ;s ;s 0=
16	lit lit col: >r >r lit
7	col: ;s ;s branch col: sp@
8475	@ ;s 2dup >r >r user:
4751	con: / col: col: lit /mod
672	;s 0= ?branch @local1 field: @
6	nip execute col: dup >code-address lit
1	lshift ;s branch col: sp@ user:
83	col: lit over 0<> ?branch faligned
13	1+ var: 2! 2* cells +
152	dup con: <> swap con: <>
4	lit swap 1+ /string ;s ;s
17	! ;s code-address! ;s ;s lit
61	! (loop) unloop lp+ ;s lp+
9	col: cells con: ;s col: col:
1	lit col: dup negate user: +!
3	(+loop) i col: cells var: @
1	lp+!# ;s lp+ ;s @local1 lit
34	execute col: >l >l >l >l
31	@ ;s swap col: col: user:
28	rdrop ;s ;s ;s ;s ;s
9	u>= ?branch col: dup col: dup
4998	field: @ execute col: drop con:
16	;s ;s r> r> rot col:
50	cmove var: over r> + dup
5	;s +! ;s 2! ;s branch
1	r> -rot move ;s drop var:
50	swap cmove 2dup var: r@ +
1	lp+!# ;s lp+ ;s col: col:
4	nip execute col: col: con: col:
6	@ ;s +! ;s f! ;s
4586	var: dup @ 1- cells over
1664	;s @ @local3 i col: cells
6	;s r> does: 2@ ;s drop
1	r> ;s col: user: @ >r
124	! ;s ;s var: @ user:
1	swap 1+ /string ;s var: 2!
360	user: @ u>= ?branch con: ;s
2	?branch lp+2 ;s col: col: r>
124	cells + ;s ! ;s lit
108	;s var: @ ?branch con: ;s
1	col: con: 0= ?branch lit (bye)
15	@local1 field: con: cells move lp+
50	@local1 ! lp+ ;s lp+ ;s
2	?branch ;s ;s col: lit lit
36	0> ?branch col: r> dup cell+
13	con: swap ! ;s lit col:
556	;s @ ;s dup user: !
4	@local1 @local2 field: @ col: >l
15	lit (?do) var: @local1 field: i
1	! var: @ con: cells col:
2586	col: lit does: swap lit max
251	! ;s col: col: var: dup
13	2* cells resize col: ?dup ?branch
7	(loop) unloop 2drop drop con: ;s
4	con: = ?branch drop (parse-white) branch
2	dup @ ?branch dup defer: col:
6	@ ?branch lp+ ;s lp+ branch
2	@ user: ! dup ?branch drop
250	?branch rdrop ;s var: ! ;s
169	nip branch dup @ dup ?branch
236	execute col: lit col: >r defer:
29	2drop lp+!# ;s @local1 does: @
4	;s (loop) unloop ;s ;s branch
285	;s col: user: @ ?dup ;s
45	>r ;s var: col: con: swap
6	(type) ;s ;s ;s col: col:
6	;s @local2 @local3 col: swap >r
44	col: >l >l @local0 @local1 !
6	;s >body user: @ ?branch col:
18	user: @ lit pick col: lit
540	r> min user: ! ;s col:
13	r> -rot move ;s col: var:
108	?branch drop con: lp+2 ;s 0=
8	;s lp+ ;s lp+ ;s col:
6	defer: (type) col: col: r> r>
6	2* cells + 2@ rot field:
3	@ ;s +! ;s ;s branch
1105	con: (hashkey1) ;s xor cells >r
27	?branch ;s col: var: col: con:
4078	over <> ?branch drop 2drop lit
285	@ ! branch ;s ;s col:
1	drop ;s branch col: sp@ user:
15	+ ! lit var: +! var:
135	swap ! ;s con: ;s ;s
8	dup @ 0< ?branch drop ;s
26	unloop drop ;s ;s col: lit
8	;s ?branch col: user: @ >r
27	sp@ r> swap >r fp@ >r
1	lit > ?branch con: lit !
5	execute does: 2@ ;s ;s branch
319	dup col: user: @ swap -
5	nip nip execute does: 2@ ;s
1	defer: noop var: @ lit >
3282	@ execute col: @ (f83find) ;s
5683	col: var: @ col: col: dup
12	;s ;s r> user: ! rdrop
36	@ @local0 col: >l >l @local0
15	min user: ! ;s col: col:
8471	>r >r user: @ /string (parse-white)
309	branch ;s dup ?branch 2drop rdrop
50	>r var: swap cmove 2dup var:
1425	col: user: @ ?dup ;s ?branch
375	?branch dup user: @ u>= ?branch
3745	aligned ;s con: - lit over
5	lp+ ;s dup 0= ?branch execute
6	field: 2! @local0 field: col: con:
1	field: ! @local3 @local1 field: !
6	col: cell+ dup @ 0< ?branch
40	swap con: - dup @ swap
8	nip execute ! ;s branch col:
55	dup aligned swap (?do) con: col:
542	@ and ?dup ?branch 2drop 2drop
316	swap ! ;s over c@ lit
15	var: lit col: >l >l >l
135	! ;s lit user: ! var:
25	defer: (type) compare 0<> ?branch 2drop
556	! ;s ;s lit col: col:
2333	lit and ?branch negate ;s ;s
486	;s ;s col: col: col: user:
30	;s lp+ ;s cr col: col:
61	>l @local0 col: >l lp- var:
8	@ var: = ?branch lp+ ;s
5	>l >l @local0 @local1 con: col:
124	var: ! var: user: ! col:
9	<> ?branch col: r> dup cell+
114	count defer: (type) ;s lit col:
469	@ ;s col: lit col: lit
30	@ @local2 @local3 col: >l >l
12	@ swap - con: / ;s
26	and ;s 2dup defer: (type) compare
15	= ?branch @local2 i col: cells
45	2drop lp+!# ;s var: @ ?branch
6	(type) ;s ;s col: col: r>
8	= ?branch @local1 field: @ var:
7	2drop rdrop user: col: con: swap
3230	col: drop con: ?branch lit col:
4	col: var: @ 0= ?branch var:
2	! dup @ dup ?branch 2dup
12	r> user: ! >r ;s drop
364	@local1 col: >l lp- @local1 does:
1649	@local1 branch i col: cells +
15	@local1 var: ! var: @ @local1
2	?branch 2r> defer: col: 2dup lit
108	;s con: = ?branch var: @
542	2drop ;s var: @ field: @
1	col: var: 2@ lit (?do) unloop
697	col: user: @ ?branch defer: col:
45	@local1 field: col: >l lp- con:
2	drop branch lit pick @ ?dup
9	! ;s ;s col: var: @
4	;s con: ! ;s (loop) col:
16	>r >r lit col: 1+ con:
3282	execute col: @ (f83find) ;s ;s
2420	+! swap user: ! lit user:
300	;s 2drop ;s ;s branch col:
540	swap (?do) con: col: col: col:
46	! ;s lp+ ;s @local1 @local0
29	+! ;s ! ;s var: @
7	0< ?branch drop ;s col: user:
14	;s ;s dup col: col: col:
2	;s ;s cell+ cell+ dup user:
29	>l @local1 ?branch @local0 1+ @local1
29	nip execute swap ;s branch col:
1	+! ;s user: @ ?branch col:
91	1+ con: * 1- >r r@
1	2! ;s defer: noop var: @
114	defer: noop col: col: col: r>
890	+! ;s ! ;s lp+ ;s
408	0> ?branch nip nip execute does:
2721	= ?branch drop branch (loop) @local1
2880	;s @ dup var: = ?branch
4	@local3 @local1 field: col: >l >l
6	;s ;s @local2 @local3 col: swap
194	user: @ col: aligned dup col:
20	var: ! ;s over r@ u>=
3716	c! ;s ;s 2dup d0= ?branch
77	?branch 2drop lp+!# ;s lp+ ;s
407	;s col: lit over = ?branch
822	2dup swap col: lit + dup
195	;s dup ?branch @local# @local# execute
4734	lit (+loop) 2dup i 2@ over
255	dup con: > col: col: r>
30	execute over ;s branch col: sp@
142	@local3 col: >l lp- @local1 col:
5	?branch execute var: col: >l >l
3182	lp+ ;s dup ?branch 2drop con:
31	lit var: ! ;s ;s lit
4	r@ <> ?branch rdrop ;s over
2420	branch lit user: +! swap user:
26	(+loop) unloop drop ;s ;s col:
5	@local1 ?branch lp+!# ;s lp+ ;s
2407	?branch 2drop ;s branch col: user:
5	2@ col: >l >l @local0 @local1
1	fasin ;s branch col: sp@ user:
7	! ;s lit col: user: @
67	;s col: lit col: >r defer:
112	over does: @ + @ ;s
195	>l lp- var: @ @local1 col:
1	! ;s branch col: con: @
135	user: @ user: @ col: var:
1	floats ;s branch col: sp@ user:
1105	col: lit pick @ ?dup 0=
561	user: @ ;s +! ;s move
726	@ ;s @local1 >l lp- @local1
60	swap invert and ;s col: user:
124	drop user: @ col: faligned dup
4586	1- cells over + (do) 2dup
50	r> + dup >r con: open-file
36	@local0 @local1 swap >l >l @local3
2546	;s con: - dup @ tuck
316	col: col: user: @ >r user:
112	2@ drop lp+ ;s @local1 field:
29	+ ;s @ @local1 @local0 does:
15	@local1 lit + ! lit var:
25	;s over r@ u>= ?branch col:
1	noop var: @ lit > ?branch
4751	+ ;s swap col: con: -
2036	lit col: >r tuck dabs col:
29	>l >l @local1 ?branch @local0 1+
1	swap - ;s col: col: col:
137	?branch rdrop ;s ;s lit lit
10	execute field: ;s branch col: sp@
2420	?branch col: user: @ ;s con:
592	user: @ ;s @ ;s swap
672	con: lp+2 ;s 0= ?branch @local1
12	swap - con: / ;s lit
195	?branch @local# @local# execute col: >l
9	col: >l lp- lit @local1 !
2	user: ! dup ?branch drop user:
5	dup var: <= ?branch drop lit
6	<> ?branch rdrop ;s dup 0=
4	branch 2dup + r> - 1+
7	?branch 2drop rdrop r> ?branch dnegate
31	var: ! ;s ;s lit col:
18	var: ! ;s ;s ;s branch
1	r> tuck - lit cells /
29	;s @local1 does: @ + 2@
15	>l lp- con: lit (?do) var:
1	fill ;s var: @ over !
17	lit u> ?branch lit - dup
112	con: lp+2 ;s 0= ?branch @local3
2	?dup 0= ?branch 2dup * allocate
36	0= ?branch ;s ;s branch col:
29	;s ;s col: 2drop col: col:
46	nip nip execute col: lit lit
67	@ <> ?branch var: col: con:
283	pick ! ! branch var: col:
4305	nip nip unloop ;s ;s ;s
89	nip execute col: defer: col: defer:
982	col: >l lp- @local1 does: @
2	@ ;s col: lit >code-address ;s
1	unloop ;s ;s branch ;s ;s
7	! ;s ;s var: field: @
7	execute col: ;s ;s branch col:
8	;s @local0 field: @ col: >l
2	= ?branch >code-address ;s ;s branch
9	dup faligned <> ?branch col: r>
4	1+ r> move c! ;s con:
15	lit @local1 field: 2! @local1 lp+
1	con: ! ;s (loop) unloop ;s
316	! ;s user: @ 0= ?branch
568	cell+ count lit and ;s var:
93	(type) ;s lp+ ;s col: col:
822	?branch drop ! ;s var: col:
1105	@ ?dup 0= ?branch >r drop
770	lit lit ! user: col: con:
45	con: swap ! ;s @local1 field:
35	;s ;s ;s col: r> dup
692	@ ;s dup aligned swap (?do)
13	1- user: ! lit col: >r
568	;s var: @ field: @ field:
1	cell+ ;s branch col: sp@ user:
2	<> ?branch rdrop ;s nip ?branch
568	r> col: dup field: @ field:
77	lp+!# ;s lp+ ;s @local1 col:
28	r@ col: 1- tuck + swap
5	1+ col: col: col: user: @
1	2@ col: col: col: col: user:
407	- ;s col: lit over =
124	user: ! col: col: var: dup
309	?branch col: over c@ lit -
16872	col: user: @ ;s +! ;s
13	;s var: 2@ nip 1- user:
124	swap ! ;s ;s var: @
7	;s code-address! ;s ;s ;s branch
7	r> ?branch dnegate r> user: !
5	;s lit swap 1+ /string ;s
55	aligned swap (?do) con: col: col:
27	>r fp@ >r col: laddr# ;s
28	;s + swap r> col: 1-
2408	col: col: sp@ user: @ >
498	col: >r col: col: col: col:
1	;s @local1 field: @ var: =
100	lit ! ;s lit col: >r
1	nip ?branch 2dup con: open-file col:
30	execute col: lit lit ! user:
54	;s lp+ ;s con: col: >l
1105	r@ swap col: lit fill ;s
2	close-file col: ?dup ?branch ;s branch
45	(do) @local1 i col: cells +
15	@ var: = ?branch @local2 i
945	(loop) var: @local1 field: i col:
79	cells over = ?branch col: r>
9	user: @ ;s @ ;s cell+
4	/string rot dup con: = ?branch
4795	field: @ execute col: lit +
4	execute col: con: swap ! ;s
2	lp+ ;s lp+ ;s col: r@
283	! branch var: col: con: swap
561	;s @ ;s swap dup col:
44	;s con: = ?branch col: col:
694	lp+!# ;s lp+2 ;s lp+ branch
88	@local1 field: @ col: col: dup
5092	+ aligned ;s con: - dup
22	;s ;s ;s ;s col: user:
1097	@ ;s user: @ ;s user:
191	faligned over lit + = ?branch
124	?branch drop user: @ col: faligned
132	col: defer: col: col: con: <>
5	?branch drop defer: col: 2dup lit
107	and ?branch ;s ;s ;s 0=
316	;s ;s dup ?branch ;s ;s
1	compare 0<> ?branch col: col: r>
192	drop ;s ;s ;s cell+ dup
1	nip execute invert ;s branch col:
15	drop con: ;s ?branch 1- i'
1865	;s ! ;s ;s ;s ;s
984	lp+ ;s dup ?branch @local3 @local#
1	@local1 field: ! @local1 lp+2 ;s
34	user: @ ;s +! ;s ;s
283	! ! branch var: col: con:
283	lit pick ! ! branch var:
27	col: ?dup ?branch ;s swap 2dup
692	@ ;s @ ;s dup aligned
29	and ?branch nip nip execute swap
79	;s branch drop ;s ;s ;s
1356	drop lit col: drop var: dup
132	user: ! noop ;s col: col:
1	nip execute floats ;s branch col:
6	! ;s drop branch ;s branch
5372	c@ >r col: count lit and
1512	count defer: (type) ;s @local1 does:
26	col: >l >l >l lp- con:
2	or ?branch lp+ ;s @local1 col:
2408	?branch col: col: sp@ user: @
299	1+ user: +! ;s 2drop ;s
195	lp+2 ;s lp+ ;s col: ?branch
5	;s >l lp- @local2 @local1 field:
124	var: ! ;s con: lit !
250	@ 1- dup 0= col: col:
2586	i - lit min 2dup defer:
141	nip nip execute col: col: user:
10	lp+2 ;s lit <> ?branch lp+
15	;s ;s ;s col: lit defer:
26	?branch @local1 field: @local1 field: @local1
6	@ min dup lit (?do) unloop
64	@local0 1+ swap lp+ branch >l
61	>l lp- lit @local1 >l >l
4	?branch >does-code lit or branch ;s
412	dup ?branch nip nip ;s ;s
2	?branch >code-address ;s ;s branch col:
125	defer: noop ;s ;s branch col:
4632	branch dup ?branch over c@ r@
20	?branch nip nip execute col: cells
26	?branch 2drop lp+2 ;s lp+ ;s
12	col: >r col: dup 0< ;s
191	col: var: count col: col: col:
1	var: r> ;s col: user: @
1	execute * ;s branch col: sp@
26	cell+ count lit and ;s 2dup
402	dup r> ?branch 1+ user: +!
4	>l lp- @local2 @local1 field: col:
15	field: lp+ ;s var: ! @local1
3	;s con: ! ;s branch col:
63	col: con: swap ! ;s branch
2	2@ 2over compare 0= ?branch 2drop
309	user: @ dup 0> 0= ?branch
6	;s lit col: >r col: dup
135	lit ! lit col: user: @
10	?branch nip nip execute field: ;s
16	;s col: drop >r drop col:
1006	?branch 1- r> lit and ?branch
14	allocate col: ?dup ?branch ;s swap
15	+! ;s ;s dup @local1 field:
2	;s lit col: lit lit !
14	(?do) unloop ;s ;s col: col:
2	nip nip execute col: does: 2@
1	defer: drop ;s ;s branch col:
52	branch drop ;s ;s col: col:
78	cr col: col: r> r> dup
2036	dup 0< ;s col: lit col:
13	-rot move ;s col: var: 2@
3745	over +! @ c! ;s ;s
6	drop over field: @ 2* cells
10	con: swap ! ;s lp+2 ;s
9	;s @ var: ! ;s ;s
255	var: @ 1+ dup con: >
1783	;s 2drop ;s branch col: sp@
15	cells cmove @local1 var: lit col:
12	lit col: >r col: dup 0<
6	floats col: col: user: @ ;s
6	@ ;s @ ;s lit floats
9	;s ;s col: var: @ dup
36	(loop) dup >r 2@ dup >r
23	;s ! lp+ ;s @local1 col:
3259	@local1 @ lp+ ;s dup col:
21	;s drop ;s ;s ;s branch
7	;s ! ;s ;s var: field:
32	@ col: 2dup u< ?branch =
78	0<> ?branch faligned nip ;s user:
316	swap ! ;s lit lit 2swap
561	@ 0< ?branch var: @ @
1746	;s ;s dup ?branch lit and
88	count defer: (type) ;s @local3 col:
3	execute cells ;s branch col: sp@
16	! ;s ;s drop con: ;s
12	close-file swap 2dup or col: dup
1	@ ;s @ ;s col: col:
13	col: 2dup u< ?branch @ branch
369	um* drop rot user: @ um*
14	?dup ?branch ;s swap 2dup r>
1	var: 2! ;s defer: noop var:
498	col: lit col: lit col: >r
2	?branch lp+2 ;s lp+ ;s var:
8	>l lp- @local3 >l lp- @local1
726	con: lp+!# ;s ?branch @local0 @local1
15	field: ! @local1 col: >l lp-
13	@ col: 2dup u< ?branch @
124	var: @ user: ! dup ?branch
1	+ >r ;s con: col: >l
1746	dup ?branch lit and ?branch nip
556	;s +! ;s ! ;s code-address!
7	@ ;s col: >l >l @local0
5242	2@ over <> ?branch col: dup
316	;s lit lit 2swap dup >r
5	?branch rdrop ;s over r> tuck
3716	r@ um/mod r> swap >r um/mod
46	lit @local1 >l >l @local1 col:
7	;s @local1 field: @ 0<> ?branch
822	dup ?branch drop ! ;s var:
54	(type) ;s cr lp+ ;s lp+
3	nip execute col: col: >l lp-
44	>l @local0 @local1 ! lit @local0
24	lit ! ;s ;s branch col:
196	code-address! ;s ;s col: lit col:
2420	col: user: @ ?branch col: user:
316	! ;s over c@ lit =
8475	r> - 1+ r> min user:
1	execute col: con: 0= ?branch lit
984	@local# execute col: >l >l >l
10	<> ?branch lp+ ;s @local1 col:
3837	<> ?branch @local1 i col: cells
3933	col: cells + ;s @ @local1
7	drop ;s col: user: @ ?dup
9	?branch col: dup col: dup con:
117	?branch col: user: @ ?branch col:
58	lp+2 ;s @local1 does: @ +
5	col: >l >l @local0 @local1 lit
6	var: 2@ drop over field: @
29	execute swap ;s branch col: sp@
1	execute f* ;s branch col: sp@
283	@ + var: @ ?branch dup
1	execute col: var: @ dup @
6	@ ?branch col: user: @ ?branch
16	;s r> r> rot col: con:
218	@ ;s does-code! ;s ;s ;s
174	;s @local1 = @local2 var: <>
1664	col: cells + ;s @ @local3
191	- unloop ;s ;s ;s dup
125	faligned dup col: user: @ swap
50	dup >r con: open-file 0= ?branch
358	dup lit u> ?branch dup user:
27	>r rp@ user: ! execute col:
2019	0< ?branch ;s col: 2drop col:
5	lit col: >l >l @local0 @local1
4	;s lp+!# ;s lp+ ;s @local0
24	branch dup @ dup ?branch nip
28	+! ;s ! ;s + swap
4751	col: con: - ;s con: /
114	dup var: = ?branch i col:
195	dup ?branch @local# @local# execute col:
23	lp+!# ;s lp+ ;s @local1 !
23	;s lp+!# ;s lp+ ;s @local1
1	- dup r> ?branch user: +!
4	= ?branch drop (parse-white) branch 2dup
2	user: @ ;s ;s branch col:
822	@ dup ?branch drop ! ;s
561	@ ;s @ ;s user: !
556	lit >code-address ;s col: col: col:
88	lp+ ;s @local3 does: @ +
29	;s ;s ;s @local1 does: @
13	;s ;s branch ;s ;s branch
299	lit u< ?branch drop ;s user:
282	nip execute col: defer: defer: col:
694	;s lp+!# ;s lp+ ;s @local3
3716	lit + col: col: col: col:
11	>r col: r> dup cell+ >r
2	2drop user: @ ?branch ;s ;s
1105	! r> var: @ + var:
114	noop col: col: col: r> r>
729	;s col: 0= ;s ?branch @local1
8	;s lp+ ;s @local1 field: @
16	swap con: - swap lit col:
316	?branch ;s ;s dup ?branch drop
23	+ @ ;s ?branch lp+ ;s
151	@ @local1 lit col: >l >l
376	@local1 @local3 execute col: >l lp-
931	and col: ?dup ?branch ;s ;s
299	drop ;s user: col: con: swap
931	?branch @local1 @local0 col: >l >l
13	lit user: ! user: col: con:
3843	! (loop) @local0 i col: cells
201	@local# execute col: >l >l @local0
407	?branch nip nip execute does: @
283	?branch var: @ col: lit +
369	?branch col: swap >r swap user:
73	@local# execute col: >l >l @local1
29	field: lp+ ;s ;s branch col:
195	user: ! swap ! col: r>
4	@ ;s ;s char+ c@ ;s
2	var: ! ;s branch @ dup
568	;s var: @ col: >r 2dup
14	?dup ?branch ;s var: swap ;s
4751	;s swap col: con: - ;s
12	;s drop col: ?dup ?branch ;s
15	@local1 field: @ ?dup 0= ?branch
2386	?branch 2drop con: lp+2 ;s col:
1	?branch r> drop r> col: col:
1	+! ;s f! ;s col: r>
435	branch ;s ;s ;s branch col:
4751	dup @ + ;s swap col:
44	2@ nip lp+ ;s col: >l
114	@ dup var: = ?branch i
61	drop + >r ;s @local1 col:
2880	field: i col: cells + ;s
2550	! ;s col: col: user: @
7	;s 2! ;s col: r> /does-handler
218	col: user: @ ;s does-code! ;s
1006	and ?branch 1- r> lit and
436	col: >r dup ?branch over c@
1	;s drop var: 2@ nip var:
369	;s ?branch col: swap >r swap
12	! >r ;s drop col: ?dup
9	?dup ?branch ;s ;s ;s ;s
762	xor swap c! ;s ;s col:
44	2@ drop lp+ ;s col: >l
15	lp- @local1 field: @ ?dup 0=
370	;s ;s col: dup lit u>
26786	>l lp- @local1 col: >l lp-
3	@local1 lp+ ;s ;s ;s branch
4	;s @ ;s ;s char+ c@
878	! ;s var: col: con: swap
682	drop ;s ;s branch col: sp@
9572	defer: col: col: user: @ ;s
61	@local0 col: >l lp- var: @
1	@ swap ! col: r> dup
9	@ ;s @ ;s cell+ dup
4	(parse-white) branch 2dup + r> -
7	?branch lit /string col: over c@
370	! ;s ;s col: defer: col:
556	dup user: ! lit col: col:
13	branch 2dup u< ?branch = ;s
191	;s var: c! var: count move
1105	col: con: (hashkey1) ;s xor cells
6	>body user: @ ?branch col: user:
1	?branch con: lit ! lit col:
4751	col: col: con: dup @ +
148	lp- @local1 col: >l lp- col:
6	nip nip execute col: dup >code-address
1	;s var: 2! var: up! sp@
1	;s ;s ;s ;s @ col:
206	+! ;s ! ;s ;s ;s
7935	user: @ > ?branch fp@ user:
370	defer: defer: col: col: col: col:
1	con: lit ! lit col: >r
54	@local# execute col: >l >l col:
536	lit over = ?branch lit cells
374	cells + ;s ! ;s col:
8	! ;s branch col: sp@ user:
454	= ?branch drop con: lp+2 ;s
124	! lit col: lit lit !
56	= ?branch var: @ ?branch col:
316	;s dup ?branch ;s ;s dup
5	?branch lp+ ;s dup 0= ?branch
573	@local3 execute col: >l lp- @local1
2048	! ;s lit pick + (loop)
111	0> 0= ?branch nip ;s dup
5	does: 2@ ;s ;s branch col:
5372	col: cell+ dup c@ >r col:
729	;s +! ;s ! ;s lp+2
1920	;s ! var: @local1 field: i
7	?branch 2dup >float ?branch 2drop user:
2	execute col: user: @ ;s ;s
131	;s col: user: @ swap -
13	! ;s lit col: >r sp@
13	= ?branch r@ user: +! user:
1659	@local1 ?branch @local1 @local3 = ?branch
60	col: user: @ ;s ! drop
1	;s ;s float+ dup user: !
937	dup ?branch drop branch lit (+loop)
25	;s tuck ! cell+ tuck !
201	user: @ ;s @ ;s ;s
45	drop branch (loop) unloop lp+ ;s
41	! (loop) unloop lp+2 ;s @local1
9	;s branch col: var: @ dup
8	?branch col: user: @ >r col:
29	lit defer: (emit) ;s @local1 does:
469	@ + @ ;s col: lit
5	;s lp+ ;s dup @local1 i
124	col: user: @ ;s var: !
2	?branch nip nip execute code-address! ;s
23	@ ;s ?branch lp+ ;s @local1
29	+ 2@ ;s defer: (type) col:
726	?branch-lp+!# drop lp+2 ;s lit cells
251	;s col: col: var: dup @
4	@ + @ col: lit lit
88	(type) ;s @local3 col: >l lp-
26	field: col: >l >l >l lp-
50	2dup var: r@ + swap cmove
141	nip execute col: col: user: @
2880	cells + ;s @ dup var:
890	@ ;s @ ;s @local1 col:
2	0= ?branch 2drop con: ;s ?branch
16	pick r@ pick rdrop dup col:
1	! ;s rp@ user: ! fp@
44	@local0 lit col: >l >l @local0
44	;s @local0 lit col: >l >l
44	lp+ ;s @local0 lit col: >l
26	field: @local1 field: @local1 field: col:
72	lp+ ;s @local1 ! lp+ ;s
124	! ;s lit lit ! lit
561	;s ;s col: dup col: col:
29	lit var: +! lp+!# ;s ;s
2586	2dup defer: (type) (+loop) unloop drop
300	+! ;s 2drop ;s ;s branch
1	var: 2! col: var: 2@ 2*
1	! user: ! user: col: con:
2	;s lp+ ;s var: @ col:
45	! ;s @local1 field: @ @local1
46	;s 0<> ?branch @local0 col: >l
2533	?branch-lp+!# >l lp- @local1 col: >l
822	@ dup ?branch 2dup swap col:
303	col: lit col: >r defer: col:
29	+! ;s ! ;s @local0 col:
663	?branch lit cells over = ?branch
1	;s ! ;s ;s col: user:
1	@ ;s @ ;s r> tuck
28	lp+ ;s branch lp+2 ;s lp+
997	drop ;s ;s ;s ;s lp+
52	dup col: lit over 0<> ?branch
8475	user: @ ;s 2dup >r >r
262	;s ;s ;s col: var: col:
4	@local2 @local1 @local3 field: @ col:
11	nip execute col: 1+ >r col:
2	lit pick + (loop) unloop drop
5	var: @ con: >= ?branch ;s
281	unloop 2drop con: ;s ;s ;s
255	var: ! col: var: dup @
9	;s ;s col: r> /does-handler +
27	col: col: col: con: <> col:
125	;s ! ;s does: col: var:
7	;s var: field: @ col: col:
2786	@ ;s @ ;s lit col:
152	col: dup col: dup con: <>
6	var: @ min dup lit (?do)
6	/ ;s lit col: >r col:
205	lp+!# ;s ?branch @local0 branch lp+
29	+! lp+!# ;s ;s branch col:
1	?branch user: +! ;s 2drop ;s
5	;s code-address! ;s lit col: col:
10	;s 2dup col: var: 2@ lit
278	;s lp+ ;s @local1 col: field:
2	con: col: >l lp- var: @
892	?branch @local2 @local1 col: >l >l
54	>l col: col: r> r> dup
28	lp+2 ;s lp+ ;s lp+ branch
4	swap ;s col: user: @ >r
42	;s >r ?branch rdrop ;s 0>
309	;s user: @ 0= ?branch user:
12	2drop con: lp+2 ;s ?branch lp+2
36	>l >l @local1 field: @ @local0
26	dup ?branch 2drop lp+2 ;s lp+
1664	+ ;s @ @local3 i col:
22	@ ?branch var: @ col: dup
323	>r col: lit (?do) count col:
11	+ >r ;s @local1 con: =
407	@ col: user: @ swap -
158	= ?branch lit floats over =
43	;s var: @ col: col: col:
22	var: @ col: dup con: !
5372	dup ?branch col: cell+ dup c@
402	<> ?branch rdrop ;s >r over
1746	lit and ?branch nip nip execute
9572	user: @ ;s user: @ ;s
9	lp+ ;s field: col: con: swap
1	execute fasin ;s branch col: sp@
1	@ dup @ ?branch drop ;s
11	user: @ ?branch defer: noop col:
561	;s col: dup col: col: col:
13	?branch r@ user: +! user: @
26	rp@ user: ! execute col: col:
3904	lp+ ;s dup @local1 i col:
8	= ?branch @local# @local1 ! drop
2	@local1 con: = or ?branch lp+
250	+ ;s ! ;s col: col:
4	<> ?branch rdrop ;s over r>
976	col: user: @ dup 0= col:
1	execute col: user: @ >r var:
42	;s dup 0= col: col: r>
4281	r@ lit and 0= ?branch lit
1	2dup con: open-file col: ?dup ?branch
4	user: ! ;s col: col: user:
12	rdrop lit ;s user: @ close-file
697	user: @ ?branch defer: col: col:
15	;s +! ;s ;s dup @local1
4051	@local1 ?branch drop con: lp+!# ;s
253	2@ ;s drop + >r ;s
1	! @local3 @local1 field: ! @local1
15	1- i' i - unloop ;s
3230	execute col: drop con: ?branch lit
4649	r@ <> ?branch lit /string branch
44	drop con: lp+2 ;s col: ?branch
113	;s ;s ;s 0= ?branch ;s
2	rdrop unloop con: ;s ?branch 2drop
1789	?branch col: col: col: col: user:
561	;s c! ;s col: col: user:
277	nip nip execute col: lit col:
1	user: @ ?branch col: col: r>
360	dup user: @ u>= ?branch con:
1	;s ;s ;s ;s cr ;s
2	code-address! ;s branch col: sp@ user:
3	;s ;s lit branch (+loop) i
6	con: / ;s lit max var:
7	?branch drop ;s col: user: @
5	con: >= ?branch ;s lit cells
25	?branch 2drop col: lit does: swap
14	>r dup allocate col: ?dup ?branch
1	lit swap 1+ /string ;s var:
282	nip nip execute col: defer: defer:
637	;s dup aligned swap (?do) unloop
97	lp+ ;s lp+ ;s lp+ branch
45	?branch 2drop lp+!# ;s var: @
5	field: 2@ col: >l >l @local0
2	;s code-address! ;s lit col: lit
1	drop ;s ;s drop col: r>
7	;s user: @ 0= ?branch 2drop
22	user: ! ;s col: con: @
4751	/ col: col: lit /mod rot
112	lp+2 ;s 0= ?branch @local3 col:
29	@local1 col: lit col: lit col:
29	field: ! @local0 @local1 col: >l
29	>l >l >l does: 2@ ;s
3837	;s @ <> ?branch @local1 i
5	(hashfind) ;s ;s dup ?branch col:
2	dup @ dup ?branch 2dup swap
8475	1+ r> min user: ! ;s
561	?branch dup @ 0< ?branch var:
3904	;s @ @local1 i col: cells
46	@ ;s 0<> ?branch @local0 col:
15	;s ;s >l lp- @local1 var:
1105	drop r@ @ rot ! r@
822	?branch 2dup swap col: lit +
1026	var: dup @ cells + ;s
767	lit cells col: col: user: @
12868	;s @ ;s con: col: col:
27	?branch r> cell+ cell+ (loop) dup
44	- swap ! ;s drop branch
42	;s ;s dup 0= col: col:
114	;s ;s defer: noop ;s ;s
1679	@local2 i col: cells + ;s
1	nip execute col: col: >l >l
1920	! var: @local1 field: i col:
3	;s ;s lit (?do) col: dup
8	field: @ var: = ?branch lp+
1	branch col: con: @ col: 2dup
135	var: var: ! lit con: !
1105	cells lit col: lit pick @
13	user: ! execute col: col: r>
60	! drop ;s col: col: user:
4751	rot + swap does: + c@
36	dup >r 2@ 2over compare 0=
88	@ ;s col: >l lp- col:
11	col: >r col: col: col: r>
1783	;s ;s 2drop ;s branch col:
14	and col: ?dup ?branch ;s var:
984	@local3 @local# @local# execute col: >l
4	;s lit > ?branch @local0 @local1
17	u< ?branch cells var: + @
2546	lit max lit (?do) unloop drop
5	@local1 @local1 field: 2@ col: >l
29	+! ;s ! ;s lit var:
124	! var: user: ! col: col:
27	var: ! ;s ;s col: dup
199	;s dup ?branch drop 2dup 2>r
26	>l >l >l lp- con: lit
1973	lp+ branch >l lp- @local1 ?branch
1	cmove var: r> ;s col: user:
4	var: ! defer: col: cell+ dup
34	nip execute col: col: col: user:
568	@ ?dup ;s ?branch dup @
13	var: 2@ nip 1- user: !
1305	;s lp+ ;s lp+ branch >l
5	con: col: col: dup field: @
11	;s ;s ;s ;s r> ;s
2	@ ?branch ;s ;s branch col:
6	nip execute >body ;s branch col:
16	;s 0= ?branch ;s ;s col:
2	unloop con: ;s ?branch 2drop close-file
4	@local2 field: @ @local1 col: >l
5	;s ;s 0= ?branch lp+ ;s
1920	+ ;s ! var: @local1 field:
890	! ;s lit col: col: col:
299	- dup lit u< ?branch drop
29	1+ @local1 col: field: @ ;s
5	;s branch ;s ;s r> ;s
4795	col: con: (hashkey1) ;s r> xor
145	branch dup @ dup ?branch drop
14	+! ;s does-handler! ;s branch con:
218	>l lp- @local1 2@ nip lp+
61	;s @local1 col: >l lp- var:
1	! ;s ;s ;s ;s @
5	>= ?branch ;s lit cells -
59	col: col: col: r> dup cell+
299	dup lit u< ?branch drop ;s
309	lit branch ;s dup ?branch 2drop
726	user: @ ;s +! ;s @local0
14	;s @local0 @local1 field: col: >l
21	cells over = ?branch dup col:
4	?branch col: col: 2dup lit col:
767	;s lit cells col: col: user:
3716	r> swap >r um/mod r> ;s
17	user: ! lit /string branch ;s
114	field: @ lit col: >l >l
124	lit lit ! lit col: lit
39	execute con: ;s branch col: sp@
4305	nip unloop ;s ;s ;s dup
20	cells con: ;s ;s branch col:
4	/string ;s ;s over c@ lit
4	;s @local2 field: @ @local1 col:
729	! ;s lp+2 branch >l lp-
4	>code-address lit = ?branch >does-code lit
17	code-address! ;s ;s lit col: col:
29	>l @local1 @local0 does: @ +
7	@ ?branch @local1 @local1 col: field:
124	var: ! ;s does: col: var:
2	?branch var: @ field: @ field:
132	! noop ;s col: col: col:
1105	! r@ swap col: lit fill
16	col: >r >r lit col: 1+
1823	;s lit col: col: col: user:
27	user: @ >r rp@ user: !
114	;s cr (loop) @local1 i col:
2588	;s >l lp- @local1 ?branch @local#
18	faligned swap (?do) unloop ;s lit
2	dup >code-address lit = ?branch >code-address
3	dup @ dup ?branch 2drop r>
4	move c! ;s con: col: col:
1105	@ rot ! r@ swap col:
56	- swap ! ;s col: dup
2408	lit user: ! ;s ?branch col:
1	?branch nip nip execute floats ;s
5	drop col: r> /does-handler + col:
1	-rot move ;s drop var: 2@
2546	- does: swap lit max lit
2002	@local1 col: field: @ ;s lp+
1	0> 0= ?branch ;s dup ?branch
2583	@ ;s +! ;s c! ;s
6	count defer: (type) ;s r> lit
29	nip nip execute swap ;s branch
132	! ;s ;s defer: col: noop
2002	col: field: @ ;s lp+ branch
6	cr col: col: var: 2@ drop
1657	col: 0= ;s ?branch drop con:
1	+! ;s ! ;s branch col:
94	does: @ + @ ;s var:
15	>l lp- @local1 @local1 field: lit
8	lp- @local3 >l lp- @local1 col:
135	! var: col: con: swap !
4	>r >r user: @ over min
1105	cell+ ! r> var: @ +
152	@ ;s ;s var: @ ?branch
6	r@ defer: col: cr col: col:
9	>l lp- lit @local1 ! lp+
29	swap ;s branch col: sp@ user:
945	;s ! (loop) var: @local1 field:
15	- ?branch dup user: ! over
225	cell+ rot move drop r> ;s
244	;s ! ;s code-address! ;s con:
21	?branch dup col: r> dup cell+
407	swap - ;s col: lit over
135	! user: ! noop ;s col:
44	branch ;s lit col: col: col:
2266	aligned >r swap >r ;s >r
2036	;s col: lit col: >r tuck
15	field: var: con: cells cmove @local1
4	+ >r ;s @local3 field: @
44	;s con: ! ;s ;s branch
48	nip execute col: col: col: r>
1	! col: lit lit col: >r
29	@ + 2@ ;s defer: (type)
2036	col: dup 0< ;s col: lit
89	;s ;s ;s col: lit >code-address
5	@ over ! lit var: +!
5242	over <> ?branch col: dup field:
14	unloop 0<> lit and col: ?dup
6208	r> dup count + aligned >r
299	u< ?branch drop ;s user: col:
428	lit col: >l >l @local0 >l
1	?branch drop ;s ;s drop col:
767	cells col: col: user: @ ;s
5068	?branch over c@ r@ <> ?branch
12839	@ ;s con: col: col: user:
2546	2drop col: col: col: user: @
180	con: <> col: col: r> r>
403	r> col: >r dup ?branch over
42	;s ;s ;s dup 0= col:
375	= ?branch toupper lit - dup
72	over 1+ r> move c! ;s
772	>l >l >l >l @local0 >l
9	?branch @local1 branch lp+ ;s @local0
2546	dup ! ;s col: col: user:
505	>r ?branch rdrop ;s var: !
61	r> ;s (loop) count col: user:
225	cells sp@ cell+ dup cell+ rot
308	dup 0> 0= ?branch nip ;s
561	@ ;s +! ;s move ;s
1	;s drop + >r ;s col:
15	;s ;s ;s lp+ ;s cr
29	@ ;s con: col: col: col:
191	col: col: defer: defer: col: var:
2	(loop) unloop drop branch lit pick
369	@ um* drop rot user: @
58	;s +! ;s ! ;s var:
1	col: >l >l does: 2@ ;s
7	?branch dup @ 0< ?branch drop
386	= ?branch drop col: r> dup
1	;s user: @ swap ! col:
4	;s ;s ;s branch col: col:
316	>r user: col: con: swap !
1482	+! ;s c! ;s (loop) con:
976	?branch rdrop ;s cell+ tuck c@
100	?branch drop con: lp+2 ;s ?branch
469	;s col: lit col: lit col:
4305	?branch nip nip unloop ;s ;s
52	con: @ col: 2dup u<> ?branch
4751	or swap c! ;s ;s !
44	@local3 col: >l >l @local1 col:
1619	@local1 col: col: col: user: @
1	open-file col: ?dup ?branch ;s -rot
1	col: var: @ dup @ ?branch
9	;s col: var: @ dup lit
1723	;s ;s ;s branch col: sp@
323	(?do) count col: user: @ lit
4	?branch ;s var: swap ;s col:
255	> col: col: r> r> dup
40	dup @ swap con: - dup
17	/string branch ;s user: col: con:
91	dup col: con: con: 1+ within
1638	(loop) @local2 i col: cells +
3904	cells + ;s @ @local1 i
8673	i col: cells + ;s !
39	?branch nip nip execute con: ;s
20	col: cells con: ;s ;s branch
1	! var: ! col: lit lit
6	cells + 2@ rot field: @
4	?branch @local1 field: @ @local1 lit
931	con: lp+!# ;s ?branch @local1 @local0
14	>l @local0 ?branch @local1 ?branch @local1
3942	aligned >r swap >r ;s count
20	- dup @ swap var: !
130	< or and ?branch @local2 @local1
36	swap >l >l @local3 does: @
72	lp+ ;s @local1 @ col: >l
1105	cells >r var: lit cells lit
52	?branch drop ;s dup col: lit
14	;s +! ;s does-handler! ;s branch
283	branch var: col: con: swap !
4795	lit + @ >r 2dup col:
9	col: col: col: col: con: @
28	;s +! ;s ! ;s +
44	< or and ?branch @local2 @local3
9	or ?branch @local1 field: @ var:
72	! ;s lp+ ;s @local1 @
17	! ;s ;s ;s col: r>
373	;s does: col: var: dup @
16	pick rdrop dup col: con: con:
84	cr lp+ ;s @local1 col: field:
38	?branch ;s ;s branch col: sp@
4	1+ /string ;s ;s over c@
65	@ >r user: @ >r user:
2426	user: @ ?branch col: user: @
1	;s cr ;s ;s branch col:
1	nip nip execute col: var: col:
25	>= col: col: r> r> dup
3	branch (+loop) i col: cells var:
5	lit lit col: >r dup ?branch
12	! col: ?dup ?branch ;s ;s
1	+ >r ;s col: col: user:
78	@local0 branch lp+ ;s @local3 lit
87	field: @local1 field: col: >l >l
26	?dup ?branch col: col: r> r>
1	2! col: var: 2@ 2* cells
62	unloop ;s ;s col: col: col:
568	@ ?dup ;s ?branch col: cell+
44	@local2 @local3 col: >l >l @local1
30	lp+ ;s cr col: col: r>
12	0<> ?branch lp+ ;s @local1 col:
36	var: r@ cmove var: r> ;s
124	! ;s col: var: @ ;s
4	branch ;s (loop) col: dup col:
4512	+ @ (hashfind) ;s ;s dup
7	;s drop con: ;s ;s branch
197	@ col: col: user: @ ;s
104	@local1 @local0 does: @ + @
1	execute drop ;s branch col: sp@
1	dup ?branch rdrop ;s dup 0=
1105	and col: con: (hashkey1) ;s xor
822	dup ?branch 2dup swap col: lit
1	var: ! defer: drop ;s ;s
75	;s rdrop dup col: con: con:
225	dup 1+ pick >r cells sp@
12	or col: dup ?branch r> r>
117	;s dup ?branch drop 2dup col:
8	var: = ?branch @local1 field: @
14	@ ;s /does-handler col: col: user:
11	@ ?branch defer: noop col: r>
119	execute col: col: r> dup cell+
68	;s +! ;s col: over >r
8471	/string (parse-white) 2dup + r> -
3837	@local1 branch lp+ ;s dup @local1
1105	var: lit cells lit col: lit
16	;s col: >r >r user: @
111	0> ?branch col: user: @ ?branch
1	defer: (type) compare 0<> ?branch col:
292	col: col: col: user: @ ?dup
398	;s ;s ;s branch ;s ;s
1481	;s col: col: user: @ ;s
14	nip nip r> rdrop lit branch
309	branch ;s branch col: sp@ user:
1478	drop ;s ;s ;s ;s col:
3904	cells + ;s @ <> ?branch
386	;s ;s branch ;s ;s ;s
8	c@ lit = ?branch lit /string
561	;s swap dup col: col: user:
726	;s ! ;s 0= ?branch-lp+!# drop
945	cells + ;s ! (loop) var:
1	;s defer: (type) branch col: lit
15	r> - ?branch dup user: !
178	! ;s ;s ;s branch col:
561	@ @ over ! var: @
4751	swap does: + c@ ;s ;s
5528	defer: col: 2dup col: var: @
2721	branch (loop) @local1 i col: cells
14	! ;s ;s ;s ;s dup
1	user: ! execute col: user: @
9	;s col: col: defer: defer: col:
5	2drop user: @ ?branch col: col:
18	faligned nip ;s - dup ?branch
13	;s lit col: >r sp@ r>
14	col: >l >l @local0 ?branch @local1
24	con: lit ! ;s ;s branch
2586	(type) (+loop) unloop drop ;s ;s
2420	user: @ ;s con: user: @
18	?branch nip nip execute var: ;s
3	(?do) col: dup col: dup con:
556	+! ;s ! ;s code-address! ;s
1117	user: ! lit col: col: col:
119	nip execute col: col: r> dup
1649	;s @ var: = ?branch @local1
1	col: >l lp- col: r@ defer:
144	swap branch over 0<> ?branch faligned
2420	con: user: @ ?dup ?branch read-line
15	;s @ var: = ?branch @local2
1	@ col: col: user: @ swap
44	>l >l @local0 @local1 ! lit
122	! dup ?branch execute col: user:
114	;s @local1 field: @ lit col:
1105	var: @ + var: @ ?branch
1105	count lit and col: con: (hashkey1)
1	con: swap ! ;s user: col:
1487	lp- col: col: r> r> dup
124	;s col: var: @ ;s does:
2	?branch ;s over lit (?do) dup
5	<> ?branch rdrop ;s lit swap
343	;s col: r> dup cell+ >r
27	;s >r user: @ >r rp@
114	(type) ;s lit col: >l >l
35	+! ;s ! ;s drop ;s
108	con: = ?branch var: @ ?branch
17	dup lit u< ?branch cells var:
54	@local0 col: >l lp- @local1 does:
3716	user: @ lit max col: >r
1	field: @ var: = ?branch con:
24	! rdrop rdrop rdrop lit ;s
1	drop ;s ;s ;s ;s cr
54	= ?branch @local3 col: >l lp-
152	;s ;s lp+ ;s col: lit
5	>l >l @local0 @local1 lit col:
14	@local0 ?branch @local1 ?branch @local1 @local0
1	nip nip execute drop ;s branch
2586	swap lit max lit (?do) i'
67	?branch 1+ user: +! ;s col:
210	! (loop) lit @local1 i col:
29	;s +! ;s 2! ;s var:
7	@ 0= ?branch 2drop con: ;s
52	! ;s con: @ col: 2dup
10	@ ?branch ! ;s ;s branch
7935	user: @ > ?branch ;s defer:
67	user: +! ;s col: col: user:
369	con: ;s ?branch col: swap >r
69	drop + >r ;s @local0 field:
61	@ col: >l lp- lit @local1
32	@local1 lit col: >l >l @local0
22	col: user: @ col: col: col:
3	branch con: defer: col: noop user:
1	-rot >r var: r@ cmove var:
8	lit = ?branch lit /string branch
2560	;s col: lit does: swap lit
5242	<> ?branch col: dup field: @
255	con: > col: col: r> r>
225	r@ col: dup 1+ pick >r
58	>l >l @local0 does: @ +
931	;s ?branch @local1 @local0 col: >l
191	i - con: - unloop ;s
2586	i' i - lit min 2dup
17	! lit /string branch ;s user:
263	@local0 >l lp- @local1 ?branch @local1
1	execute col: var: ! ;s ;s
15	dup user: @ u>= ?branch drop
50	r@ + swap cmove var: over
370	;s col: dup lit u> lit
44	col: lit defer: (emit) ;s cr
4	@local2 @local1 field: col: >l >l
15	var: @local1 field: ! @local1 col:
5	cell+ ! dup @ dup ?branch
1683	;s dup ?branch 0> ?branch nip
17920	i col: cells + ;s @
726	?branch drop lit col: col: col:
1	nip execute fasin ;s branch col:
822	dup @ dup ?branch drop !
11	defer: noop col: r> dup cell+
88	(type) ;s @local1 field: @ lit
1649	branch i col: cells + ;s
3716	max col: >r lit r@ um/mod
53	@local1 field: @ col: >l lp-
35	;s +! ;s ! ;s drop
561	;s +! ;s move ;s col:
2	2r> defer: col: 2dup lit col:
299	?branch drop ;s user: col: con:
4649	c@ r@ <> ?branch lit /string
154	>l @local1 col: >l lp- @local1
14	nip ?branch var: 2@ lit (?do)
945	lit and col: ?dup ?branch ;s
2420	user: +! swap user: ! lit
26	lp+!# ;s var: @ ?branch @local1
216	+ @ ;s col: cells +
2	lit (?do) dup lit pick col:
17	dup ?branch drop r> col: col:
3	?dup ?branch ;s ;s ;s lit
8471	defer: col: defer: col: col: user:
12	drop col: ?dup ?branch ;s col:
4	;s lp+2 ;s lp+ ;s lp+
16	drop col: var: @ dup var:
1701	;s col: col: col: user: @
1	@local3 @local1 field: ! @local1 lp+2
11	col: 1+ >r col: r> dup
402	over - dup r> ?branch 1+
195	?branch @local1 @local3 = ?branch con:
250	var: @ 1- dup 0= col:
2	over lit (?do) dup lit pick
58	;s ;s col: dup col: dup
4751	col: con: dup @ + ;s
309	unloop lit branch ;s dup ?branch
35	?branch rdrop ;s swap 2dup r>
1105	swap col: lit fill ;s r>
3	;s ;s ;s lit branch (+loop)
370	?branch ;s ;s col: dup lit
60	user: ! r> user: ! r>
142	(type) ;s cr branch lp+2 ;s
1	nip execute col: var: ! ;s
360	max swap @ swap branch over
1	var: ! var: @ con: cells
281	?branch drop branch lit (+loop) unloop
5	over r> tuck - dup ?branch
6	col: col: var: 2@ drop over
34	nip execute col: >l >l >l
8	2drop drop con: ;s ?branch col:
8558	?branch lp+ branch >l lp- @local1
87	>l >l >l >l >l >l
360	over col: cell+ dup col: count
1	dup user: ! lit + dup
76	;s dup faligned swap (?do) unloop
13	1+ 2* cells resize col: ?dup
2	@ col: >l lp- @local1 lit
61	>l con: lit (do) @local0 i
23	@local0 lp+2 ;s lit > ?branch
29	?branch nip nip execute swap ;s
124	rdrop ;s var: ! ;s col:
197	nip ;s ?branch 2rdrop branch ;s
1	> ?branch con: lit ! lit
78	nip nip execute col: dup col:
740	col: ?dup ?branch ;s ;s col:
44	;s lp+ ;s @local0 lit col:
15	;s ;s lp+ ;s cr col:
90	>l >l @local0 field: @ @local1
4	field: @ ?branch @local1 field: @
6	@local1 lp+ ;s ;s ;s ;s
191	lit and + faligned over lit
7935	;s defer: col: defer: col: col:
3182	;s dup ?branch 2drop con: lp+2
133	>l >l @local0 col: >l lp-
3230	con: ?branch lit col: drop var:
14	user: ! drop ;s ;s ;s
1145	count defer: (type) ;s lp+ ;s
8	@local3 >l lp- @local1 col: >l
1	;s ;s ;s float+ dup user:
5528	;s dup ?branch defer: col: 2dup
45	con: @ col: 2dup u< ?branch
43	! ;s branch ;s ;s ;s
266	col: col: col: r> r> dup
1	@ ;s >r over >r lit
1	nip execute * ;s branch col:
3	;s ;s con: ! ;s branch
41	@ ;s lit cells col: col:
1	lp+ ;s lp+ ;s var: @
8	= ?branch lp+ ;s @local1 col:
1482	c! ;s (loop) con: col: col:
300	user: +! ;s 2drop ;s ;s
10	col: con: swap ! ;s lp+2
2	nip execute col: lit user: !
1	count defer: (type) ;s defer: (type)
2	lit = ?branch >code-address ;s ;s
36	?branch rdrop drop r> cell+ cell+
14	! lit col: >r sp@ r>
4751	c! ;s ;s ! ;s ;s
762	lp- @local1 con: = ?branch @local2
154	lp+ ;s lp+ ;s lp+ ;s
72	lit over = ?branch drop col:
4	con: ! ;s (loop) col: dup
54	lp- @local1 con: = ?branch @local3
9	con: = or ?branch @local1 field:
5	@local1 field: 2@ col: >l >l
360	and + faligned ;s swap c@
16	swap lit col: 1+ con: *
75	drop r> ;s rdrop dup col:
2420	swap user: ! lit user: !
2891	?branch ;s ;s ;s dup ?branch
1616	col: >l lp- col: col: user:
13	;s user: ! lit user: !
112	drop lp+ ;s @local1 field: over
92	lp- @local1 ?branch lp+2 ;s lp+
9020	lp+ ;s dup ?branch @local3 =
122	user: ! dup ?branch execute col:
7	! ;s ;s dup field: dup
174	>l lp- @local3 col: >l lp-
9	col: col: does: 2@ ;s col:
10	var: swap ;s 2dup col: var:
29	2@ ;s col: col: user: @
11	nip nip execute col: 1+ >r
4	;s ;s char+ c@ ;s col:
4586	over + (do) 2dup i 2@
4751	;s ;s over c@ or swap
375	lit = ?branch toupper lit -
199	?branch drop 2dup 2>r col: col:
15	drop @local0 lp+2 ;s lit <>
3933	col: cells + ;s @ col:
2	and ?branch nip nip execute code-address!
15	field: ! lp+ ;s @local1 col:
35	con: min >r var: r@ cmove
15	lit + ! lit var: +!
1	col: con: swap ! ;s user:
174	>l >l lp- @local3 col: >l
3	?branch lp+!# ;s lp+ ;s lp+
6	@local0 @local1 col: col: >l lp-
370	unloop ;s ;s lit col: user:
4	;s over c@ lit <> ?branch
4	;s lp+2 ;s @local0 field: col:
44	field: ! @local0 field: lp+ ;s
1	var: @ 0= ?branch con: cells
116	col: 1- tuck + swap invert
976	tuck c@ xor swap c! ;s
113	(emit) ;s @local1 col: >l lp-
202	;s ?branch lp+2 branch >l lp-
6	>r defer: (type) col: col: r>
26662	col: >l lp- @local1 cell+ @local1
2880	@local1 field: i col: cells +
5	>l @local0 @local1 lit col: >l
1649	?branch @local1 branch i col: cells
169	dup @ dup ?branch nip branch
772	?branch @local1 field: @ @local1 col:
4	lp+ ;s @local2 @local1 @local3 field:
46	@ lp+ ;s ?branch drop @local0
191	and + faligned over lit +
1105	>r drop r@ @ rot !
2408	! ;s ?branch col: col: sp@
2048	;s 2dup d0= ?branch ;s rot
58	;s +! ;s ! ;s con:
114	2drop lp+2 ;s cr (loop) @local1
114	;s lit col: >l >l @local0
6	;s 0<> ?branch lp+ ;s lp+
122	@ user: ! dup ?branch execute
309	0= ?branch user: @ dup 0>
13	2! ;s var: 2@ nip 1-
561	@ over ! var: @ !
6	! ;s ;s @local2 @local3 col:
3	unloop ;s ;s branch col: sp@
174	@ ;s @local1 = @local2 var:
26	;s var: @ ?branch @local1 field:
15	;s lit > ?branch lp+ ;s
1	nip execute f* ;s branch col:
27	(loop) dup >r 2@ 2over compare
12	drop ;s defer: (type) ;s ;s
2386	2drop con: lp+2 ;s col: 0=
1	execute invert ;s branch col: sp@
2	2dup * allocate col: ?dup ?branch
5	>r var: col: con: swap !
29	lp+ branch >l >l @local1 ?branch
191	dup i - count lit and
135	! lit con: ! var: col:
4	col: col: defer: col: col: user:
7	var: field: @ col: col: col:
7	dup >r ?branch lit /string col:
7	+! ;s 2! ;s col: r>
142	lp+ ;s @local2 lit col: >l
29	2@ ;s defer: (type) col: lit
76	(loop) unloop lp+ ;s lp+ ;s
16	drop >r drop col: var: @
370	;s col: defer: col: defer: col:
36	@local0 >l lp- @local1 ?branch lp+2
5	dup ?branch drop defer: col: 2dup
9	user: @ lit = ?branch con:
1	nip nip execute floats ;s branch
1	?branch nip nip execute sfloats ;s
822	swap col: lit + dup @
91	1+ within 0= col: col: r>
5	r> tuck - dup ?branch 2dup
11	! ;s col: col: 2dup lit
5527	;s branch col: sp@ user: @
5	?branch @local1 col: >l lp- col:
1	?branch drop ;s ;s branch col:
46	cells + ;s ! lp+ ;s
122	;s branch dup ?branch drop user:
2	col: >l lp- @local1 lit col:
11	lp- @local1 field: @ ?branch @local1
31	col: over swap col: col: user:
52	;s con: @ col: 2dup u<>
316	lit 2swap dup >r col: lit
4	?branch lit /string branch over >r
143	;s col: col: col: con: @
11	and ?branch nip nip execute dup
15	@local1 var: @ col: >l >l
4078	<> ?branch drop 2drop lit (+loop)
7	2drop rdrop r> ?branch dnegate r>
152	col: lit defer: (emit) ;s col:
4	drop + >r ;s @local3 field:
1	drop ;s user: @ swap !
976	@ dup 0= col: col: r>
772	;s @local3 lit col: >l >l
26	con: lit (do) @local2 i col:
1768	?branch 2dup con: col: dup field:
1	! ;s user: col: con: swap
1	?branch nip nip execute drop ;s
3942	swap >r ;s count defer: (type)
14	/does-handler col: col: user: @ ;s
5	lp- @local1 ?branch lp+2 ;s @local1
10530	>l @local0 >l lp- @local1 col:
1	dfloats ;s branch col: sp@ user:
281	drop branch lit (+loop) unloop 2drop
383	does: col: var: dup @ cells
28	r> col: 1- tuck + swap
50	var: swap cmove 2dup var: r@
1145	;s count defer: (type) ;s lp+
410	lp+ ;s col: col: r> r>
22	@local1 field: col: >l >l @local0
60	and ;s col: user: @ ;s
40	;s ! ;s ;s col: var:
197	2rdrop branch ;s branch col: sp@
225	lit @local1 i col: cells +
8	lit > col: ?branch r> does:
726	;s @ ;s @local1 >l lp-
726	@local1 col: >l >l @local1 col:
5	@local0 @local1 con: col: col: dup
4	var: @ 0= ?branch var: @
1	var: @ dup @ ?branch dup
28	rot r@ col: 1- tuck +
174	@ + @ ;s < or
25	rdrop ;s tuck ! cell+ tuck
617	?branch nip nip execute col: defer:
299	execute col: >l lp- @local1 does:
65	execute col: >l >l @local0 @local1
360	lit and + faligned ;s swap
12	lit user: ! ;s ?branch ;s
8558	dup ?branch @local3 = ?branch lp+
195	lp- var: @ @local1 col: >l
1	lp+2 ;s ;s ;s branch col:
29	col: >l >l >l >l >l
191	(do) dup i - count lit
1	f* ;s branch col: sp@ user:
784	! user: col: con: swap !
8	unloop 2drop drop con: ;s ?branch
29	>l >l @local1 @local0 does: @
2048	d0= ?branch ;s rot col: 0<
29	@local0 1+ @local1 col: field: @
29	+! ;s ! ;s @local1 @local2
191	col: lit con: (do) dup i
56	con: swap ! ;s branch ;s
27	lit col: >r sp@ r> swap
44	;s ;s con: = ?branch col:
370	col: dup 0= lit and col:
29	;s ! ;s @local0 col: col:
1	* ;s branch col: sp@ user:
11	! ;s ;s ;s ;s r>
18	execute var: ;s branch col: sp@
174	@local1 = @local2 var: <> @local3
15	lp- @local1 field: var: con: cells
2	;s var: @ lit col: >l
726	lp- @local1 ?branch drop lit col:
3	noop ;s col: r> dup cell+
2	execute col: col: con: <> col:
2	+ (loop) unloop drop branch lit
10	2dup col: var: 2@ lit (?do)
72	col: over >r rot over 1+
2266	swap >r ;s >r ?branch rdrop
4	c@ lit <> ?branch col: col:
772	>l >l >l @local0 >l lp-
30	unloop lp+ ;s col: col: r>
58	! ;s con: col: col: col:
29	>l >l >l >l does: 2@
16	col: lit col: var: @ >
67	;s ;s ;s col: lit col:
36	drop + >r ;s @local1 @local0
2546	;s col: 2drop col: col: col:
360	;s >body @ max swap @
257	var: ! ;s col: var: @
3	defer: (type) ;s cr @local1 lit
15	@local1 @local1 field: lit col: >l
15	?branch var: @ col: cells con:
124	;s @ var: ! ;s does:
22	drop branch ;s ;s branch col:
16	(type) ;s @local1 lit col: >l
35	rdrop ;s swap 2dup r> -rot
245	dup ?branch 2drop lp+2 ;s col:
432	;s ;s ;s lp+ ;s col:
29	@local0 field: ! @local0 @local1 col:
15	field: @ ?dup 0= ?branch var:
1	;s nip ?branch 2dup con: open-file
1	and ?branch nip nip execute invert
1	nip nip execute lshift ;s branch
91	col: 1+ con: * 1- >r
26338	col: col: col: user: @ ;s
561	;s user: ! lit col: col:
6	@local3 col: swap >r dup allocate
4	nip execute col: dup col: col:
18	@local1 field: @ var: = ?branch
15	;s lit lit @local1 field: 2!
196	;s code-address! ;s ;s col: lit
15	;s dup @local1 field: ! lp+
1	>l lp- con: col: >l lp-
412	nip nip ;s ;s dup ?branch
124	col: col: lit lit ! user:
9	@ lit = ?branch con: ;s
656	branch lit (+loop) 2dup i 2@
69	+! ;s ! ;s ;s col:
27	>r sp@ r> swap >r fp@
44	@local1 2@ nip lp+ ;s col:
1651	@local1 col: >l lp- col: col:
14	;s /does-handler col: col: user: @
375	lit - dup lit u> ?branch
26	@local1 field: @local1 field: @local1 field:
186	>l >l lp- @local1 >l lp-
10057	col: >l >l @local0 >l lp-
36	floats over = ?branch lit floats
1	branch drop ;s ;s ;s float+
1	nip execute sfloats ;s branch col:
52	branch drop ;s ;s con: !
91	con: 1+ within 0= col: col:
568	;s ?branch dup @ 0< ?branch
14	branch unloop 0<> lit and col:
8	>l >l @local1 field: @ col:
9	! lp+ ;s field: col: con:
11	nip execute dup ;s branch col:
1	;s ;s >l lp- @local2 @local1
5	user: @ ?branch col: col: col:
8	?branch lit /string branch dup >r
276	branch ;s col: user: @ ?dup
31	! ;s ;s lit col: 1+
61	@local0 field: @local1 field: col: >l
1	@local1 col: >l >l @local0 ?branch
1	dup ?branch 2drop col: col: user:
1	?branch swap col: user: @ ?branch
1	0< ?branch drop ;s ;s drop
9	@local1 ! lp+ ;s field: col:
196	;s ;s lit col: r> /does-handler
17	?branch lit - dup lit u<=
13	+! user: @ user: ! user:
192	col: col: r> dup cell+ >r
976	cell+ tuck c@ xor swap c!
29	col: >l >l @local1 @local0 does:
6	var: @ ?branch lp+ ;s lp+
67	+ ;s @ <> ?branch var:
44	@local1 ! lit @local0 field: !
1	drop ;s ;s ;s float+ dup
1	cells allocate col: ?dup ?branch ;s
1091	r@ lit and 0= ?branch @
29	rot col: 0< ?branch lit col:
239	;s col: ?branch r> does: 2@
16	?branch ;s >body user: @ ?branch
12	user: ! r> user: ! >r
44	cr lp+ ;s branch lp+2 ;s
376	?branch @local1 @local3 execute col: >l
1	@ 0< ?branch drop ;s ;s
1006	r@ lit and ?branch 1- r>
3899	branch lp+ ;s dup @local1 i
1	col: ?dup ?branch ;s -rot >r
316	lit - dup lit u< ?branch
89	execute col: defer: col: defer: col:
542	?dup ?branch 2drop 2drop ;s var:
6	rot field: @ ;s >r defer:
3	2drop r> var: ! ;s ;s
155	! ;s col: var: @ col:
3716	um/mod r> swap >r um/mod r>
375	toupper lit - dup lit u>
72	>r rot over 1+ r> move
321	col: var: col: con: swap !
44	?branch con: branch ;s lit col:
1783	dup ?branch 0> ?branch col: col:
15	field: con: cells move lp+ ;s
5	col: >l >l @local0 @local1 con:
6	>l >l >l @local0 @local1 col:
10	field: ;s branch col: sp@ user:
26	lit (do) @local2 i col: cells
923	;s dup ?branch 2drop lp+!# ;s
8558	?branch @local3 = ?branch lp+ branch
386	drop col: r> dup cell+ >r
412	;s dup ?branch nip nip ;s
1	;s drop ;s ;s ;s user:
25	tuck ! cell+ var: ! ;s
3	nip execute cells ;s branch col:
3716	um/mod r> ;s rot lit over
2	lit >code-address ;s ;s branch col:
4	! defer: col: cell+ dup @
276	@ ! branch ;s col: user:
3	field: dup var: ! defer: drop
14	@ ;s +! ;s does-handler! ;s
255	@ ?branch col: r> dup cell+
312	(loop) unloop ;s ;s lit col:
174	+ @ ;s @local1 = @local2
54	col: >l >l col: col: r>
1	?branch nip nip execute >code-address ;s
1	nip nip execute dfloats ;s branch
14	?branch rdrop ;s ;s col: col:
562	unloop ;s col: col: user: @
30	?branch lp+!# ;s lp+2 ;s lp+
1768	execute col: drop con: ?branch 2dup
9	! cell+ var: ! ;s col:
44	drop lp+ ;s col: >l lp-
9	;s ;s ;s col: r> /does-handler
22	;s r> ;s ;s branch col:
144	con: ;s ;s ;s branch col:
13	cells resize col: ?dup ?branch ;s
29	lit col: col: col: col: user:
191	lit col: lit con: (do) dup
15	i - unloop ;s dup ?branch
6	nip nip execute col: col: con:
77	execute col: col: defer: col: defer:
27	>r user: @ >r rp@ user:
566	lp+ ;s does: @ + @
29	@local1 col: >l >l @local0 does:
72	@local1 @ col: >l >l @local0
2	col: lit user: ! col: col:
135	;s lit user: ! var: var:
62	;s col: user: @ ?branch col:
822	swap ! ;s ;s branch @
3230	?branch lit col: drop var: dup
14	rdrop lit branch unloop 0<> lit
772	@local2 col: >l >l @local0 @local1
2546	;s r> over - does: swap
61	;s (loop) count col: user: @
13	tuck 1+ 2* cells resize col:
15	@ ?dup 0= ?branch var: @
1312	@local# @local# execute col: >l >l
225	1+ pick >r cells sp@ cell+
4751	con: dup @ + ;s swap
58	;s var: col: col: col: user:
1	;s ! ;s branch col: con:
145	col: dup @ dup ?branch nip
4281	0= ?branch lit r@ lit and
2	lp- @local1 lit col: >l >l
26	lp- con: lit (do) @local2 i
15	lp+2 ;s @local1 field: ! lp+
104	>l lp- @local1 ?branch lp+2 ;s
191	unloop ;s lit col: user: @
56	var: @ ?branch col: col: col:
1512	(type) ;s @local1 does: @ +
1	swap col: col: col: user: @
5	?branch ;s lit cells - var:
34	;s ! ;s ;s ;s col:
36	;s 0> ?branch col: r> dup
403	user: @ over min /string over
246	;s col: lit lit ! user:
112	col: cells + ;s @ swap
45	lit (do) @local1 i col: cells
11878	branch >l lp- @local1 col: >l
1	over - dup r> ?branch user:
20	?branch con: - dup @ swap
8475	col: defer: col: col: user: @
1	var: 2@ nip var: 2! ;s
26	@ ?branch @local1 field: @local1 field:
6	code-address! ;s ;s col: col: does:
117	cells + ;s ! (loop) unloop
16	col: drop >r drop col: var:
45	u< ?branch = ;s 0= ?branch
375	user: @ lit = ?branch toupper
6	;s ?branch @local1 col: >l lp-
2	con: = or ?branch lp+ ;s
1	con: swap ! ;s col: col:
1	and ?branch nip nip execute >code-address
822	@ + var: @ ?branch col:
2	lp- @local1 ?branch lp+2 ;s var:
1	@local1 con: col: >l >l @local0
60	;s @ swap col: 1- tuck
1	(type) ;s defer: (type) branch col:
4	count + c! col: col: user:
25	col: var: @ dup var: <=
694	lp+!# ;s lp+ ;s @local3 lit
2546	@ tuck - ;s r> over
6	(type) ;s r> lit col: >r
729	;s lp+2 branch >l lp- @local1
5	lit lit ;s over r@ u>=
2721	?branch drop branch (loop) @local1 i
4	;s @local0 field: col: con: swap
7	nip nip execute col: ;s ;s
36	+ @ ;s var: laddr# col:
78	;s cr col: col: r> r>
15	var: = ?branch @local2 i col:
46	;s col: cells + ;s !
7	! ;s branch r> user: !
1105	;s xor cells >r var: lit
1	0= ?branch con: cells allocate col:
882	?branch nip nip execute col: col:
5	lp+2 ;s lit <> ?branch @local1
29	does: @ + 2@ ;s defer:
52	?branch branch drop ;s ;s con:
108	?branch con: ;s lit col: col:
12	?dup ?branch ;s ;s r> user:
15	>l lp- @local1 field: @ ?dup
23	;s lp+ ;s @local1 ! lp+
7	col: field: @ ;s col: >l
1	nip ;s - dup ?branch r>
15	user: ! over c@ lit =
15	u>= ?branch drop con: ;s ?branch
1809	user: @ ;s @ ;s dup
45	drop + >r ;s var: col:
15	var: @ col: cells con: ;s
8	@ var: = ?branch @local1 field:
18	swap (?do) unloop ;s lit col:
1356	dup ?branch drop lit col: drop
11	?branch nip nip execute col: 1+
32	;s ;s ;s ;s ;s ;s
50	+ dup >r con: open-file 0=
4777	>l >l @local0 @local1 col: >l
61	(do) @local0 i col: cells +
8558	= ?branch lp+ branch >l lp-
10829	>l >l @local0 >l lp- @local1
4795	(hashkey1) ;s r> xor cells var:
25	?branch rdrop ;s tuck ! cell+
1	cells col: swap >r dup allocate
1482	(loop) con: col: col: col: user:
44	;s cr lp+ ;s branch lp+2
4	branch 2dup u< ?branch @ branch
125	col: faligned dup col: user: @
4	branch over >r lit col: >r
984	execute col: >l >l >l lp-
61	col: >l >l con: lit (do)
726	0= ?branch-lp+!# drop lp+2 ;s lit
4795	2dup col: con: (hashkey1) ;s r>
79	over col: lit over 0<> ?branch
114	nip nip execute col: defer: noop
14	con: open-file 0= ?branch nip nip
1105	r> ;s tuck cell+ ! r>
5372	+ faligned ;s r@ lit and
36	open-file 0= ?branch rdrop drop r>
8475	+ r> - 1+ r> min
9	faligned <> ?branch col: r> dup
2	;s branch @ dup ?branch 2drop
3	cells ;s branch col: sp@ user:
22	! ;s col: con: @ col:
78	! col: lit over 0<> ?branch
5	>r lit col: >r dup ?branch
63	cell+ cell+ (loop) dup >r 2@
100	con: lit ! ;s lit col:
1105	cell+ count lit and col: con:
91	lit col: 1+ con: * 1-
2560	(+loop) unloop drop ;s ;s ;s
35	;s >r ?branch rdrop ;s swap
9	2! @local1 lp+ ;s ;s ;s
561	c! ;s col: col: user: @
105	?branch col: col: col: user: @
419	over c@ r@ <> ?branch rdrop
5	?branch 2drop con: ;s dup ?branch
1105	r> var: @ + var: @
31	?branch rdrop ;s ;s ;s col:
548	col: >l lp- @local1 2@ drop
29	@ c! ;s ;s col: 2drop
1	! ;s ;s col: user: @
4795	con: (hashkey1) ;s r> xor cells
1105	pick @ ?dup 0= ?branch >r
27	swap >r fp@ >r col: laddr#
2766	var: = ?branch drop branch (loop)
498	lit col: lit col: >r col:
8837	@ ;s @ ;s lit +
29	! ;s @local1 @local2 col: swap
3	?branch defer: col: col: con: <>
255	+ ;s @ var: @ 1+
6	and ?branch nip nip execute >body
127	cells over = ?branch lit cells
7	swap ! ;s branch r> user:
7	;s ;s ! ;s ;s dup
174	@ ;s < or and ?branch
1	con: col: >l >l @local0 ?branch
27	;s ! ;s ;s col: con:
14	;s does-handler! ;s branch con: defer:
6	con: swap ! ;s ;s @local2
2019	col: 0< ?branch ;s col: 2drop
3716	+! @ c! ;s ;s 2dup
2	@ ?dup ;s ?branch ;s col:
68	@ ;s +! ;s col: over
35	var: r> ;s ;s branch col:
15	! (loop) unloop lp+ ;s lit
12	! ;s ?branch ;s r> user:
561	u> lit and col: ?dup ?branch
982	>l lp- @local1 does: @ +
4	;s lp+ ;s @local0 field: !
5	! ;s lp+2 ;s ;s branch
124	;s var: ! ;s con: lit
403	swap r> col: >r dup ?branch
152	?branch rdrop ;s ;s con: =
1	rp@ user: ! execute col: user:
4751	c@ or swap c! ;s ;s
114	i col: col: dup 0< ;s
114	?branch i col: col: dup 0<
6	nip nip execute >body ;s branch
316	lit lit 2swap dup >r col:
6	@ + @ ;s ?branch @local1
8	over c@ lit = ?branch lit
9	cell+ var: ! ;s col: var:
3	?branch ;s ;s ;s lit branch
225	>r cells sp@ cell+ dup cell+
4	user: @ over min /string rot
327	?branch nip nip execute col: lit
1	;s >r over >r lit col:
13	nip nip execute col: col: var:
45	@ ;s @ ;s ;s con:
308	d+ r> ;s (loop) unloop lit
1091	and 0= ?branch @ lit r@
3745	lit over +! @ c! ;s
509	;s @local1 col: field: @ ;s
194	col: user: @ col: aligned dup
2	con: ;s ?branch 2r> defer: col:
285	execute col: col: user: @ ?dup
1	>r ;s var: @ col: >l
309	dup ?branch 2drop rdrop r> ?branch
7	nip execute col: ;s ;s branch
35	swap >r dup allocate col: col:
2	;s drop branch ;s (loop) unloop
2	execute code-address! ;s branch col: sp@
4586	(do) 2dup i 2@ over <>
7	r> cell+ cell+ (loop) unloop 2drop
174	@local1 2@ nip lp+ ;s does:
88	defer: (type) ;s @local3 col: >l
16	@ > ?branch ;s ;s ;s
191	defer: col: var: count col: col:
2	col: ?dup ?branch ;s over lit
10	and ?branch nip nip execute field:
40	@ swap con: - dup @
67	execute col: col: defer: defer: col:
369	col: swap >r swap user: @
4	! lp+ ;s @local2 @local1 @local3
116	;s ! ;s @local# col: col:
135	! lit col: user: @ swap
169	dup ?branch nip branch dup @
5	0< ?branch var: @ >r var:
7	lit = dup >r ?branch lit
69	swap ! ;s ;s ;s branch
7	;s ;s col: var: @ ?branch
13	col: user: @ >r col: swap
108	;s 0= ?branch lp+2 ;s lp+
170	;s col: cells + ;s @
6	2! @local0 field: col: con: swap
191	+ = ?branch i - con:
5	over >r lit col: >r dup
910	(type) ;s lp+ ;s lp+ branch
784	?branch 2drop con: lp+2 ;s 0=
283	+ @ (hashfind) ;s ;s var:
158	?branch lit floats over = ?branch
6	;s drop branch ;s ;s r>
2546	con: - dup ! ;s col:
44	execute col: >l >l @local1 field:
191	over lit + = ?branch i
57	r> ;s ;s branch col: sp@
11	;s branch con: defer: noop ;s
29	lp+2 ;s cr lp+ ;s @local1
8550	@local1 col: >l >l @local0 >l
122	floats over = ?branch col: r>
694	@ ?branch defer: col: col: user:
62	swap (?do) unloop ;s branch ;s
1664	cells + ;s @ @local3 i
6	over field: @ 2* cells +
7	branch r> user: ! ;s user:
152	dup col: dup con: <> swap
1664	@ @local3 i col: cells +
4	@local3 @local1 @local2 field: @ col:
124	drop ;s ;s ;s user: !
201	over = ?branch col: r> dup
114	defer: (type) ;s lit col: >l
46	?branch @local0 col: >l lp- col:
293	@ @local1 col: >l >l @local0
2	branch lit pick @ ?dup 0=
75	>r r@ col: dup 1+ pick
295	defer: (type) ;s @local1 col: >l
1973	@ ;s lp+ branch >l lp-
239	?branch branch drop ;s ;s ;s
27	0= ?branch ;s col: var: col:
130	and ?branch @local2 @local1 col: >l
1	+ >r ;s var: @ col:
5	drop lit lit lit ;s over
316	col: con: swap ! ;s over
3846	con: lp+!# ;s ?branch @local1 branch
7	;s count defer: (type) ;s defer:
5372	cell+ dup c@ >r col: count
2880	+ ;s @ dup var: =
107	lp+2 ;s lp+ ;s @local1 col:
1	lp+2 ;s var: @ col: >l
57	?branch ;s col: user: @ ?branch
3	;s lit (?do) col: dup col:
197	0> 0= ?branch nip ;s ?branch
498	>r col: col: col: col: user:
9	col: var: 2@ lit (?do) dup
5	dup ?branch 2dup 1- + c@
1272	0> ?branch nip nip execute col:
772	;s lp+ ;s @local2 col: >l
29	;s ;s ;s ;s @local1 does:
19	lp+!# ;s var: @ ?branch lp+
2048	col: >r tuck dabs col: col:
197	?branch nip ;s ?branch 2rdrop branch
370	! ;s col: dup 0= lit
48	;s (loop) unloop ;s ;s col:
26	@local1 field: @local1 field: col: >l
67	! ;s @local1 i col: cells
46	lp+ ;s ?branch drop @local0 lp+2
23	;s ?branch lp+ ;s @local1 col:
2546	dup @ tuck - ;s r>
51	code-address! ;s ;s col: col: col:
561	;s +! ;s c! ;s col:
36	@local1 swap >l >l @local3 does:
36	>r ;s @local1 @local0 field: col:
118	;s ! ;s lp+ ;s @local1
15	?branch 1- i' i - unloop
772	;s ! ;s lp+ ;s @local2
30	@local1 field: @ @local2 @local3 col:
27	;s 0= ?branch ;s col: var:
31	;s ;s ;s col: dup col:
44	;s lp+ ;s @local1 col: >l
132	@local1 col: >l lp- @local1 2@
566	;s does: @ + @ ;s
133	@local1 ?branch @local1 @local# @local# execute
11	> ?branch lp+ ;s @local1 col:
72	col: lit over = ?branch drop
12	?dup ?branch ;s col: ?dup ?branch
3	(type) ;s cr @local1 lit col:
44	col: >l >l @local1 field: @
1616	lp- col: col: user: @ ;s
14	?branch @local1 @local0 field: col: >l
937	;s ;s dup ?branch drop branch
199	2dup 2>r col: col: user: @
4	2! ;s branch dup ?branch lit
1	;s r> tuck - lit cells
2583	lit col: col: user: @ ;s
249	lit cells over = ?branch lit
1105	r@ @ rot ! r@ swap
125	cells + ;s ! ;s does:
16	rdrop ;s ;s ;s swap con:
2	?branch 2drop rdrop unloop con: ;s
13	! execute col: col: user: @
152	swap con: <> and col: col:
30	@local1 ?branch lp+!# ;s lp+2 ;s
5	?branch 2drop r> var: ! ;s
1105	(hashkey1) ;s xor cells >r var:
281	branch lit (+loop) unloop 2drop con:
7935	> ?branch fp@ user: @ >
152	@ ;s @ ;s over -
3	cr @local1 lit col: >l >l
3716	lit over < ?branch lit +
41	+ ;s ! (loop) unloop lp+2
7	;s ;s ;s ;s user: col:
360	and 0= ?branch ;s >body @
29	execute col: >l >l @local1 @local0
3933	+ ;s @ col: >l >l
2546	tuck - ;s r> over -
194	col: aligned dup col: user: @
638	;s col: lit col: user: @
12	@ ;s 0<> ?branch lp+ ;s
15	execute col: >l lp- @local1 @local1
191	lit ! ;s ;s col: col:
135	col: con: swap ! ;s con:
1	;s var: ! var: @ con:
561	@ ;s user: ! lit col:
12	lp+2 ;s ?branch lp+2 ;s lp+
22	;s ! ;s user: @ col:
360	@ max swap @ swap branch
12	col: dup ?branch r> r> user:
1	! col: var: 2@ col: col:
997	;s ;s ;s ;s lp+ ;s
12	;s r> col: >r tuck dabs
2	var: @ lit col: >l >l
2588	lp+2 ;s col: 0= ;s ?branch
26662	>l lp- @local1 cell+ @local1 @
5527	branch col: sp@ user: @ >
1	var: 2@ lit (?do) unloop 2drop
114	?branch 2drop lp+2 ;s cr (loop)
25	0<> ?branch 2drop col: lit does:
17	+ @ user: ! lit /string
10	;s >body user: @ ?branch !
20	;s lp+2 ;s lp+2 ;s lp+
2	nip nip execute col: lit user:
60	swap col: 1- tuck + swap
1	;s ! ;s ;s ;s swap
568	;s ;s var: @ and ?dup
568	>r 2dup 2dup r> col: dup
316	c@ lit - dup lit u<
1091	?branch @ lit r@ lit and
772	@local1 field: @ @local1 col: >l
151	lp- @local1 >l lp- @local1 col:
1657	0= ;s ?branch drop con: lp+!#
17	@ user: ! lit /string branch
2	;s cr lp+ ;s var: @
2	lp+2 ;s lp+ ;s var: @
9020	;s dup ?branch @local3 = ?branch
1	r@ cmove var: r> ;s col:
16	! ;s rdrop ;s col: r>
2	;s ?branch 2drop close-file col: ?dup
91	col: con: con: 1+ within 0=
726	;s +! ;s ! ;s lp+!#
848	negate user: +! lit over =
3301	;s dup col: col: col: user:
1	;s @ ;s >r over >r
18	>r user: @ lit pick col:
5	2dup 1- + c@ lit <>
822	;s ;s branch @ dup ?branch
36	@local1 field: @ @local0 col: >l
16	?branch @local0 branch lp+ ;s @local0
6	;s dup 0= ?branch nip ?branch
152	@ ;s @ ;s ;s var:
8837	lit + aligned ;s con: -
49	?branch @local0 branch lp+ ;s @local1
10	execute does: col: var: dup @
1	;s user: @ ?branch col: col:
2	?branch ;s branch ;s ;s ;s
12	;s r> user: ! col: ?dup
1	var: 2! var: up! sp@ dup
78	?branch @local0 branch lp+ ;s @local3
135	var: ! lit con: ! var:
6	negate ;s ;s ;s 0= ?branch
40	con: - dup @ swap con:
6208	dup count + aligned >r swap
1	1+ /string ;s var: 2! var:
1	col: col: user: @ swap -
15	lp+ ;s lit lit @local1 field:
360	?branch ;s >body @ max swap
4	>body @ col: col: col: col:
2407	;s dup ?branch 2drop ;s branch
30	(loop) unloop lp+ ;s col: col:
1	@ col: >l lp- col: r@
9	lp- lit @local1 ! lp+ ;s
1	;s - dup ?branch r> drop
144	col: lit over 0<> ?branch over
7	;s branch r> user: ! ;s
312	;s (loop) unloop ;s ;s lit
1	2* cells col: swap >r dup
1	nip nip execute col: con: 0=
15	;s ;s col: lit defer: (emit)
67	;s @ <> ?branch var: col:
15	lit var: +! var: @local1 field:
28	;s ! ;s ;s ;s lit
10	;s col: var: @ ?branch var:
285	field: @ execute col: col: user:
236	nip execute col: lit col: >r
5708	?branch drop con: lp+!# ;s ?branch
29	! ;s var: col: col: col:
6	lp+2 ;s ;s branch col: sp@
4751	lit /mod rot + swap does:
369	drop rot user: @ um* d+
12	@local1 >l lp- @local1 ?branch lp+!#
3	lp+ ;s ;s ;s branch col:
1	;s ;s ;s col: col: user:
39	nip nip execute con: ;s branch
45	@ ;s - col: col: col:
15	@local1 field: lit col: >l >l
726	+! ;s ! ;s lp+!# ;s
72	;s @local1 @ col: >l >l
4	! ;s lp+2 ;s @local0 field:
1	;s ;s swap col: col: col:
124	dup ?branch drop user: @ col:
13	@ >r >r ;s user: !
4	;s lit > ?branch @local1 field:
253	r> does: 2@ ;s drop +
29	;s 2! ;s var: col: col:
568	2dup r> col: dup field: @
100	;s ?branch @local1 field: @ @local1
4	lp+!# ;s lp+ ;s @local0 field:
64	lp+ branch >l >l @local1 col:
8558	@local3 = ?branch lp+ branch >l
195	lp+ ;s col: ?branch r> does:
1	?branch 2drop 2dup lit col: >r
561	swap (?do) unloop ;s col: col:
302	r> ?branch r> user: ! ;s
300	2drop ;s ;s branch col: sp@
110	cell+ @local1 @ lp+ ;s ?branch
2	nip nip execute code-address! ;s branch
2	branch @ dup ?branch 2drop r>
5	?branch @local1 @local1 field: 2@ col:
890	;s @ ;s @local1 col: col:
1464	= ?branch @local1 col: field: @
1	lp- con: col: >l lp- var:
2	?branch ;s col: user: @ ?dup
1	(loop) unloop ;s col: col: user:
187	;s ;s branch drop ;s ;s
191	con: (do) dup i - count
12	;s user: @ close-file swap 2dup
12	! r> user: ! >r ;s
3933	;s @ col: >l >l @local0
3	;s ;s ;s ;s lit (?do)
2	lit lit col: >r >r user:
4	over c@ lit <> ?branch col:
1	user: ! col: var: 2@ col:
762	= ?branch @local2 @local1 col: >l
93	defer: (type) ;s lp+ ;s col:
363	;s col: lit defer: (emit) ;s
1105	rot ! r@ swap col: lit
16	?branch rdrop ;s ;s ;s swap
2420	?branch read-line col: ?dup ?branch ;s
195	;s lp+ ;s col: ?branch r>
6	@local2 @local3 col: swap >r dup
16	lit col: var: @ > ?branch
79	lit cells over = ?branch col:
2	;s var: ! ;s ;s branch
5	! ;s col: var: @ 0=
31	! ;s ;s col: var: col:
2	>l lp- @local1 lit col: >l
173	col: >l lp- @local1 field: @
1	col: col: >l >l >l >l
9	lit col: cells con: ;s col:
1768	col: drop con: ?branch 2dup con:
6	>body ;s branch col: sp@ user:
726	>l @local1 col: >l lp- col:
4	r> move c! ;s con: col:
4	var: swap ;s col: user: @
281	(+loop) unloop 2drop con: ;s ;s
1	;s branch dup ?branch 2drop col:
13	r> user: @ >r user: @
4519	@ lp+ ;s dup ?branch 2drop
386	?branch drop col: r> dup cell+
135	lit user: ! var: var: !
13	;s ;s col: col: r> dup
320	;s col: var: col: con: swap
316	! ;s lit lit 2swap dup
23	2@ lit (?do) dup >r 2@
144	nip nip execute col: col: defer:
191	lit lit ! ;s lit col:
25	lit >= col: col: r> r>
1	/string ;s var: 2! var: up!
3259	lp+ ;s dup col: col: col:
5	lit lit lit ;s over r@
124	var: @ ;s does: col: var:
3843	+ ;s ! (loop) @local0 i
2	?branch nip nip execute col: does:
6	rdrop ;s dup 0= ?branch nip
15	dup r> - ?branch dup user:
16	var: ! ;s rdrop ;s col:
2420	user: @ ?dup ?branch read-line col:
890	;s ! ;s lit col: col:
22	;s ;s ;s col: user: @
27	con: ;s ;s branch col: sp@
28	;s ! ;s + swap r>
9	= or ?branch @local1 field: @
729	;s ?branch @local1 col: col: col:
16	> ?branch ;s ;s ;s ;s
187	;s ;s ;s ;s branch drop
13	@ branch 2dup u< ?branch =
360	?branch over col: cell+ dup col:
135	defer: col: noop user: @ user:
4	@ ;s @ ;s ;s char+
7	;s ! ;s lit col: user:
131	?branch faligned nip ;s col: user:
143	;s ;s col: col: col: con:
144	lit over 0<> ?branch over col:
1	swap col: user: @ ?branch col:
5	- var: over cell+ ! dup
25	! cell+ tuck ! cell+ tuck
191	col: drop col: col: dup lit
29	+! ;s ! ;s @local3 col:
6	lp+ ;s ;s ;s ;s branch
4	@ branch 2dup u< ?branch @
392	;s ;s ;s ;s branch ;s
1026	col: var: dup @ cells +
52	- swap ! ;s con: @
11	noop col: r> dup cell+ >r
2534	;s defer: (type) ;s col: lit
4	@local2 field: @ col: >l >l
29	;s ! ;s var: @ col:
4	@ ;s @ ;s count +
1	col: ?dup ?branch ;s var: !
32	nip execute col: lit col: user:
568	;s ?branch col: cell+ count lit
26	@local1 field: col: >l >l >l
35	?branch con: min >r var: r@
4	c! ;s con: col: col: user:
253	! ;s code-address! ;s ;s col:
12	lit ;s user: @ close-file swap
4366	lit and ?branch r> lit and
1	nip execute col: con: 0= ?branch
142	@local2 lit col: >l >l @local0
16	! cell+ var: ! ;s rdrop
17	;s code-address! ;s ;s lit col:
302	?branch 2drop rdrop r> ?branch r>
3716	@ lit max col: >r lit
15	@local1 col: >l lp- con: lit
561	col: dup lit u> lit and
13	>r col: swap >r dup allocate
2019	rot col: 0< ?branch ;s col:
58	var: col: col: col: user: @
1628	;s @local1 does: @ + @
2546	col: 2drop col: col: col: user:
21	= ?branch dup col: r> dup
187	;s ;s ;s branch drop ;s
2	user: @ ?branch ;s ;s branch
9	branch col: var: @ dup var:
8	@ var: ! ;s ;s branch
7	>r ?branch lit /string col: over
1006	lit r@ lit and ?branch 1-
561	?branch var: @ @ over !
1	?branch con: @local1 col: >l >l
2588	lp- @local1 ?branch @local# @local1 col:
7365	@ lp+ ;s >l lp- @local1
52	var: @ ?branch over col: lit
5688	col: col: dup field: @ field:
369	user: @ um* d+ r> ;s
4	col: cells var: @ + @
6	count defer: (type) ;s defer: col:
931	@local1 @local0 col: >l >l @local0
34	;s ! ;s drop ;s ;s
135	! ;s con: ;s ;s ;s
3	?branch nip nip execute cells ;s
570	@ field: @ execute col: col:
42	?branch rdrop ;s 0> ?branch col:
29	0< ?branch lit col: col: col:
407	does: @ col: user: @ swap
4496	unloop ;s ;s ;s dup ?branch
14	rdrop ;s ;s col: col: col:
1616	>l lp- col: col: user: @
1	lit (?do) unloop lit branch ;s
125	+ ;s ! ;s does: col:
25	cell+ tuck ! cell+ var: !
5372	>r col: count lit and +
67	<> ?branch var: col: con: swap
15	+ ;s ! ;s ;s branch
1746	;s ;s ;s dup ?branch lit
4	@local1 @local2 @local3 col: >l >l
1	- dup ?branch r> drop r>
408	user: @ swap - ;s col:
25	var: @ dup var: <= ?branch
56	swap ! ;s col: dup con:
13	?branch ;s swap 2dup 1+ var:
3	lp+2 ;s col: r@ defer: col:
8	@local# @local1 ! drop lp+!# ;s
7	field: @ ?branch @local1 @local1 col:
9	@ ;s cell+ dup faligned <>
8	! ;s branch ;s ;s branch
561	;s ;s ! ;s ;s col:
112	+ ;s @ swap col: >l
170	branch lp+2 ;s lp+ branch >l
13	var: @ ?branch lp+ ;s @local1
64	branch >l >l @local1 col: >l
360	cell+ dup col: count lit and
2	?branch dup defer: col: cell+ dup
20	con: - dup @ swap var:
23	c! ;s ;s ;s branch col:
5	r@ <> ?branch rdrop ;s lit
14	user: ! user: col: con: swap
3716	col: user: @ lit max col:
1	nip nip execute sfloats ;s branch
4305	;s ;s ;s dup ?branch col:
5	tuck - dup ?branch 2dup 1-
29	;s ;s ;s ;s @local1 col:
1	var: @ col: >l lp- con:
2	?dup ;s ?branch ;s col: user:
22	;s ;s col: user: @ col:
16	col: col: lit col: var: @
3	! noop ;s col: r> dup
192	;s ;s ;s cell+ dup user:
135	noop user: @ user: @ col:
4	execute col: col: con: col: col:
5	;s drop col: r> /does-handler +
16	1- >r r@ pick r@ pick
976	rdrop ;s cell+ tuck c@ xor
4751	swap col: con: - ;s con:
245	2drop lp+2 ;s col: col: r>
6	;s @local0 field: 2! @local0 field:
4	;s ;s ! ;s ;s branch
44	con: ! ;s ;s branch col:
16	u>= ?branch col: var: @ dup
16	r@ pick rdrop dup col: con:
6208	+ aligned >r swap >r ;s
14	branch dup ?branch rdrop ;s nip
30	>l >l >l lp- @local1 field:
44	lp+2 ;s col: ?branch r> does:
4	min /string rot dup con: =
67	+! ;s col: col: user: @
114	lp+2 ;s cr (loop) @local1 i
3	nip execute @ ;s branch col:
16	;s ;s ;s swap con: -
56	over - swap ! ;s col:
61	lit (do) @local0 i col: cells
15	var: @ col: >l >l @local0
221	branch ;s ;s col: lit >code-address
360	;s swap c@ lit and 0=
25	col: var: @ dup lit >=
847	swap - col: dup negate user:
561	lit u> lit and col: ?dup
6	;s col: col: does: 2@ ;s
281	con: ;s ;s ;s dup ?branch
3862	dup col: col: col: user: @
356	;s ;s ;s ;s col: lit
762	@local1 con: = ?branch @local2 @local1
2533	! ;s 0= ?branch-lp+!# >l lp-
16	r@ pick r@ pick rdrop dup
10	>body user: @ ?branch ! ;s
13266	dup field: @ field: @ execute
15	0= ?branch var: @ col: cells
7365	lp+ ;s >l lp- @local1 ?branch
1920	col: cells + ;s ! var:
4	;s count + c! col: col:
677	col: dup @ dup ?branch drop
1	lit (?do) i col: cells var:
28	swap r> col: 1- tuck +
316	r> user: ! ;s user: @
23	;s ! lp+ ;s lp+ ;s
1	>l lp- col: r@ defer: col:
124	+ ;s ! ;s lit lit
13	execute col: col: r> user: @
14	?branch var: 2@ lit (?do) dup
7	does-code! ;s ;s ;s ;s branch
24	user: ! rdrop rdrop rdrop lit
380	;s lp+ ;s col: col: r>
132	@local1 col: >l lp- var: @
729	?branch @local1 col: col: col: user:
6	@local1 field: @ 0<> ?branch lp+
1	@ col: >l lp- con: col:
6	dup 0= ?branch nip ?branch 2dup
26	;s ;s var: @ field: @
6208	r> r> dup count + aligned
3282	@ field: @ execute col: @
15	(loop) unloop lp+2 ;s @local1 col:
1	lp+2 ;s var: @ lit col:
10	?branch lp+ ;s lp+ branch >l
1	>l does: 2@ ;s col: over
360	0= ?branch ;s >body @ max
4	;s @ ;s count + c!
6	defer: col: cell+ dup @ 0<
4362	;s lp+ branch >l lp- @local1
17	?branch @ branch 2dup u< ?branch
2048	pick ! ! ;s lit pick
1	@ lit (?do) i col: cells
561	@ ;s @ ;s dup faligned
3716	@ c! ;s ;s 2dup d0=
191	var: c! var: count move lit
25	compare 0<> ?branch 2drop col: lit
152	col: dup con: <> swap con:
88	;s @local3 does: @ + @
672	lp+2 ;s 0= ?branch @local1 field:
46	;s ?branch drop @local0 lp+2 ;s
29	>l >l >l >l >l does:
4	@ over min /string rot dup
1	@ var: ! ;s ;s ;s
16	>r drop col: var: @ dup
536	col: defer: col: defer: col: col:
13	@ >r user: @ user: @
556	col: lit >code-address ;s col: col:
28	;s branch lp+2 ;s lp+ branch
23	@local1 >l lp- @local1 ?branch @local1
4	col: >l >l col: does: 2@
255	;s @ var: @ 1+ dup
16	?branch rdrop ;s ;s ;s r>
323	dup >r col: lit (?do) count
6	! ;s ;s ;s branch ;s
923	lp+ ;s dup ?branch 2drop lp+!#
225	sp@ cell+ dup cell+ rot move
221	nip nip execute col: defer: col:
44	swap ! ;s drop branch ;s
45	(type) ;s cr @local1 field: col:
50	@local0 field: col: >l >l @local0
14	@local1 ?branch @local1 @local0 field: col:
76	;s ! (loop) unloop lp+ ;s
4795	var: @ + @ (hashfind) ;s
152	;s over - swap ! ;s
14	(?do) dup >r 2@ dup >r
15	@local1 field: ! @local1 col: >l
2	nip execute col: does: 2@ ;s
22	nip ;s user: ! ;s col:
3	;s lit branch (+loop) i col:
2588	>l lp- @local1 ?branch @local# @local1
4	swap ! ;s ;s branch col:
6	negate ;s ;s ;s dup 0=
26	unloop lp+2 ;s @local1 field: @
7	2dup >float ?branch 2drop user: @
20	;s ! ;s ;s branch col:
50	+ swap cmove var: over r>
218	lp- @local1 2@ nip lp+ ;s
2036	col: col: dup 0< ;s col:
64	swap lp+ branch >l >l @local1
9	invert and ;s ;s ;s col:
820	branch @ dup ?branch 2dup swap
1091	0= ?branch @ lit r@ lit
1	tuck - lit cells / ;s
14	open-file 0= ?branch nip nip r>
49	col: swap >r dup allocate col:
166	?branch @local3 col: >l lp- @local1
45	= ?branch drop branch (loop) unloop
1	;s @ ;s r> tuck -
1927	;s ;s ;s ;s col: col:
46	@local1 >l >l @local1 col: >l
11	var: ! ;s ;s branch col:
20	swap var: ! ;s over r@
30	nip execute col: lit lit !
1	branch dup ?branch 2drop col: col:
13	user: @ user: @ = ?branch
12	lit ;s r> user: ! col:
1	! ;s lp+2 ;s ;s ;s
1662	dup cell+ >r @ col: col:
265	@ ;s col: >l lp- @local1
16	con: * 1- >r r@ pick
13	user: ! execute col: col: user:
561	;s @ ;s dup faligned swap
44	and ?branch @local2 @local3 col: >l
6	col: r@ defer: col: cr col:
17	execute col: var: @ ?branch col:
320	con: swap ! ;s lit var:
44	or and ?branch @local2 @local3 col:
1664	+ ;s @ var: = ?branch
4	>l >l >l @local0 @local1 @local2
1105	col: lit fill ;s r> ;s
192	;s ;s cell+ dup user: !
94	@ col: col: col: user: @
7	code-address! ;s ;s ;s branch col:
1170	d0= ?branch col: user: @ lit
45	lp- @local1 field: @ col: >l
1	?branch ;s dup ?branch 0> ?branch
55	;s dup aligned swap (?do) con:
573	;s ;s lit col: col: col:
5	col: lit lit col: >r dup
6	;s defer: (type) ;s ;s col:
29	@local2 col: swap >r dup allocate
58	swap (?do) unloop ;s ;s lit
4815	user: @ ;s +! ;s col:
44	lp+ ;s @local1 col: >l lp-
29	defer: (emit) ;s @local1 does: @
5	;s lp+!# ;s lp+ ;s dup
7	;s ;s ;s user: col: con:
1	>code-address ;s branch col: sp@ user:
3	con: ! ;s branch col: var:
13	;s col: col: r> dup cell+
1482	;s ;s ;s col: col: r>
2	?branch 2drop user: @ ?branch ;s
1	var: @ con: cells col: lit
722	con: swap ! ;s ;s ;s
323	col: lit (?do) count col: user:
8471	(parse-white) 2dup + r> - 1+
1	;s lp+ ;s lp+ ;s var:
469	+ @ ;s col: lit col:
1	@ var: = ?branch con: @local1
116	+! ;s ! ;s @local# col:
36	lit floats over = ?branch lit
2586	(?do) i' i - lit min
16	;s rdrop ;s col: r> dup
27	col: >r sp@ r> swap >r
4751	dup col: col: con: dup @
14	! drop ;s ;s ;s branch
44	lit @local0 field: ! @local0 field:
2331	dup @ lit pick ! !
17	drop col: con: @ col: 2dup
320	! ;s lit var: ! ;s
904	>l >l lp- @local1 con: =
69	;s drop + >r ;s @local0
11	>r ;s @local1 con: = @local1
726	;s @local1 >l lp- @local1 col:
6	-rot move ;s @local0 field: 2!
13	swap ! ;s lit col: >r
14	lit (?do) dup >r 2@ dup
1	var: 2@ 2* cells col: swap
694	@ ;s user: ! drop ;s
128	;s drop + >r ;s @local1
196	lit col: r> /does-handler + col:
135	defer: col: col: con: <> col:
647	= ?branch branch drop ;s ;s
12	col: ?dup ?branch ;s ;s r>
155	min user: ! ;s col: var:
13	user: +! user: @ user: !
102	lp- @local1 field: @ @local1 lit
6	col: cr col: col: var: 2@
8	;s lit > col: ?branch r>
29	lp+!# ;s ;s branch col: sp@
15	@local1 field: 2! @local1 lp+ ;s
2	nip execute col: user: @ ;s
25	>r ?branch rdrop ;s tuck !
16	0= ?branch ;s ;s col: drop
7935	?branch ;s defer: col: defer: col:
218	user: @ ;s does-code! ;s ;s
44	;s ;s lp+ ;s @local1 col:
4	;s drop + >r ;s @local3
7	rdrop r> ?branch dnegate r> user:
16	0= ?branch ;s >body user: @
249	! ;s does: col: var: dup
772	dup ?branch 2drop lp+!# ;s lp+2
2	>code-address lit = ?branch >code-address ;s
2586	max lit (?do) i' i -
77	col: col: defer: col: defer: col:
12	;s col: ?dup ?branch ;s ;s
847	col: user: @ swap - col:
67	con: swap ! ;s @local1 i
6	;s >r defer: (type) col: col:
35	cmove var: r> ;s ;s branch
2	! col: col: user: @ ;s
76	dup faligned swap (?do) unloop ;s
5	+ lit swap c! 1+ col:
68	;s @ ;s over char+ col:
253	does: 2@ ;s drop + >r
36	1+ user: +! ;s user: @
1	branch @ dup @ ?branch dup
246	con: swap ! ;s ;s defer:
5528	col: 2dup col: var: @ col:
227	over 0<> ?branch faligned nip ;s
316	con: swap ! ;s over c@
14	?branch nip nip r> rdrop lit
1894	;s dup ?branch 0> ?branch col:
5683	var: @ col: col: dup field:
11	lit > ?branch lp+ ;s @local1
13	nip execute col: col: var: dup
923	;s var: col: con: swap !
370	;s ;s lit col: user: @
8	execute ! ;s branch col: sp@
556	@ ;s dup user: ! lit
14	col: ?dup ?branch ;s var: swap
16	branch lp+2 ;s lp+2 ;s lp+
41	;s ! (loop) unloop lp+2 ;s
14	! lp+ ;s @local0 @local1 field:
191	lit + = ?branch i -
2	! ;s ;s drop col: r>
25	@ dup lit >= col: col:
13	move ;s col: var: 2@ tuck
220	user: @ ;s @ ;s over
9572	col: user: @ ;s user: @
88	lp+ ;s col: >l lp- col:
29	@local3 col: col: col: user: @
16	execute col: col: lit col: var:
45	- col: col: col: user: @
152	col: col: col: con: @ col:
10	lit <> ?branch lp+ ;s @local1
46	+ @ ;s 0<> ?branch @local0
6	@ ;s >r defer: (type) col:
6	execute >body ;s branch col: sp@
36	con: open-file 0= ?branch rdrop drop
2	(type) ;s cr lp+ ;s var:
126	lit col: lit lit ! user:
52	u<> ?branch drop ;s dup col:
174	= @local2 var: <> @local3 col:
976	;s cell+ tuck c@ xor swap
680	! drop ;s ;s branch col:
67	?branch var: col: con: swap !
1	execute col: >l >l does: 2@
196	! col: r> dup cell+ >r
561	dup lit u> lit and col:
6	@local1 col: >l lp- @local1 col:
15	(?do) var: @local1 field: i col:
1	?branch 2dup con: open-file col: ?dup
4	branch col: col: user: @ ;s
392	2@ drop lp+ ;s does: @
29	! @local0 @local1 col: >l >l
195	var: @ @local1 col: >l >l
11	1+ >r col: r> dup cell+
4	rot dup con: = ?branch drop
16	r@ pick r@ pick r@ pick
117	drop 2dup col: col: user: @
29	lp+ ;s @local0 field: ! @local0
15	?branch @local2 i col: cells +
15	lp- var: @ lit (?do) lit
4	lit > ?branch @local0 @local1 col:
1	drop + >r ;s con: col:
124	@ ;s does: col: var: dup
1	nip execute col: var: col: con:
309	lit = dup >r ?branch col:
4	> ?branch lp+ ;s lp+ branch
4	> ?branch @local1 field: @ @local1
118	@local0 col: >l lp- col: col:
6	>l >l @local0 @local1 col: col:
1	nip nip execute col: var: !
498	col: lit col: >r col: col:
62	@local0 branch lp+ ;s dup @local1
135	col: var: var: ! ;s lit
17	! ;s ;s ;s col: col:
5	unloop ;s ;s ;s ;s branch
116	@ lit col: >l >l @local0
8	branch dup >r col: lit (?do)
4649	?branch lit /string branch dup ?branch
1	col: >l lp- con: col: >l
1	- ;s col: col: col: user:
191	col: col: dup lit u> lit
255	@ var: @ 1+ dup con:
1783	;s ;s ;s 2drop ;s branch
8471	@ /string (parse-white) 2dup + r>
2546	unloop drop ;s defer: (type) ;s
730	?branch @local0 @local1 col: >l >l
16	does: 2@ ;s col: over swap
1105	@ over cell+ count lit and
9320	2dup i 2@ over <> ?branch
52	drop ;s dup col: lit over
56	?branch var: @ ?branch col: col:
112	;s ;s 2drop branch ;s branch
308	;s (loop) unloop lit branch ;s
46	;s lp+ ;s @local1 @local0 does:
29	@local1 ?branch @local0 1+ @local1 col:
4	lit > ?branch @local1 field: @
4777	;s >l lp- @local1 ?branch drop
847	@ swap - col: dup negate
13	user: ! lit user: ! user:
111	?branch nip ;s dup ?branch 0>
36	cell+ (loop) dup >r 2@ dup
15	>r ;s @local1 field: @local1 field:
5	var: col: >l >l @local0 ?branch
29	r> -rot move ;s col: col:
1	and ?branch nip nip execute cell+
7	?branch 2drop rdrop user: col: con:
12868	user: @ ;s @ ;s con:
42	>r ?branch rdrop ;s 0> ?branch
4	;s @local2 @local1 @local3 field: @
663	over = ?branch lit cells over
2407	! ;s dup ?branch 2drop ;s
114	swap ! ;s ;s defer: noop
9	! ;s drop ;s ;s user:
48	execute col: col: col: r> dup
5	lp+2 ;s @local1 lit col: >l
1	! ;s (loop) unloop ;s ;s
1	@ ?branch drop ;s ;s branch
27	! ;s ;s col: con: @
52	;s dup col: lit over 0<>
1	col: user: @ >r var: @
501	?branch col: r> dup cell+ >r
191	count move lit lit ! ;s
2	;s ;s lit lit col: >r
27	>r ?branch rdrop ;s ;s over
4649	over c@ r@ <> ?branch lit
4	defer: (type) ;s cr col: col:
3837	?branch @local1 branch lp+ ;s dup
16	cell+ var: ! ;s rdrop ;s
60	! r> user: ! r> user:
23	@ + @ ;s ?branch lp+
7	@local1 @local1 col: field: @ ;s
29	! @local0 field: lp+ ;s ;s
173	;s (loop) unloop ;s lit col:
28	+ swap invert and ;s ;s
72	>l @local0 col: >l lp- col:
360	0<> ?branch over col: cell+ dup
1105	?branch @ over cell+ count lit
561	;s move ;s col: col: col:
36	>l >l @local3 does: @ +
88	con: = ?branch con: col: >l
54	lp+ ;s lp+ ;s con: col:
191	col: lit lit ! ;s ;s
124	! col: col: var: dup @
4	@ ;s col: over >r rot
4795	@ >r 2dup col: con: (hashkey1)
1105	over cell+ count lit and col:
30	nip execute over ;s branch col:
8092	user: @ ;s +! ;s !
1482	;s (loop) con: col: col: col:
414	;s dup ?branch 2drop lp+2 ;s
5	lp+!# ;s lp+ ;s dup @local1
15	?branch @local0 lp+2 ;s @local1 field:
135	user: ! user: ! noop ;s
30	and ?branch nip nip execute over
4	branch dup ?branch lit /string branch
174	<> @local3 col: >l lp- @local1
60	;s ! drop ;s col: col:
61	@ ?branch col: col: col: user:
2321	negate ;s ;s ;s dup ?branch
1	+! ;s ! ;s ;s branch
4	?branch var: @ over ! lit
164	col: col: con: <> col: col:
2586	- lit min 2dup defer: (type)
16	r> rot col: con: <> col:
15	col: cells con: ;s col: over
3	;s ;s ;s lit (?do) col:
5	2drop con: ;s dup ?branch drop
4	col: col: con: col: col: defer:
16	;s 0= ?branch ;s >body user:
10	swap ;s 2dup col: var: 2@
601	;s +! ;s ! ;s ;s
5528	dup ?branch defer: col: 2dup col:
61	>l >l con: lit (do) @local0
15	lit (?do) lit @local1 i col:
2588	@local1 ?branch @local# @local1 col: >l
15	! lit var: +! var: @local1
123	branch drop ;s ;s ;s user:
1006	lit and ?branch 1- r> lit
280	;s ;s lp+ ;s col: col:
9	lit @local1 ! lp+ ;s field:
1	@ ?branch col: col: r> dup
5	@ dup ?branch 2drop r> var:
1105	0= ?branch >r drop r@ @
1940	col: con: swap ! ;s ;s
2534	unloop drop ;s ;s ;s ;s
498	;s 2dup d0= ?branch ;s col:
26	var: @ ?branch @local1 field: @local1
4	! drop lp+!# ;s @local2 field:
4	lit or branch ;s ;s branch
2	cell+ cell+ dup user: ! swap
2	allocate col: ?dup ?branch ;s over
1105	+ dup @ 0< ?branch @
17	?branch cells var: + @ user:
1	swap ! ;s user: col: con:
5372	and + faligned ;s r@ lit
15	@ u>= ?branch drop con: ;s
1	(?do) unloop 2drop drop con: ;s
15	lp- @local1 @local1 field: lit col:
388	@ cells + ;s @ var:
202	0= ;s ?branch lp+2 branch >l
98	field: @ @local1 col: >l >l
408	col: user: @ swap - ;s
3	@ ?branch defer: col: col: con:
15	col: >l lp- @local1 @local1 field:
100	execute col: col: col: lit lit
1	user: @ swap ! col: r>
7	dup field: dup var: ! defer:
152	>r ?branch rdrop ;s ;s con:
36	>l @local0 @local1 swap >l >l
3716	lit r@ um/mod r> swap >r
201	+! lit over = ?branch lit
17	?branch drop r> col: col: col:
2997	col: @ (f83find) ;s ;s dup
114	@local1 field: @ lit col: >l
195	= ?branch con: lp+2 ;s lp+
2	drop branch ;s (loop) unloop ;s
4586	lit col: drop var: dup @
74	nip execute col: dup col: dup
12	?branch ;s col: ?dup ?branch ;s
142	defer: (type) ;s lp+ ;s @local2
7	@ 0< ?branch drop ;s col:
39	con: ;s branch col: sp@ user:
10	nip nip execute does: col: var:
16	;s ;s swap con: - swap
320	;s lit var: ! ;s ;s
44	con: lp+2 ;s col: ?branch r>
5	over ! lit var: +! var:
4751	swap c! ;s ;s ! ;s
3716	col: >r lit r@ um/mod r>
12	0< ;s r> col: >r tuck
64	@local1 @ lp+ ;s ?branch @local0
191	?branch ;s ;s var: c! var:
36	and ?branch nip nip execute con:
26	;s ;s ;s var: @ field:
26	;s 2dup defer: (type) compare 0<>
191	drop col: col: dup lit u>
9	;s drop ;s ;s user: !
33	nip nip execute col: var: @
14	dup allocate col: ?dup ?branch ;s
54	;s @local0 col: >l lp- @local1
4	>r user: @ over min /string
1	2dup r> -rot move ;s drop
1	rp@ user: ! fp@ user: !
2420	@ ?branch col: user: @ ;s
1	branch col: lit does: swap lit
216	swap branch over 0<> ?branch over
360	@ swap branch over 0<> ?branch
2	@ ?branch dup defer: col: cell+
6	move ;s @local0 field: 2! @local0
2	user: ! col: col: user: @
194	aligned dup col: user: @ swap
191	field: @ execute col: drop col:
34	?branch branch drop ;s ;s user:
316	over c@ lit = dup >r
403	>r defer: col: col: user: @
142	;s @local2 lit col: >l >l
13	@ ?branch lp+ ;s @local1 col:
2	?dup ;s ?branch ;s ;s col:
1	>r var: @ lit (?do) i
124	lit ! lit col: lit lit
135	user: ! var: var: ! lit
568	user: @ ?dup ;s ?branch col:
13	;s swap 2dup 1+ var: 2!
15	>l @local1 ?branch @local0 lp+2 ;s
68	branch >l lp- @local1 ?branch lp+2
14	>l >l @local0 ?branch @local1 ?branch
100	;s lit col: >r defer: col:
1	nip execute dfloats ;s branch col:
131	0<> ?branch faligned nip ;s col:
370	user: ! ;s col: dup 0=
5	?branch nip nip execute does: 2@
360	@ u>= ?branch con: ;s ?branch
13	col: r> user: @ >r user:
15	;s >l lp- var: @ lit
1	rdrop ;s nip ?branch 2dup con:
203	col: col: col: defer: defer: col:
7	cell+ cell+ (loop) unloop 2drop drop
27	execute col: col: user: @ ?branch
4751	does: + c@ ;s ;s over
8	?branch @local3 = ?branch @local# @local1
5068	dup ?branch over c@ r@ <>
3843	cells + ;s ! (loop) @local0
1	con: swap ! ;s rp@ user:
12	r> user: ! col: ?dup ?branch
112	swap col: >l >l @local0 >l
4	! ;s (loop) col: dup col:
2048	@ lit pick ! ! ;s
25	! cell+ tuck ! cell+ var:
1638	cells + ;s ! (loop) @local2
12	dup 0< ;s r> col: >r
1	nip execute col: var: @ col:
1	;s con: ! ;s (loop) unloop
1	branch dup ?branch rdrop ;s over
556	;s col: lit >code-address ;s col:
672	0= ?branch @local1 field: @ @local1
29	@ @local1 @local0 does: @ +
3904	col: cells + ;s @ <>
2546	(?do) unloop drop ;s defer: (type)
11	;s @local1 con: = @local1 con:
5	;s col: var: @ 0= ?branch
6	;s count defer: (type) ;s r>
54	;s lp+ ;s lp+ ;s con:
1	var: = ?branch con: @local1 col:
770	col: >l >l @local1 col: >l
191	= ?branch i - con: -
158	over = ?branch lit floats over
285	field: @ execute col: col: col:
27	?branch col: col: r> r> dup
4	nip nip execute col: con: swap
12	;s ?branch ;s r> user: !
1105	0< ?branch @ over cell+ count
638	@ cells + ;s ! ;s
5	;s col: r@ defer: col: cr
46	0<> ?branch @local0 col: >l lp-
30	nip nip execute over ;s branch
13	! user: @ >r >r ;s
13	>r >r ;s user: ! lit
195	@local1 @local3 = ?branch con: lp+2
22	@ col: dup con: ! col:
1	! execute col: user: @ >r
29	! ;s lit var: +! lp+!#
5528	2dup col: var: @ col: col:
6	(type) col: col: r> r> dup
4	+ >r ;s lp+2 ;s lp+
2533	;s ! ;s 0= ?branch-lp+!# >l
133	col: >l >l @local0 col: >l
3	dup var: ! defer: drop ;s
142	;s cr branch lp+2 ;s lp+
56	user: ! ;s var: col: con:
45	dup ?branch 2drop lp+!# ;s var:
15	cells con: ;s col: over swap
1	;s con: col: >l lp- var:
1	?dup ?branch ;s -rot >r var:
5	;s dup ?branch drop defer: col:
56	;s col: dup con: ! col:
68	+! ;s col: over >r rot
566	dup @ 0< ?branch var: @
3716	+ col: col: col: col: user:
8837	@ ;s lit + aligned ;s
17	;s r> drop col: con: @
17	- dup lit u< ?branch cells
5	2@ ;s ;s branch col: sp@
50	dup >r 2@ dup >r var:
68	@ ;s @ ;s over char+
176	;s col: >l lp- col: col:
142	(type) ;s lp+ ;s @local2 lit
1	?branch execute col: lit col: dup
132	execute col: defer: col: col: con:
6	;s lit floats col: col: user:
23	var: 2@ lit (?do) dup >r
88	lp- @local1 con: = ?branch con:
156	@local1 lit col: >l >l >l
7	;s ;s user: col: con: swap
44	! lit @local0 field: ! @local0
1105	tuck cell+ ! r> var: @
4	drop branch ;s ;s ;s branch
5372	;s dup ?branch col: cell+ dup
4	;s @local3 @local1 @local2 field: @
407	execute does: @ col: user: @
27	;s col: con: @ col: 2dup
45	@ ;s ;s con: var: col:
75	* 1- >r r@ col: dup
4	lp+ ;s >l lp- @local2 @local1
135	drop ;s ;s user: ! user:
2	@ ;s ;s branch col: sp@
16	rdrop ;s ;s ;s r> r>
11	does-handler! ;s branch con: defer: noop
1	col: var: 2@ 2* cells col:
1	lit cells / ;s var: 2!
112	cells + ;s @ swap col:
61	+ >r ;s @local1 col: >l
196	! ;s ;s lit col: r>
8	;s (loop) col: dup col: dup
485	dup faligned swap (?do) con: col:
155	defer: (type) ;s cr lp+ ;s
11	con: = @local1 con: = or
35	+! ;s user: @ ?branch con:
15	>l lp- @local1 var: @ col:
16	@ ;s +! ;s ;s >l
60	user: @ ;s ! drop ;s
45	@ ;s @ ;s - col:
568	?dup ;s ?branch col: cell+ count
7935	@ > ?branch ;s defer: col:
58	2drop lp+!# ;s lp+2 ;s @local1
5	0= ?branch execute var: col: >l
18	r> col: col: col: col: user:
67	nip execute col: col: defer: defer:
694	;s lp+ ;s @local3 lit col:
2546	r> over - does: swap lit
15	@local1 field: ! lp+ ;s @local1
15	col: >l lp- con: lit (?do)
7	cell+ (loop) unloop 2drop drop con:
11	;s col: col: 2dup lit col:
3716	< ?branch lit + col: col:
44	user: @ col: col: col: user:
31	;s col: over swap col: col:
407	nip nip execute does: @ col:
2	;s cell+ cell+ dup user: !
1	dup 0= ?branch 2drop 2dup lit
2048	dup lit pick col: dup @
1	nip var: 2! ;s defer: noop
61	>r ;s @local1 col: >l lp-
195	@ lp+ ;s dup ?branch @local#
28	;s code-address! ;s >r rot r@
542	var: @ and ?dup ?branch 2drop
4078	i 2@ over <> ?branch drop
7	/string col: over c@ lit -
16	;s branch lp+2 ;s lp+2 ;s
44	?branch @local2 @local3 col: >l >l
772	! ;s lp+ ;s @local2 col:
15	lp- con: lit (?do) var: @local1
36	?branch 1+ user: +! ;s user:
14	;s ;s ;s ;s dup col:
1	dup 0> 0= ?branch ;s dup
772	;s @local2 col: >l >l @local0
2835	(loop) @local1 i col: cells +
6	@ 2* cells + 2@ rot
71	lp- @local1 col: >l lp- var:
218	col: col: user: @ ;s does-code!
152	@ ;s over - swap !
784	2drop con: lp+2 ;s 0= ?branch
369	?branch con: ;s ?branch col: swap
112	lp+ ;s @local1 field: over does:
9	@local1 branch lp+ ;s @local0 field:
40	- dup @ swap con: -
1789	0> ?branch col: col: col: col:
984	dup ?branch @local3 @local# @local# execute
904	>l >l >l lp- @local1 con:
202	drop con: lp+2 ;s col: 0=
967	@local0 col: >l >l @local0 >l
9	lit = ?branch con: ;s ?branch
18	and ?branch nip nip execute var:
5	- dup ?branch 2dup 1- +
28	code-address! ;s >r rot r@ col:
13	+ 2! ;s var: 2@ nip
29	;s rot col: 0< ?branch lit
4	;s drop + >r ;s lp+2
195	dup user: ! swap ! col:
4	;s @ ;s col: over >r
8	drop con: ;s ?branch col: user:
12	user: @ swap - con: /
29	;s @local3 col: col: col: user:
1	0> ?branch swap col: user: @
1105	;s r> ;s tuck cell+ !
309	?branch user: @ dup 0> 0=
17	;s col: r> /does-handler + col:
12	rdrop rdrop rdrop lit ;s r>
44	= ?branch col: col: col: user:
44	defer: (emit) ;s cr col: col:
45	+ >r ;s var: col: con:
4	>l @local0 @local1 @local2 @local3 col:
1	nip nip execute >code-address ;s branch
726	@local1 ?branch drop lit col: col:
7	c@ lit = ?branch 2drop rdrop
1105	lit cells lit col: lit pick
16	nip execute col: lit lit col:
1	2! var: up! sp@ dup user:
647	over = ?branch branch drop ;s
2546	- dup ! ;s col: col:
1	@ var: = ?branch @local1 con:
1	nip execute >code-address ;s branch col:
1	allocate col: ?dup ?branch ;s var:
1	@ lit > ?branch con: lit
44	lp+ ;s lp+ ;s @local0 lit
35	dup allocate col: col: r> r>
20	! ;s over r@ u>= ?branch
4	<> ?branch col: col: 2dup lit
1683	dup ?branch 0> ?branch nip nip
2546	col: col: user: @ lit max
7	lp+ ;s @local1 field: @ 0<>
10	nip execute field: ;s branch col:
3	and ?branch nip nip execute cells
2407	dup ?branch 2drop ;s branch col:
36	>l >l @local0 @local1 swap >l
10	;s lit <> ?branch lp+ ;s
54	>l >l col: col: r> r>
1	r> drop r> col: col: col:
24	nip execute col: col: lit lit
1105	fill ;s r> ;s tuck cell+
299	?branch 1+ user: +! ;s 2drop
13	col: col: user: @ ?branch col:
392	drop lp+ ;s does: @ +
11214	@ lp+ ;s dup ?branch @local3
782	col: >l >l >l >l @local0
248	;s col: var: @ 1- dup
16	>r lit col: 1+ con: *
32	execute col: lit col: user: @
3034	lit and ?branch ;s ;s ;s
9	execute col: lit col: cells con:
191	execute col: drop col: col: dup
281	;s ;s ;s dup ?branch ;s
68	1+ r> move c! ;s col:
403	>r over - dup r> ?branch
4751	;s con: / col: col: lit
4	lp+ ;s var: @ col: >l
1833	+ @ ;s col: col: dup
30	branch (loop) unloop lp+ ;s col:
29	;s @local0 field: ! @local0 @local1
8837	;s lit + aligned ;s con:
1	nip nip execute does: col: r>
314	cells over = ?branch drop col:
1013	@local3 execute col: >l lp- col:
1	?branch col: col: r> dup cell+
124	! col: var: ! ;s col:
6	;s @ ;s lit floats col:
17	nip ;s - dup ?branch drop
9	lit (?do) dup >r 2@ 2over
45	field: col: >l lp- con: lit
1	execute >code-address ;s branch col: sp@
283	;s ?branch var: @ col: lit
2586	lit does: swap lit max lit
4	nip execute col: con: swap !
14	r> rdrop lit branch unloop 0<>
2786	;s @ ;s lit col: col:
370	;s ! ;s ;s col: defer:
18	var: ;s branch col: sp@ user:
55	(type) ;s cr lp+ ;s @local1
1	?branch lp+2 ;s var: @ lit
4	drop branch ;s (loop) col: dup
1638	+ ;s ! (loop) @local2 i
61	;s @local0 field: @local1 field: col:
1	defer: (type) branch col: lit does:
1	;s +! ;s f! ;s col:
12	rdrop rdrop lit ;s r> user:
12	count defer: (type) ;s col: sp@
14817	@local1 i col: cells + ;s
360	c@ lit and 0= ?branch ;s
133	cells + ;s @ var: !
255	col: user: @ ?branch col: r>
295	count defer: (type) ;s @local1 col:
15	@local1 ?branch @local0 lp+2 ;s @local1
191	con: - unloop ;s ;s ;s
285	@ ?dup ;s ?branch var: @
281	lit (+loop) unloop 2drop con: ;s
18	@ lit pick col: lit over
191	c! ;s col: lit lit !
1768	2dup con: col: dup field: @
122	cells over = ?branch lit floats
7	;s does-code! ;s ;s ;s ;s
694	?branch defer: col: col: user: @
403	?branch rdrop ;s >r over -
174	>l >l >l lp- @local3 col:
88	field: @ col: col: dup 0<
8	lp+ ;s lp+ ;s @local1 field:
31	! lp+ ;s lp+ ;s @local1
22	+! ;s ! ;s user: @
191	! ;s lit col: lit con:
1428	(f83find) ;s ;s dup ?branch drop
100	con: lp+2 ;s ?branch @local1 field:
15	! var: @local1 field: ! @local1
60	;s col: user: @ ;s !
1	execute col: lit col: dup negate
4	>code-address ;s ;s branch col: sp@
2046	lit pick + (loop) dup lit
78	faligned nip ;s user: ! ;s
119	nip nip execute col: col: r>
197	?branch 2rdrop branch ;s branch col:
8475	@ ;s user: @ ;s 2dup
4	dup ?branch lit /string branch over
262	col: lit col: user: @ swap
14	0<> lit and col: ?dup ?branch
5	+ >r ;s @local1 lit col:
5	+ c@ lit <> ?branch 2dup
29	;s @ @local1 @local0 does: @
4	@ ;s @ ;s col: over
150	r> ;s r@ col: dup 1+
770	col: lit lit ! user: col:
133	>l lp- @local1 ?branch @local1 @local#
247	?branch r> does: 2@ ;s drop
23	var: @ ?branch col: con: @
4717	;s ;s dup ?branch nip nip
6208	count + aligned >r swap >r
4366	and ?branch r> lit and ?branch
196	(type) ;s col: lit defer: (emit)
5	;s 2! ;s branch dup ?branch
316	;s over c@ lit = dup
5	lp- @local1 ?branch lp+!# ;s lp+
1	lp+ ;s @local1 field: @ var:
15	(loop) unloop lp+ ;s lit lit
2	@ ?dup 0= ?branch 2dup *
403	over swap r> col: >r dup
556	>code-address ;s col: col: col: user:
556	@ ;s @ ;s dup user:
282	execute col: defer: defer: col: col:
88	(type) ;s @local1 field: @ col:
12	;s col: sp@ user: @ swap
8837	;s @ ;s lit + aligned
283	@ (hashfind) ;s ;s var: @
5	(loop) unloop ;s ;s ;s ;s
84	;s cr lp+ ;s @local1 col:
191	;s ;s ;s dup ?branch nip
16	;s ;s drop con: ;s ;s
649	col: con: swap ! ;s lit
67	;s ;s col: lit col: >r
556	;s dup user: ! lit col:
931	lp+2 branch >l lp- @local1 col:
16	2@ ;s col: over swap col:
283	@ col: lit + dup @
316	user: @ >r user: col: con:
1783	?branch 0> ?branch col: col: col:
548	lp- @local1 2@ drop lp+ ;s
2534	defer: (type) ;s col: lit does:
5	0<> ?branch @local1 @local1 field: 2@
135	lit con: ! var: col: con:
2	;s 0= ?branch ;s ;s ;s
1783	;s ! ;s ;s ;s 2drop
1	2! ;s branch dup ?branch 2drop
100	lp+2 ;s ?branch @local1 field: @
174	does: @ + @ ;s <
15	con: ;s col: over swap col:
726	>l lp- @local1 ?branch drop lit
726	@ ;s @ ;s @local1 >l
191	?dup ?branch ;s ;s var: c!
2	r@ <> ?branch rdrop ;s nip
12	;s ?branch lp+2 ;s lp+ branch
174	2@ nip lp+ ;s does: @
4	field: 2! @local1 lp+ ;s >l
8	lp+2 ;s lit > col: ?branch
234	col: >l lp- @local1 col: >l
195	?branch execute col: user: @ col:
5	@ >r var: col: con: swap
29	(type) col: lit defer: (emit) ;s
11	= @local1 con: = or ?branch
726	;s +! ;s @local0 >l lp-
1	and ?branch nip nip execute drop
191	- count lit and + faligned
3	;s ;s drop col: r> /does-handler
4	?branch @local1 field: @ 0<> ?branch
196	swap ! col: r> dup cell+
16	;s ;s col: >r >r user:
12	?branch ;s r> user: ! rdrop
58	faligned swap (?do) unloop ;s ;s
1006	1- r> lit and ?branch negate
4	@local1 col: >l >l col: does:
1464	@local1 @local3 = ?branch @local1 col:
135	var: ! ;s lit user: !
4	dup var: ! defer: col: cell+
561	+! ;s move ;s col: col:
1327	?branch r> lit and ?branch negate
152	<> and col: col: r> r>
116	;s @local# col: col: col: user:
15	var: ! var: @ @local1 lit
7	>float ?branch 2drop user: @ ?branch
52	2dup u<> ?branch drop ;s dup
1475	;s ;s col: col: r> r>
8	dup ?branch @local3 = ?branch @local#
126	branch drop ;s ;s user: !
3	! dup @ dup ?branch 2drop
275	! ;s ;s ;s ;s ;s
8471	user: @ /string (parse-white) 2dup +
76	+ ;s ! (loop) unloop lp+
1	>r col: lit (?do) unloop lit
11	con: defer: noop ;s ;s branch
3265	;s ;s branch col: sp@ user:
17	/string branch dup ?branch rdrop ;s
762	con: = ?branch @local2 @local1 col:
114	;s count defer: (type) ;s lit
14	lp+ ;s @local0 @local1 field: col:
2035	>l lp- @local1 ?branch @local1 @local3
6	>l @local0 @local1 col: col: >l
2586	min 2dup defer: (type) (+loop) unloop
61	um* d+ r> ;s (loop) count
7	! ;s code-address! ;s lit col:
316	;s ;s dup ?branch drop 2dup
44	(type) ;s cr lp+ ;s branch
498	d0= ?branch ;s col: 2drop col:
2610	@local1 does: @ + @ ;s
7	?branch @local1 @local1 col: field: @
752	;s ! ;s ;s lit col:
90	@local0 field: @ @local1 col: >l
35	>l lp- @local1 ?branch lp+!# ;s
124	con: swap ! ;s ;s var:
3	nip nip execute cells ;s branch
309	>r ?branch col: over c@ lit
13	user: ! lit col: >r sp@
1105	?branch >r drop r@ @ rot
826	con: swap ! ;s ;s branch
4281	?branch lit r@ lit and ?branch
273	lit var: ! ;s ;s col:
1	;s @ ;s col: col: dup
1664	cells + ;s @ var: =
5	;s dup 0= ?branch execute var:
316	user: ! ;s user: @ 0=
4795	@ + @ (hashfind) ;s ;s
7	;s dup field: dup var: !
1	! lit + dup user: !
28	! ;s + swap r> col:
54	lp+ ;s con: col: >l lp-
12	defer: (type) ;s col: sp@ user:
49	branch lp+ ;s @local1 ! lp+
3	;s drop ;s ;s col: r>
4795	col: lit + @ >r 2dup
3	! ;s branch col: var: @
3942	>r ;s count defer: (type) ;s
316	col: user: @ >r user: col:
4751	@ + ;s swap col: con:
75	execute col: >l >l @local0 field:
3843	;s ! (loop) @local0 i col:
58	does: @ + @ ;s 0<>
3745	- lit over +! @ c!
5	@local1 con: col: col: dup field:
299	>l @local0 >l lp- @local1 ?branch
255	cells + ;s @ var: @
24	;s r> user: ! rdrop rdrop
17	lit /string branch dup ?branch rdrop
4281	and 0= ?branch lit r@ lit
2420	read-line col: ?dup ?branch ;s branch
116	1- tuck + swap invert and
29	col: 0< ?branch lit col: col:
6	lit (?do) unloop drop ;s cr
360	over 0<> ?branch over col: cell+
4	c@ ;s col: user: @ ?branch
72	over >r rot over 1+ r>
772	@local3 lit col: >l >l >l
74	;s branch dup ?branch execute col:
2	branch ;s (loop) unloop ;s ;s
4586	@ 1- cells over + (do)
3	execute @ ;s branch col: sp@
5	?branch 2dup + lit swap c!
4	;s branch dup ?branch lit /string
4649	<> ?branch lit /string branch dup
68	c! ;s col: col: col: user:
7	2! ;s col: r> /does-handler +
18	nip nip execute var: ;s branch
246	?branch drop con: lp+2 ;s col:
35	>r dup allocate col: col: r>
9	= ?branch con: ;s ?branch col:
283	?branch dup @ lit pick !
1	@ 0= ?branch con: cells allocate
17	- dup lit u> ?branch lit
52	= ?branch var: @ ?branch over
244	! ;s code-address! ;s con: col:
16	@local0 branch lp+ ;s @local0 field:
77	2drop lp+!# ;s lp+ ;s @local1
4	@local3 col: >l >l >l >l
29	@local1 @local2 col: swap >r dup
563	;s col: col: user: @ ?dup
8	lit /string branch dup >r col:
1	?branch ;s var: ! var: @
638	dup @ cells + ;s !
6	drop ;s cr ;s r> does:
39	nip execute con: ;s branch col:
2	drop ;s drop col: r> /does-handler
50	swap cmove var: over r> +
36	0= ?branch rdrop drop r> cell+
392	@local1 2@ drop lp+ ;s does:
2546	aligned ;s con: - dup !
4	>does-code lit or branch ;s ;s
58	(?do) unloop ;s ;s lit col:
88	;s @local1 field: @ col: col:
726	drop lit col: col: col: user:
15	@local0 field: lp+ ;s var: !
3	con: defer: col: noop user: @
132	swap ! ;s ;s defer: col:
1	branch dup ?branch rdrop ;s dup
15	col: col: 2dup lit col: >r
36	>l @local3 does: @ + @
2048	dabs col: col: col: col: user:
169	@ dup ?branch nip branch dup
28	and ;s dup col: col: col:
5528	?branch defer: col: 2dup col: var:
11	drop + >r ;s @local1 con:
112	+! ;s ! ;s ;s 2drop
142	cr branch lp+2 ;s lp+ branch
1	branch @ dup @ ?branch drop
218	+ col: col: user: @ ;s
44	@ ?branch con: branch ;s lit
13	! lit user: ! user: col:
11	execute dup ;s branch col: sp@
1	r> ?branch user: +! ;s 2drop
36	?branch ;s ;s ;s dup 0=
2420	@ ?dup ?branch read-line col: ?dup
5	lit <> ?branch 2dup + lit
10	;s var: swap ;s 2dup col:
36	;s @local1 @local0 field: col: >l
4	! lp+ ;s @local3 @local1 field:
5	;s lit cells - var: over
7	?branch rdrop ;s dup 0= ?branch
4	execute col: dup col: col: con:
20	<= ?branch con: - dup @
44	con: branch ;s lit col: col:
108	drop con: lp+2 ;s 0= ?branch
94	lp+ ;s lp+ ;s @local1 col:
22	! ;s user: @ col: col:
191	count col: col: col: user: @
6	branch ;s branch col: var: @
34	@local2 @local3 col: >l >l >l
74	;s ;s branch dup ?branch execute
11	branch con: defer: noop ;s ;s
17	lit /string branch ;s user: col:
1	and ?branch nip nip execute sfloats
822	?branch col: dup @ dup ?branch
568	?branch col: cell+ count lit and
6	con: / ;s lit col: >r
4	@ ;s count + c! col:
2	col: lit >code-address ;s ;s branch
30	over ;s branch col: sp@ user:
285	col: @ (f83find) ;s ;s var:
45	con: lit (do) @local1 i col:
46	;s drop + >r ;s var:
22	;s user: @ col: col: col:
2	;s branch @ dup @ ?branch
2048	! ! ;s lit pick +
6	(?do) unloop drop ;s cr ;s
897	+! ;s ! ;s lit col:
316	col: over c@ lit - dup
6	swap ! ;s lp+2 ;s ;s
369	>r swap user: @ um* drop
50	var: r@ + swap cmove var:
7	@local1 col: field: @ ;s col:
1	branch dup ?branch execute col: lit
13	swap 2dup 1+ var: 2! 2*
5528	user: ! ;s dup ?branch defer:
8	field: @ col: >l >l >l
5	?branch ;s ;s 0= ?branch lp+
122	branch dup ?branch drop user: @
1	;s drop ;s user: @ swap
52	@ col: 2dup u<> ?branch drop
5	dup ?branch 2drop r> var: !
771	nip nip execute col: user: @
44	;s var: @ ?branch con: branch
360	+ faligned ;s swap c@ lit
822	drop ! ;s var: col: con:
7	?branch dnegate r> user: ! ;s
15	@ ;s +! ;s ;s dup
49	@local0 branch lp+ ;s @local1 !
6	;s ;s col: col: does: 2@
6	execute col: dup >code-address lit =
45	user: @ ;s @ ;s -
312	;s ;s ;s ;s ;s branch
1	- lit cells / ;s var:
419	c@ r@ <> ?branch rdrop ;s
568	var: @ col: >r 2dup 2dup
132	;s ;s defer: col: noop user:
369	user: @ um* drop rot user:
2420	! lit user: ! ;s ?branch
5	@ 0< ?branch var: @ >r
197	0= ?branch nip ;s ?branch 2rdrop
848	col: dup negate user: +! lit
29678	col: col: user: @ ;s @
2420	user: ! lit user: ! ;s
1649	var: = ?branch @local1 branch i
14	;s @local1 ! lp+ ;s @local0
191	lit ! ;s lit col: lit
14	;s ! ;s ;s var: @
244	;s con: col: lit lit !
28	+ swap r> col: 1- tuck
1	>r ;s col: col: user: @
506	;s ;s ;s lp+ ;s lp+
15	@local1 field: @local1 field: con: cells
1	col: user: @ col: faligned dup
135	;s ;s user: ! user: !
16	col: lit lit col: >r >r
16	con: swap ! ;s ;s drop
3	?branch lp+2 ;s col: r@ defer:
4	;s @local1 ! lp+ ;s @local2
4	nip nip execute col: col: >l
135	con: ! var: col: con: swap
5	f! ;s ;s ;s ;s branch
16	r@ u>= ?branch col: var: @
370	dup 0= lit and col: ?dup
54	(emit) ;s @local0 col: >l lp-
3837	+ ;s @ <> ?branch @local1
4	;s @local1 ! lp+ ;s @local3
45	>l lp- @local1 field: @ col:
5	and ?branch ;s ;s 0= ?branch
656	drop branch lit (+loop) 2dup i
1	2@ 2* cells col: swap >r
45	?branch drop branch (loop) unloop lp+
1882	branch >l lp- @local1 ?branch @local1
64	?branch nip nip execute col: >l
144	branch over 0<> ?branch faligned nip
248	! ;s col: var: @ 1-
1	;s ;s col: user: @ ?branch
1	sfloats ;s branch col: sp@ user:
218	col: r> /does-handler + col: col:
54	col: lit defer: (emit) ;s @local0
90	col: >l >l @local0 field: @
122	;s ;s branch dup ?branch drop
13	! execute col: col: r> user:
28	! ;s code-address! ;s >r rot
142	col: lit defer: (emit) ;s @local1
31	drop @local0 lp+2 ;s lit >
59	;s lit col: 1+ con: *
402	r@ <> ?branch rdrop ;s >r
285	@ execute col: col: user: @
2333	and ?branch negate ;s ;s ;s
388	dup @ cells + ;s @
2420	?dup ?branch ;s branch lit user:
1	user: ! user: ! user: col:
30	lp- @local1 field: @ @local2 @local3
726	;s ?branch @local0 @local1 col: >l
196	;s lit col: r> /does-handler +
124	;s var: ! var: user: !
847	- col: dup negate user: +!
568	and ;s var: @ col: >r
2	var: @ col: >l lp- @local1
25	branch lp+ ;s @local0 field: !
15	+ >r ;s @local1 field: @local1
2546	aligned ;s con: - dup @
60	invert and ;s col: user: @
124	;s var: @ user: ! dup
772	field: @ @local1 col: >l lp-
29	c! ;s ;s col: 2drop col:
5	field: @ 0<> ?branch @local1 @local1
1	execute col: col: >l >l >l
15	@ @local1 lit + ! lit
11	?branch nip nip execute col: >r
4078	?branch drop 2drop lit (+loop) 2dup
15	lp+2 ;s lp+ ;s cr col:
35	r@ cmove var: r> ;s ;s
4747	;s col: dup col: col: con:
152	lp+ ;s col: lit defer: (emit)
498	lit col: >r col: col: col:
375	?branch toupper lit - dup lit
285	@ (f83find) ;s ;s var: @
6	- con: / ;s lit col:
4	;s branch col: col: user: @
5	@local0 @local1 lit col: >l >l
4	@local0 @local1 col: >l >l col:
29	;s @local0 col: col: col: user:
1	(loop) unloop ;s ;s branch ;s
1	;s dup ?branch 0> ?branch swap
17	;s ! ;s ;s r> drop
568	?dup ;s ?branch dup @ 0<
16872	col: col: user: @ ;s +!
15	var: @local1 field: ! var: @local1
2	! dup ?branch drop user: @
1356	?branch drop lit col: drop var:
199	drop 2dup 2>r col: col: user:
26662	@local1 col: >l lp- @local1 cell+
31	;s swap col: col: user: @
2048	tuck dabs col: col: col: col:
2002	field: @ ;s lp+ branch >l
2	nip execute col: lit >code-address ;s
22	col: var: @ ?branch var: @
1	user: ! lit + dup user:
61	col: >l lp- lit @local1 >l
15	cells + ;s ! ;s ;s
13	user: @ >r user: @ user:
142	con: col: >l lp- col: col:
4	;s @local3 @local1 field: col: >l
1	execute does: col: r> dup cell+
28	;s ! ;s code-address! ;s >r
13	>r user: @ user: @ =
36	+ >r ;s @local1 @local0 field:
57	;s ;s 0= ?branch ;s col:
26	var: @ and ?dup ?branch col:
7	lit /string col: over c@ lit
203	nip execute col: col: col: defer:
29	(emit) ;s @local1 does: @ +
7	;s ! ;s ;s dup field:
150	rot move drop r> ;s r@
653	swap ! ;s ;s ;s ;s
726	+! ;s @local0 >l lp- @local1
6	?branch @local1 col: >l lp- @local1
772	lit col: >l >l >l >l
29	?branch @local0 1+ @local1 col: field:
15	! @local1 col: >l lp- con:
694	user: @ ;s user: ! drop
1	;s rp@ user: ! fp@ user:
15	! @local0 field: lp+ ;s var:
125	@ col: faligned dup col: user:
135	user: @ col: var: var: !
26	unloop drop ;s ;s ;s var:
16	rdrop ;s col: r> dup cell+
634	@local3 col: >l lp- @local1 2@
892	@local2 @local1 col: >l >l @local0
1356	;s ;s dup ?branch drop lit
1	nip execute cell+ ;s branch col:
884	(f83find) ;s ;s dup ?branch nip
1	;s defer: noop var: @ lit
29	execute col: >l >l @local0 does:
6	! ;s drop branch ;s (loop)
26	@ and ?dup ?branch col: col:
17	r> drop col: con: @ col:
4	i col: cells var: @ +
29	?branch lit col: col: col: col:
6	;s defer: (type) ;s ;s ;s
276	! branch ;s col: user: @
2048	lit pick ! ! ;s lit
18	pick col: lit over 0<> ?branch
7	;s ! ;s code-address! ;s lit
114	! ;s ;s defer: noop ;s
35	>r ?branch rdrop ;s swap 2dup
100	! ;s lit col: >r defer:
191	+ faligned over lit + =
124	;s var: ! ;s col: var:
2586	lit (?do) i' i - lit
16	- swap lit col: 1+ con:
78	?branch faligned nip ;s user: !
772	?branch 2drop lp+!# ;s lp+2 ;s
29	;s ;s @local1 does: @ +
19187	cell+ @local1 @ lp+ ;s dup
31	lp+ ;s ;s branch col: sp@
2046	+ (loop) dup lit pick col:
1105	dup @ 0< ?branch @ over
7	?branch r> cell+ cell+ (loop) unloop
982	lp- @local1 does: @ + @
6	min dup lit (?do) unloop drop
726	@ ;s +! ;s @local0 >l
3	does-handler! ;s branch con: defer: col:
2048	pick col: dup @ lit pick
52	col: 2dup u<> ?branch drop ;s
2407	branch col: user: @ ?branch col:
29	;s ! ;s @local3 col: col:
2046	(loop) dup lit pick col: dup
152	and col: col: r> r> dup
1093	! ;s ;s ;s ;s branch
1	?branch 0> ?branch swap col: user:
3642	(hashfind) ;s ;s dup ?branch nip
431	;s branch ;s ;s ;s branch
1	2@ nip var: 2! ;s defer:
7935	@ > ?branch fp@ user: @
5	;s over r> tuck - dup
58	;s ! ;s con: col: col:
16	swap ! ;s ;s drop con:
647	+! lit over = ?branch branch
316	@ >r user: col: con: swap
12	2dup or col: dup ?branch r>
7	defer: col: 2dup lit col: >r
4	over min /string rot dup con:
1	and ?branch nip nip execute dfloats
152	rdrop ;s ;s con: = ?branch
1	col: var: ! ;s ;s branch
194	cell+ dup user: ! swap !
24	r> user: ! rdrop rdrop rdrop
54	con: = ?branch @local3 col: >l
890	;s +! ;s ! ;s lp+
1	nip execute col: var: @ dup
3466	;s ;s dup ?branch 0> ?branch
2546	- ;s r> over - does:
173	c! ;s (loop) unloop ;s lit
135	;s user: ! user: ! noop
4	;s drop branch ;s ;s ;s
44	con: = ?branch col: col: col:
360	swap @ swap branch over 0<>
4366	lit r@ lit and ?branch r>
44	nip lp+ ;s col: >l lp-
2	;s lp+ ;s col: r@ defer:
35	@ ?branch con: min >r var:
276	var: @ ! branch ;s col:
4795	cells var: @ + @ (hashfind)
4586	+ (do) 2dup i 2@ over
2420	;s branch lit user: +! swap
12	user: ! col: ?dup ?branch ;s
4747	+! ;s col: dup col: col:
12	user: ! ;s ?branch ;s r>
50	var: over r> + dup >r
108	0= ?branch lp+2 ;s lp+ branch
38	! lp+ ;s @local1 col: field:
1	and ?branch nip nip execute f*
5	drop defer: col: 2dup lit col:
2	?dup ?branch ;s over lit (?do)
9	! ;s col: var: @ ?branch
14	col: col: user: @ ?branch defer:
729	col: 0= ;s ?branch @local1 col:
29	! ;s var: @ col: col:
4795	>r 2dup col: con: (hashkey1) ;s
17	;s - dup ?branch drop r>
35	allocate col: col: r> r> dup
124	user: ! col: var: ! ;s
283	@ lit pick ! ! branch
78	dup con: ! col: lit over
694	;s user: @ ;s user: !
174	@ ;s @local3 col: >l lp-
58	;s lp+2 ;s @local1 does: @
29	@local0 field: lp+ ;s ;s branch
1	;s -rot >r var: r@ cmove
16	execute col: lit lit col: >r
114	;s defer: noop ;s ;s branch
4751	col: col: lit /mod rot +
108	con: ;s lit col: col: col:
12843	con: col: col: user: @ ;s
1	?branch 2drop col: col: user: @
12	sp@ user: @ swap - con:
6	2@ drop over field: @ 2*
64	;s ?branch @local0 1+ swap lp+
79	?branch lp+ ;s @local1 col: field:
9	cell+ dup faligned <> ?branch col:
18	drop r> col: col: col: col:
16	con: - swap lit col: 1+
23	2dup lit col: >r dup ?branch
286	branch drop ;s ;s col: r>
1	lit (?do) unloop 2drop drop con:
2534	(type) ;s col: lit does: swap
5242	?branch col: dup field: @ field:
45	;s - col: col: col: user:
5	1- + c@ lit <> ?branch
1	(?do) i col: cells var: @
1999	;s count defer: (type) ;s @local1
454	?branch @local3 = ?branch drop con:
15	con: lit (?do) var: @local1 field:
2	dup defer: col: cell+ dup @
16	;s swap con: - swap lit
33	lit col: >r dup ?branch over
50	cmove 2dup var: r@ + swap
369	swap user: @ um* drop rot
7	;s +! ;s 2! ;s col:
2	lp+ ;s col: r@ defer: col:
14	@local0 @local1 field: col: >l >l
88	;s count defer: (type) ;s @local3
1664	col: cells + ;s @ var:
15	@local1 field: ! var: @local1 field:
124	+ ;s ! ;s col: var:
1	@ con: cells col: lit fill
78	col: dup con: ! col: lit
13	2! 2* cells + 2! ;s
68	@ ;s over char+ col: col:
12	?branch 2drop con: lp+2 ;s ?branch
174	lp- @local3 col: >l lp- @local1
2533	;s 0= ?branch-lp+!# >l lp- @local1
44	var: @ ?branch con: branch ;s
2	2drop lp+2 ;s lp+ ;s @local1
1210	?branch @local3 execute col: >l lp-
3716	;s rot lit over < ?branch
5	0= ?branch lp+ ;s dup 0=
4	user: @ ?dup ;s ?branch ;s
2	drop ;s ;s ;s cell+ cell+
3	lit (?do) col: dup col: dup
6	@ ;s lit floats col: col:
197	;s ?branch 2rdrop branch ;s branch
203	execute col: col: col: defer: defer:
4751	c@ ;s ;s over c@ or
384	col: user: @ lit = ?branch
84	?branch nip nip execute col: dup
41	@ ;s +! ;s 2! ;s
2019	;s rot col: 0< ?branch ;s
15	field: ! lp+ ;s >l lp-
2588	?branch @local# @local1 col: >l >l
1	;s ! ;s drop ;s user:
5	lit var: +! var: @ con:
48	(loop) unloop ;s ;s col: col:
50	2@ dup >r var: swap cmove
6	r> -rot move ;s @local0 field:
561	dup col: col: user: @ ;s
61	lp- lit @local1 >l >l @local1
11	?branch nip nip execute dup ;s
1768	drop con: ?branch 2dup con: col:
45	2dup u< ?branch = ;s 0=
152	con: <> swap con: <> and
1	;s ;s cr ;s ;s branch
1	;s drop + >r ;s con:
1	0<> ?branch col: col: r> r>
2	?branch 2drop con: ;s ?branch 2r>
1	?branch con: cells allocate col: ?dup
12	?branch ;s ;s r> user: !
111	nip ;s dup ?branch 0> ?branch
111	0= ?branch nip ;s dup ?branch
8	>l >l lp- @local3 >l lp-
945	+ ;s ! (loop) var: @local1
1	dup ?branch execute col: lit col:
1	>r over >r lit col: >r
4751	con: - ;s con: / col:
36	>r 2@ 2over compare 0= ?branch
5372	lit and + faligned ;s r@
2766	@ dup var: = ?branch drop
4	>l >l @local0 @local1 @local2 @local3
1	execute cell+ ;s branch col: sp@
1	;s dup 0= ?branch 2drop 2dup
13	>r ;s user: ! lit user:
50	over r> + dup >r con:
36	>r var: r@ cmove var: r>
25	;s >r ?branch rdrop ;s tuck
45	con: var: col: con: swap !
58	@local1 col: >l >l >l lp-
132	;s defer: col: noop user: @
6	+ @ ;s ?branch @local1 col:
561	var: @ @ over ! var:
561	;s @ ;s user: ! lit
2534	drop ;s defer: (type) ;s col:
15	var: con: cells cmove @local1 var:
210	+ ;s ! (loop) lit @local1
1	(type) branch col: lit does: swap
77	nip execute col: col: defer: col:
135	var: var: ! ;s lit user:
9	;s @ ;s cell+ dup faligned
2048	lit pick col: dup @ lit
561	@ ;s swap dup col: col:
216	@ ;s col: cells + ;s
21	dup col: r> dup cell+ >r
16	lit col: >r >r lit col:
12	dup ?branch r> r> user: !
124	col: var: @ ;s does: col:
15	dup ?branch dup r> - ?branch
4751	col: dup col: col: con: dup
1	con: open-file col: ?dup ?branch ;s
196	+! ;s ! ;s ;s lit
1	2drop 2dup lit col: >r dup
27	?branch rdrop ;s ;s over col:
131	faligned nip ;s col: user: @
270	;s ;s lp+ ;s lp+ branch
15	lp+2 ;s lit > ?branch lp+
191	;s ! ;s ;s col: dup
5	+! ;s f! ;s ;s ;s
1117	! lit col: col: col: user:
4751	;s over c@ or swap c!
1	drop + >r ;s var: @
9	;s field: col: con: swap !
15	var: @ lit (?do) lit @local1
2	@local1 lp+ ;s ;s branch col:
561	+! ;s c! ;s col: col:
561	aligned swap (?do) unloop ;s col:
45	;s @local1 field: @ @local1 lit
29	branch >l >l @local1 ?branch @local0
9	col: col: >l lp- lit @local1
191	move lit lit ! ;s lit
20	@ dup var: <= ?branch con:
52	@ ?branch over col: lit over
22	;s drop branch ;s ;s branch
594	col: cell+ count lit and ;s
36	;s var: laddr# col: >l >l
3259	;s +! ;s ! ;s 0=
2	! defer: drop ;s drop col:
4747	@ ;s +! ;s col: dup
402	- dup r> ?branch 1+ user:
12	r> r> user: ! r> user:
6	;s 0<> ?branch lp+ ;s @local1
186	>l lp- @local1 >l lp- @local1
31	@ ;s @ ;s swap col:
6	col: dup >code-address lit = ?branch
384	count col: user: @ lit =
1649	= ?branch @local1 branch i col:
6	field: @ 2* cells + 2@
124	@ ;s var: ! var: user:
403	;s user: @ ;s user: @
174	var: <> @local3 col: >l lp-
730	;s lp+2 ;s lp+ branch >l
265	;s col: >l lp- @local1 does:
2546	;s con: - dup ! ;s
9	cells con: ;s col: col: defer:
5	?branch 2drop user: @ ?branch col:
1	execute lshift ;s branch col: sp@
75	1- >r r@ col: dup 1+
322	swap c! ;s ;s col: col:
4632	/string branch dup ?branch over c@
11	@local1 con: = @local1 con: =
10	nip execute does: col: var: dup
6	rdrop ;s 0> ?branch col: col:
568	count lit and ;s var: @
196	defer: (type) ;s col: lit defer:
4	>r ;s lp+2 ;s lp+ ;s
5	con: ;s dup ?branch drop defer:
12	col: ?dup ?branch ;s col: ?dup
13	nip 1- user: ! lit col:
3716	>r um/mod r> ;s rot lit
5	dup 0= ?branch execute var: col:
2546	;s col: col: user: @ lit
1	= ?branch con: @local1 col: >l
1	?branch nip nip execute fasin ;s
2	?branch 2dup * allocate col: ?dup
4305	;s dup ?branch nip nip unloop
21	lit cells over = ?branch dup
7	field: @ col: col: col: user:
17	;s ;s r> drop col: con:
1	/ ;s var: 2! col: var:
100	nip execute col: col: col: lit
403	rdrop ;s >r over - dup
302	?branch r> user: ! ;s user:
120	?branch lp+2 ;s lp+ branch >l
694	2drop lp+!# ;s lp+2 ;s lp+
29	dup ?branch 2drop lp+!# ;s @local1
360	swap c@ lit and 0= ?branch
2048	>r tuck dabs col: col: col:
5	0= ?branch 2drop con: ;s dup
58	var: @local1 col: >l >l >l
8	@local0 lp+2 ;s lit > col:
205	con: lp+!# ;s ?branch @local0 branch
1659	lp- @local1 ?branch @local1 @local3 =
822	! ;s ;s branch @ dup
13	var: 2! 2* cells + 2!
3	;s cr @local1 lit col: >l
2	! ;s branch @ dup @
2	2drop r> var: ! ;s branch
244	code-address! ;s con: col: lit lit
26	>l >l lp- con: lit (do)
726	lp+!# ;s ?branch @local0 @local1 col:
1	execute floats ;s branch col: sp@
1105	lit col: lit pick @ ?dup
2997	@ (f83find) ;s ;s dup ?branch
244	;s code-address! ;s con: col: lit
152	;s lp+ ;s col: lit defer:
26	(do) @local2 i col: cells +
6	dup lit (?do) unloop drop ;s
12	col: sp@ user: @ swap -
2	execute col: does: 2@ ;s col:
3	! ;s drop ;s ;s col:
14	;s nip ?branch var: 2@ lit
255	user: @ ?branch col: r> dup
6208	col: r> r> dup count +
23	+ ;s ! lp+ ;s @local1
15	@local1 field: ! lp+ ;s >l
29	+! ;s ! ;s var: col:
16	;s branch drop ;s ;s col:
4751	col: lit /mod rot + swap
29	@local1 does: @ + 2@ ;s
726	drop lp+2 ;s lit cells col:
1	nip execute drop ;s branch col:
1	dup ?branch r> drop r> col:
133	+ ;s @ var: ! ;s
22	?branch var: @ col: dup con:
14	?branch rdrop ;s nip ?branch var:
117	2dup col: col: user: @ >r
58	@ + @ ;s var: @local1
1	dup @ ?branch drop ;s ;s
5	var: @ over ! lit var:
45	;s @ ;s - col: col:
44	;s ;s con: ! ;s ;s
402	r> ?branch 1+ user: +! ;s
9	and ;s ;s ;s col: r>
1170	;s 2dup d0= ?branch col: user:
1	>r ;s con: col: >l lp-
14	;s ;s ;s dup col: col:
283	+ var: @ ?branch dup @
25	2drop col: lit does: swap lit
5	c! 1+ col: col: col: user:
197	con: @ col: col: user: @
195	dup ?branch execute col: user: @
169	?branch nip branch dup @ dup
45	?branch = ;s 0= ?branch ;s
52	drop ;s ;s col: col: col:
3	lit branch (+loop) i col: cells
1091	@ lit r@ lit and ?branch
5	cells - var: over cell+ !
65	user: @ >r user: @ >r
8475	;s user: @ ;s 2dup >r
44	(emit) ;s cr col: col: r>
45	col: >l lp- con: lit (do)
86	execute col: >l lp- @local1 col:
29	! ;s @local0 col: col: col:
1	and ?branch nip nip execute fasin
31	rdrop ;s ;s ;s col: dup
30	;s lp+2 ;s lp+ ;s @local1
15	;s >l lp- @local1 var: @
2586	lit min 2dup defer: (type) (+loop)
255	! col: var: dup @ cells
5732	count lit and + faligned ;s
194	branch drop ;s ;s ;s cell+
17	lit - dup lit u<= ?branch
197	col: con: @ col: col: user:
1013	execute col: >l lp- col: col:
30	lp+!# ;s lp+2 ;s lp+ ;s
35	min >r var: r@ cmove var:
2	code-address! ;s lit col: lit lit
865	(hashfind) ;s ;s dup ?branch drop
2	* allocate col: ?dup ?branch ;s
1107	lit pick @ ?dup 0= ?branch
5372	dup c@ >r col: count lit
15	cells move lp+ ;s @local1 col:
1	execute col: user: @ col: faligned
4	field: dup var: ! defer: col:
17	- dup ?branch drop r> col:
11	?branch defer: noop col: r> dup
50	>r 2@ dup >r var: swap
694	execute col: user: @ ?branch defer:
247	lp+2 ;s col: col: r> r>
245	?branch 2drop lp+2 ;s col: col:
1657	;s ?branch drop con: lp+!# ;s
23	col: var: @ ?branch col: con:
570	var: @ field: @ field: @
45	lp- con: lit (do) @local1 i
6	@ 0<> ?branch lp+ ;s @local1
3	execute col: col: does: 2@ ;s
403	min /string over swap r> col:
125	noop ;s ;s branch col: sp@
1746	;s dup ?branch lit and ?branch
12	user: ! >r ;s drop col:
8	@local3 = ?branch @local# @local1 !
195	?branch con: lp+2 ;s lp+ ;s
2	?branch 2drop close-file col: ?dup ?branch
3	+! ;s ;s branch col: sp@
1683	?branch 0> ?branch nip nip execute
174	+ @ ;s < or and
114	= ?branch i col: col: dup
2420	lit user: +! swap user: !
2407	user: ! ;s dup ?branch 2drop
1	;s branch col: con: @ col:
124	rdrop ;s var: ! ;s con:
59	;s ;s lit col: 1+ con:
74	execute col: dup col: dup con:
369	rot user: @ um* d+ r>
29	cells + ;s @ @local1 @local0
1105	>r var: lit cells lit col:
1105	@ 0< ?branch @ over cell+
150	move drop r> ;s r@ col:
692	;s @ ;s dup aligned swap
12	con: lp+2 ;s ?branch lp+2 ;s
236	;s ;s lp+ ;s lp+ ;s
1833	@ + @ ;s col: col:
67	;s @local1 i col: cells +
2	execute col: var: @ 1- dup
26	and ?dup ?branch col: col: r>
13	user: @ >r >r ;s user:
370	;s col: dup 0= lit and
72	;s col: over >r rot over
904	>l lp- @local1 con: = ?branch
3745	+ aligned ;s con: - lit
360	faligned ;s swap c@ lit and
2	;s ?branch 2r> defer: col: 2dup
2	nip execute code-address! ;s branch col:
283	var: @ col: lit + dup
1746	?branch lit and ?branch nip nip
28	swap invert and ;s dup col:
83	;s branch ;s ;s branch col:
23	+ ;s ! lp+ ;s lp+
890	@ ;s @local1 col: col: col:
6	field: @ 0<> ?branch lp+ ;s
15	lp+ ;s var: ! @local1 var:
191	xor swap c! ;s col: lit
6	user: @ ;s +! ;s f!
17	u<= ?branch dup user: @ u>=
49	swap 2dup r> -rot move ;s
370	col: defer: defer: col: col: col:
114	var: = ?branch i col: col:
3904	+ ;s @ @local1 i col:
15	?dup 0= ?branch var: @ col:
4	2dup >r >r user: @ over
52	swap ! ;s con: @ col:
148	;s lp+ ;s lp+ ;s lp+
1664	@local3 i col: cells + ;s
1	nip execute col: >l >l does:
16	?branch rdrop ;s ;s col: >r
760	;s ;s col: col: user: @
1	swap ! ;s rp@ user: !
4586	col: drop var: dup @ 1-
36	rdrop ;s 0> ?branch col: r>
14	! ;s ;s var: @ col:
467	;s ;s ;s col: col: col:
4795	xor cells var: @ + @
17	lit u<= ?branch dup user: @
369	swap >r swap user: @ um*
1	cells / ;s var: 2! col:
45	cr @local1 field: col: >l lp-
8	>l @local1 field: @ col: >l
7	;s ;s var: field: @ col:
44	@local1 2@ drop lp+ ;s col:
1	nip execute does: col: r> dup
5	?branch drop lit lit lit ;s
17	u< ?branch @ branch 2dup u<
5	var: @ >r var: col: con:
13	@ user: @ = ?branch r@
2871	does: @ + @ ;s col:
29	?branch 2drop lp+!# ;s @local1 does:
6	swap ! ;s ;s @local2 @local3
1	lp+ ;s @local1 lit col: >l
4795	;s r> xor cells var: @
16	?branch col: var: @ dup lit
34	0= ?branch r> cell+ cell+ (loop)
6	defer: (type) ;s defer: col: col:
2546	max lit (?do) unloop drop ;s
15	+! ;s ;s >l lp- @local1
13266	col: dup field: @ field: @
49	;s swap 2dup r> -rot move
10	?branch ;s var: swap ;s 2dup
58	drop ;s ;s ;s ;s @local1
880	>l >l @local1 col: >l lp-
376	@local1 ?branch @local1 @local3 execute col:
1	+! ;s ;s >l lp- @local2
191	var: count col: col: col: user:
12868	@ ;s @ ;s con: col:
113	lit defer: (emit) ;s @local1 col:
656	?branch drop branch lit (+loop) 2dup
3942	>r swap >r ;s count defer:
4	lit /string branch over >r lit
41	user: @ ;s +! ;s 2!
2546	;s ;s 2dup d0= ?branch ;s
1464	?branch @local1 @local3 = ?branch @local1
60	@ ;s ! drop ;s col:
57	;s 0= ?branch ;s col: user:
27	;s ;s col: con: @ col:
255	1+ dup con: > col: col:
16	* 1- >r r@ pick r@
72	;s lp+ ;s @local1 @ col:
2	rdrop ;s ;s lit lit col:
4795	@ field: @ execute col: lit
4734	(+loop) 2dup i 2@ over <>
4078	drop 2drop lit (+loop) 2dup i
8471	>r user: @ /string (parse-white) 2dup
35	?branch nip nip execute col: var:
45	;s @ ;s ;s con: var:
30	@local3 col: >l >l >l lp-
6	defer: col: cr col: col: var:
107	?branch ;s ;s ;s 0= ?branch
542	?branch 2drop 2drop ;s var: @
88	col: col: defer: defer: col: col:
302	2drop rdrop r> ?branch r> user:
4751	- ;s con: / col: col:
3716	over < ?branch lit + col:
11256	@local0 >l lp- @local1 col: >l
10	@local0 field: col: con: swap !
360	col: cell+ dup col: count lit
6753	col: cells + ;s ! (loop)
29	defer: (type) col: lit defer: (emit)
35	lp- @local1 >l lp- @local1 ?branch
3716	rot lit over < ?branch lit
50	;s @local1 ! lp+ ;s lp+
1	field: ! @local1 lp+2 ;s ;s
191	;s lit col: lit con: (do)
11	?branch nip nip execute does: col:
1662	>r @ col: col: col: col:
561	col: dup col: col: col: user:
2	lit col: >r >r user: @
375	@ lit = ?branch toupper lit
772	@ @local1 col: >l lp- col:
4	2! @local1 lp+ ;s >l lp-
3	execute col: col: >l lp- lit
15	;s dup ?branch dup r> -
4	?branch drop (parse-white) branch 2dup +
28	?branch rdrop ;s ;s ;s ;s
16	r> r> rot col: con: <>
8	?branch nip nip execute ! ;s
20	nip nip execute col: cells con:
370	min user: ! ;s col: dup
769	nip execute col: user: @ ?branch
1170	?branch col: user: @ lit max
1	?branch lp+2 ;s var: @ col:
4	drop + >r ;s lp+2 ;s
4	lp+2 ;s @local0 field: col: con:
15	?branch drop con: ;s ?branch 1-
7935	?branch fp@ user: @ > ?branch
6	@ ;s ?branch @local1 col: >l
1210	dup ?branch @local3 execute col: >l
5	lit and ?branch ;s ;s 0=
1	col: var: @ col: >l lp-
366	c! ;s (loop) unloop ;s ;s
68	move c! ;s col: col: col:
112	;s @local1 field: over does: @
454	dup ?branch @local3 = ?branch drop
11	nip nip execute dup ;s branch
20	dup @ swap var: ! ;s
108	@ ?branch con: ;s lit col:
112	2drop branch ;s branch col: sp@
2420	col: user: @ ;s con: user:
408	col: lit col: user: @ dup
3666	lit col: col: col: user: @
2408	user: ! ;s ?branch col: col:
407	nip execute does: @ col: user:
124	;s ;s user: ! col: var:
1105	xor cells >r var: lit cells
91	>r ?branch rdrop ;s ;s ;s
3039	?branch r> lit and ?branch ;s
16	col: var: @ > ?branch ;s
2880	var: @local1 field: i col: cells
6	r@ <> ?branch rdrop ;s dup
3466	;s ;s ;s dup ?branch 0>
308	r> ;s (loop) unloop lit branch
262	;s @local3 col: >l lp- @local1
1	@ swap - ;s col: col:
4	col: con: col: col: defer: col:
568	2dup 2dup r> col: dup field:
112	@local1 2@ drop lp+ ;s @local1
6	drop branch ;s ;s r> ;s
4078	2drop lit (+loop) 2dup i 2@
29	;s ! ;s lit var: +!
397	lit col: user: @ swap -
54	execute col: >l >l col: col:
4	swap ! ;s lp+2 ;s @local0
335	col: lit over = ?branch lit
16	;s ;s ;s r> r> rot
29	;s @local1 col: lit col: lit
1	@local1 lp+2 ;s ;s branch col:
1	col: con: swap ! ;s rp@
112	;s 0= ?branch @local3 col: >l
4	drop (parse-white) branch 2dup + r>
10	user: @ ?branch ! ;s ;s
152	;s @ ;s over - swap
6	- con: / ;s lit max
4	lit > ?branch lp+ ;s lp+
191	col: ?dup ?branch ;s ;s var:
4	0= ?branch var: @ over !
7935	> ?branch ;s defer: col: defer:
13	2dup 1+ var: 2! 2* cells
848	user: +! lit over = ?branch
772	lp+ ;s @local3 lit col: >l
15	>l lp- @local1 field: var: con:
4	@local1 field: @ ?branch @local1 field:
5	lit ;s over r@ u>= ?branch
1356	;s dup ?branch drop lit col:
5372	;s ;s dup ?branch col: cell+
1	var: ! var: ! col: lit
6	r> lit col: >r col: dup
5	@ dup var: <= ?branch drop
24	;s con: lit ! ;s ;s
4	;s drop branch ;s (loop) col:
1	nip nip execute f* ;s branch
2	compare 0= ?branch 2drop rdrop unloop
108	lp+2 ;s 0= ?branch lp+2 ;s
61	field: @ col: >l lp- lit
9	con: ;s col: col: defer: defer:
386	over = ?branch drop col: r>
1	?branch ;s -rot >r var: r@
4	or branch ;s ;s branch col:
4795	+ @ >r 2dup col: con:
403	;s >r over - dup r>
5	@local1 ?branch lp+2 ;s @local1 lit
1	r> var: ! ;s ;s ;s
1	?branch nip nip execute lshift ;s
26	(type) ;s col: cell+ count lit
68	char+ col: col: user: @ ;s
61	field: col: >l >l con: lit
2546	con: - dup @ tuck -
3745	;s con: - lit over +!
22	;s ;s r> ;s ;s branch
6	lit floats col: col: user: @
2	0= ?branch 2dup * allocate col:
17	var: + @ user: ! lit
46	lp+ ;s @local1 @local0 does: @
135	;s ;s lit lit ! lit
15	;s ?branch 1- i' i -
48	count defer: (type) ;s cr @local1
5	<= ?branch drop lit lit lit
27	;s ;s over col: lit over
316	con: swap ! ;s lit lit
1834	;s col: col: dup 0< ;s
124	! ;s con: lit ! ;s
135	@ user: @ col: var: var:
14	user: @ ;s @ ;s /does-handler
2420	?branch ;s branch lit user: +!
1779	var: col: con: swap ! ;s
12	col: ?dup ?branch ;s ;s ;s
4	count defer: (type) ;s cr col:
29	+! @ c! ;s ;s col:
15928	@local1 @ lp+ ;s dup ?branch
29	2! ;s var: col: col: col:
2	;s @ ;s col: lit >code-address
15	lp- @local1 var: @ col: >l
34	2over compare 0= ?branch r> cell+
9572	col: col: user: @ ;s user:
15	@local0 lp+2 ;s lit <> ?branch
3	@ col: >l lp- col: col:
3837	@ <> ?branch @local1 i col:
12	r> col: >r tuck dabs col:
29	@ ;s lp+ branch >l >l
191	lit con: (do) dup i -
135	lit lit ! lit col: user:
180	col: con: <> col: col: r>
78	con: ! col: lit over 0<>
6	;s r> lit col: >r col:
403	@ over min /string over swap
244	con: col: lit lit ! user:
14	0= ?branch nip nip r> rdrop
186	lit col: >l >l >l lp-
16	;s ;s col: drop >r drop
561	! var: @ ! branch ;s
822	@ ?branch col: dup @ dup
61	d+ r> ;s (loop) count col:
174	+ @ ;s @local3 col: >l
1	?branch nip nip execute * ;s
18	= ;s 0= ?branch ;s ;s
13	resize col: ?dup ?branch ;s swap
202	;s col: 0= ;s ?branch lp+2
2517	?branch ;s col: 2drop col: col:
7	;s ;s ;s col: var: @
61	(loop) count col: user: @ lit
8092	@ ;s +! ;s ! ;s
1	lp- @local2 @local1 field: ! @local3
124	col: col: user: @ ;s var:
26	count lit and ;s 2dup defer:
740	?dup ?branch ;s ;s col: dup
27	col: laddr# ;s >r user: @
112	;s 2drop branch ;s branch col:
13	r@ user: +! user: @ user:
771	?branch nip nip execute col: user:
376	lp- @local1 ?branch @local1 @local3 execute
15	user: @ u>= ?branch drop con:
2	pick + (loop) unloop drop branch
1	swap ! ;s col: col: var:
1	up! sp@ dup user: ! lit
1	var: ! col: lit lit col:
485	;s dup faligned swap (?do) con:
3933	cells + ;s @ col: >l
3	@local1 ?branch lp+2 ;s col: r@
27	;s over col: lit over 0<>
250	;s ! ;s col: col: var:
568	;s lit col: user: @ dup
285	var: @ ! branch ;s ;s
1768	con: ?branch 2dup con: col: dup
194	@ col: aligned dup col: user:
100	drop con: lp+2 ;s ?branch @local1
174	nip lp+ ;s does: @ +
1	con: @local1 col: >l >l @local0
1	dup r> ?branch user: +! ;s
2	var: ! defer: drop ;s drop
6	;s 0> ?branch col: col: col:
61	>r ;s @local0 field: @local1 field:
133	lp- @local1 ?branch @local1 @local# @local#
1	;s lp+ ;s var: @ lit
29	;s lit var: +! lp+!# ;s
150	;s r@ col: dup 1+ pick
1783	! ;s ;s ;s 2drop ;s
13	;s col: var: 2@ tuck 1+
13836	field: @ field: @ execute col:
152	(emit) ;s col: col: r> r>
14	;s ;s col: col: col: r>
210	(loop) lit @local1 i col: cells
7	! ;s ;s ;s ;s user:
17	dup lit u<= ?branch dup user:
3230	drop con: ?branch lit col: drop
1	move ;s drop var: 2@ nip
568	@ col: >r 2dup 2dup r>
11	execute col: 1+ >r col: r>
4	c! col: col: user: @ ;s
1	= ?branch @local1 con: col: >l
124	;s user: ! col: var: !
63	r> cell+ cell+ (loop) dup >r
73	branch dup ?branch execute col: user:
1	?dup ?branch ;s var: ! var:
58	;s var: @local1 col: >l >l
114	cr (loop) @local1 i col: cells
3716	?branch lit + col: col: col:
17	?branch @local1 field: @ var: =
4777	col: >l >l @local0 @local1 col:
191	;s col: lit lit ! ;s
6	0= ?branch nip ?branch 2dup >float
4305	dup ?branch nip nip unloop ;s
7	dnegate r> user: ! ;s user:
7935	min user: ! ;s dup ?branch
174	;s < or and ?branch @local2
196	count defer: (type) ;s col: lit
45	defer: (type) ;s cr @local1 field:
30	field: @ @local2 @local3 col: >l
2	;s ?branch ;s col: user: @
13	user: @ = ?branch r@ user:
45	;s cr @local1 field: col: >l
3843	(loop) @local0 i col: cells +
15	! var: @ @local1 lit +
27	rdrop ;s ;s over col: lit
26	drop ;s ;s ;s var: @
36	field: @ @local0 col: >l >l
5	@ 0<> ?branch @local1 @local1 field:
1	>l lp- @local2 @local1 field: !
1	dup ?branch 0> ?branch swap col:
1	@ dup 0> 0= ?branch ;s
17	+! ;s ! ;s ;s r>
150	drop r> ;s r@ col: dup
1	@ >r var: @ lit (?do)
27	fp@ >r col: laddr# ;s >r
108	con: lp+2 ;s 0= ?branch lp+2
1020	lp+2 ;s lp+ branch >l lp-
15	>l >l @local1 ?branch @local0 lp+2
50	dup >r var: swap cmove 2dup
29	lp+!# ;s @local1 does: @ +
6	/ ;s lit max var: @
247	col: ?branch r> does: 2@ ;s
3	nip nip execute col: col: does:
4	;s 0= ?branch ;s >body @
1662	r> dup cell+ >r @ col:
155	user: ! ;s col: var: @
360	lit and 0= ?branch ;s >body
27	= ;s 0= ?branch ;s col:
505	;s >r ?branch rdrop ;s var:
14	user: @ ;s +! ;s does-handler!
412	nip nip execute col: col: col:
11	>l lp- @local1 field: @ ?branch
1	branch dup ?branch rdrop ;s >r
1	;s float+ dup user: ! swap
8	(loop) col: dup col: dup con:
7	over c@ lit = ?branch 2drop
4795	r> xor cells var: @ +
5	! branch ;s ;s col: col:
1	user: @ ;s @ ;s r>
152	col: col: con: @ col: col:
540	(?do) con: col: col: col: user:
5	;s lp+2 ;s ;s branch col:
1	@local2 @local1 field: ! @local3 @local1
18	?branch ;s ;s ;s ;s branch
25	cell+ tuck ! cell+ tuck !
16	lit var: ! ;s ;s ;s
4	@local1 ! drop lp+!# ;s @local2
2588	@local# @local1 col: >l >l @local0
4	;s var: swap ;s col: user:
203	@ ;s lit col: col: col:
20	dup var: <= ?branch con: -
75	move drop r> ;s rdrop dup
142	;s lp+ ;s @local2 lit col:
102	>l lp- @local1 field: @ @local1
4	! drop lp+!# ;s @local3 @local1
4	@local1 ! drop lp+!# ;s @local3
729	0= ;s ?branch @local1 col: col:
28	+ swap invert and ;s dup
309	dup >r ?branch col: over c@
30	>l lp- @local1 field: @ @local2
3716	lit max col: >r lit r@
2	?dup ?branch ;s branch ;s ;s
20	2drop lp+!# ;s lp+2 ;s lp+2
9	nip execute col: lit col: cells
112	@local1 field: over does: @ +
30	lp- @local1 ?branch lp+!# ;s lp+2
50	@local1 @local0 field: col: >l >l
1105	lit fill ;s r> ;s tuck
1	con: cells allocate col: ?dup ?branch
255	?branch rdrop ;s var: ! col:
30	?branch nip nip execute over ;s
108	;s ;s con: = ?branch var:
540	;s c! ;s (loop) unloop ;s
4751	over c@ or swap c! ;s
8	and ?branch nip nip execute !
5	lit <> ?branch @local1 col: >l
1369	lp+ ;s lp+ branch >l lp-
5	;s ;s con: ! ;s (loop)
15	i' i - unloop ;s dup
111	?branch 0> ?branch col: user: @
1	sp@ dup user: ! lit +
6	defer: col: col: col: r> r>
4	>l col: does: 2@ ;s col:
14	aligned swap (?do) unloop ;s ;s
15	var: @ @local1 lit + !
36	user: +! ;s user: @ ?branch
124	;s ! ;s col: var: @
309	user: @ 0= ?branch user: @
4	@local1 lp+ ;s >l lp- @local2
18	col: >r >r user: @ lit
370	?branch ;s ;s col: dup col:
1	?branch nip nip execute dfloats ;s
2	@ dup @ ?branch dup defer:
5	?branch nip nip execute col: con:
27	r> swap >r fp@ >r col:
58	@ ;s var: @local1 col: >l
151	field: @ @local1 lit col: >l
56	swap ! ;s branch ;s ;s
2	@local1 ?branch lp+2 ;s col: col:
7	lit = ?branch 2drop rdrop user:
322	?branch branch drop ;s ;s col:
8475	- 1+ r> min user: !
90	>l @local0 field: @ @local1 col:
4	lp+!# ;s @local2 field: @ @local1
1	and ?branch nip nip execute *
9	?branch ;s ;s ;s ;s ;s
19	;s var: @ ?branch lp+ ;s
16	var: @ > ?branch ;s ;s
11	branch ;s ;s r> ;s ;s
9	;s drop con: ;s ;s ;s
88	lp+ ;s lp+ ;s @local3 does:
16	defer: (type) ;s @local1 lit col:
13	@ >r col: swap >r dup
5732	col: count lit and + faligned
4281	lit and 0= ?branch lit r@
1	drop + >r ;s col: col:
60	drop ;s col: col: user: @
937	;s dup ?branch drop branch lit
18	nip execute var: ;s branch col:
1	lit + dup user: ! user:
216	branch over 0<> ?branch over col:
22	var: @ ?branch var: @ col:
7935	col: sp@ user: @ > ?branch
1	drop var: 2@ nip var: 2!
1	var: 2@ col: col: col: col:
3716	r> ;s rot lit over <
1120	col: >l >l >l lp- @local1
64	nip nip execute col: >l >l
358	u> ?branch dup user: @ u>=
976	lit col: user: @ dup 0=
72	field: col: >l >l @local0 col:
62	swap col: col: user: @ ;s
191	@ execute col: drop col: col:
1	;s f! ;s col: r> /does-handler
18	>r >r user: @ lit pick
7	= dup >r ?branch lit /string
29	does: @ + @ ;s ?branch
75	?branch lp+2 ;s lp+ ;s @local1
182	col: >l >l >l lp- @local3
1	;s ;s ;s swap col: col:
17	- dup lit u<= ?branch dup
316	dup ?branch ;s ;s dup ?branch
152	;s @ ;s ;s var: @
1	?branch lp+!# ;s lp+ ;s @local1
15	@local1 field: var: con: cells cmove
454	@local3 = ?branch drop con: lp+2
4	drop lp+!# ;s @local2 field: @
5	execute var: col: >l >l @local0
2022	;s +! ;s c! ;s (loop)
370	;s ;s col: defer: col: defer:
13	2@ tuck 1+ 2* cells resize
7	@local1 field: @ ?branch @local1 @local1
4	char+ c@ ;s col: user: @
4	?branch ;s >body @ col: col:
3	@ ;s branch col: sp@ user:
2	0= ?branch 2drop rdrop unloop con:
403	col: >r defer: col: col: user:
308	(loop) unloop lit branch ;s dup
174	does: @ + @ ;s @local1
349	;s count defer: (type) ;s cr
498	2dup d0= ?branch ;s col: 2drop
15	col: >l lp- @local1 field: var:
45	swap ! ;s @local1 field: @
13	col: col: r> user: @ >r
36	rdrop drop r> cell+ cell+ (loop)
218	r> /does-handler + col: col: user:
2927	and ?branch ;s ;s ;s dup
88	;s lp+ ;s @local3 does: @
1512	defer: (type) ;s @local1 does: @
5	>r ;s @local1 lit col: >l
2	;s ?branch var: @ field: @
15	var: +! var: @local1 field: !
196	;s ;s ;s ;s branch dup
370	defer: col: col: col: col: user:
671	;s ;s ;s ;s branch col:
174	does: @ + @ ;s @local3
174	@local2 var: <> @local3 col: >l
1210	lp+ ;s dup ?branch @local3 execute
931	lp+!# ;s ?branch @local1 @local0 col:
2048	col: dup @ lit pick !
5	lit cells - var: over cell+
28	;s >r rot r@ col: 1-
320	swap ! ;s lit var: !
3540682	NEXTS