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 @loc