147	d+
6249	(parse-white)
12525	nip
10995	2drop
303699	swap
574	(emit)
648	i'
4	(next)
8429	(hashkey1)
6786	(+loop)
700	2swap
12503	i
12	2*
6071	(?do)
7069	1+
179926	dup
1012	um/mod
1	mod
1122	(f83find)
51	cmove
11322	?dup
14769	c!
3842	tuck
1	up!
42108	over
331449	var:
13774	(type)
10	read-file
1731	fill
91	*
13468	(loop)
4872	1-
306145	?branch
779454	col:
933	(s+loop)
3	u<=
28	<=
1022	code-address!
4056	0<
6663	or
59	2rdrop
97254	rot
6471	faligned
29792	count
25201	execute
164367	+
5115	cr
12	u<>
230638	0=
10499	unloop
14	rp@
141867	con:
3759	2!
802863	;s
47308	<>
2	compare
27	invert
80729	lshift
4428	(do)
319	>=
14627	xor
2808	0>
176	u>=
1718	negate
7163	min
113600	and
1975	move
95150	cells
20886	-
7	does-handler!
23452	does:
148	toupper
35991	2dup
62505	r>
101645	c@
66849	>r
313305	lit
46062	!
1	(bye)
506	<
506	dabs
1659	max
5	close-file
12	dnegate
9813	pick
294	um*
177	u<
1806	read-line
16	open-file
34209	defer:
5732	/
42743	branch
1	(for)
87	within
81967	=
16	-rot
9	allocate
14070	aligned
9086	/string
28631	r@
6699	(hashfind)
40	/does-handler
1022	>code-address
1145	u>
59	2>r
13	laddr#
11544	>
15441	2@
5783	fp@
100126	user:
5987	sp@
4356	rdrop
506	d0=
33	does-code!
8	>body
86456	/mod
5	resize
1298	0<>
58669	+!
101	char+
25387	field:
24124	cell+
467	noop
20468	drop
568784	@
281	(loop) i
394	faligned over
291	+! var:
23	/string rot
16	con: open-file
287	- ?dup
1730	rot !
306	con: branch
121	<> and
142	0<> ?branch
6	+! user:
1746	+ dup
1	con: 0=
28	>= col:
19	drop >r
12318	and ?branch
4099	rdrop ;s
718	(+loop) i
799	count col:
5312	@ lit
6699	r> xor
33	does-code! ;s
11666	dup field:
1	(do) lit
1584	aligned ;s
3	u<= ?branch
4938	c@ >r
280	drop r>
6740	swap c!
637	drop swap
6699	@ (hashfind)
1	execute field:
82	over char+
426	@ swap
125	0> 0=
11074	dup count
1806	read-line col:
114	?branch ?dup
1	execute 0<
243	col: ;s
1730	tuck cell+
1730	drop r@
5730	/mod rot
3203	and col:
5	nip r>
8925	;s user:
1	noop var:
1771	lit !
25	1- var:
4	execute 0=
3	execute @
5769	?branch fp@
1	2@ 2*
7149	;s defer:
1	open-file col:
5877	swap cell+
57	r@ pick
59	2rdrop branch
180	c! col:
153302	;s ;s
647	var: c!
1	0= >r
7	cell+ i
87	* 1-
10	r> cell+
2818	c@ r@
6	dup allocate
1058	cr ;s
5	> col:
533	drop branch
84	! cell+
52	?branch =
1005	tuck c@
86456	rot +
105	r> move
32864	;s branch
6349	>r >r
5	0<> lit
287	rot -
1	0= r>
2	i 1+
19	char+ c@
2160	(+loop) unloop
1749	>r drop
6708	cells var:
87847	?branch lit
7	cr branch
1481	over +!
941	branch var:
2	execute >body
204	sp@ cell+
2688	?branch @
4489	@ ?branch
8	(loop) lit
223	?branch 1+
9	;s nip
1	nip var:
519	r> swap
5	1- +
130	col: nip
39	col: =
1616	rot cell+
1974	dup i
1	unloop var:
87	1- >r
11142	r> r>
115	rot over
3775	?branch cell+
197	drop lit
1331	>r r@
426	?branch 1-
9217	;s count
5314	2drop ;s
10908	lit +
232	branch rdrop
1	2* ;s
15	r@ +
2749	branch dup
464	or col:
87	1+ within
142	over 0<>
424	1- r>
276	lit -
5202	col: @
89576	@ ;s
708	+ rdrop
287	2@ 0=
574	var: (?do)
85584	and 0=
13428	@ field:
11742	swap >r
1007	! var:
4828	;s cr
10	swap read-file
648	i' i
63	branch over
506	< ?branch
3	or >r
204	dup 1+
121	<> swap
59	2dup 2>r
287	cr cr
574	0<> and
1	(next) unloop
6100	swap r>
3025	?dup ;s
26024	dup ?branch
3136	con: swap
2048	+ (loop)
140	- swap
3659	(loop) con:
2183	2! ;s
1294	var: count
1074	;s rot
653	(do) >r
5	over ;s
11565	;s !
13	laddr# ;s
5936	r@ execute
359	;s rdrop
1953	swap user:
1408	(?do) i
11539	> ?branch
3	rot 2dup
1	! over
1	execute swap
9552	lit pick
87	col: 1+
125	2drop rdrop
125	= dup
1437	negate ;s
2610	lit /string
575	2! var:
25	0= var:
21	var: r>
2321	con: (+loop)
1	1- i'
1730	var: lit
291	>= ?branch
5791	swap does:
6	r@ user:
66	;s 1+
647	r> does:
39	= 0=
19	;s char+
33	;s does-code!
539	+ col:
3	defer: drop
59	2>r col:
25094	field: @
2893	var: 2!
4	1+ /string
4860	r@ does:
880	! does:
306	c@ 0=
65	?branch swap
37510	lit var:
81461	@ and
4938	r> lit
36	var: r@
6	r> -rot
1	! fp@
25	;s 1-
2	;s compare
25	+! col:
1731	lit fill
6226	col: cell+
379	con: ;s
302	2dup var:
3187	col: ?dup
1	var: up!
26894	;s dup
4208	swap (?do)
506	d0= ?branch
506	rot lit
10	-rot con:
3553	(do) 2dup
1912	@ !
25017	col: dup
81676	= ?branch
708	pick does:
36915	@ <>
197	con: (do)
198	- unloop
12	?branch dnegate
23	+ c!
10	cell+ cell+
647	(type) (+loop)
1955	;s 2drop
147	um* d+
13704	c! ;s
15	rdrop lit
1	/ ;s
287	- rot
85910	0= 0=
5825	;s +
2989	pick !
997	2drop 2drop
2429	swap dup
275	lit =
4136	! lit
279	r@ =
549	?branch does:
53	execute drop
3553	cells over
1005	xor swap
5	branch unloop
6	2@ lit
1	lit >
20	rdrop rdrop
80	;s -
1495	lit over
12648	+ aligned
23	(loop) count
2112	>r var:
467	defer: noop
11	2@ drop
5224	(loop) >r
2164	lit @
8429	con: (hashkey1)
5	>body user:
1032	col: swap
1730	r@ @
8429	(hashkey1) ;s
7264	over <>
19	@ 1+
6000	?branch drop
1	2drop drop
40	con: lit
66	r> drop
584	rot col:
1	;s rp@
13	! execute
987	;s execute
3554	@ 1-
2108	var: !
1627	- dup
225	execute and
65	lit ;s
26341	@ +
11754	cell+ swap
769	r@ col:
181	r> user:
34	cells +
54779	+! ;s
287	swap 0<>
421	c@ col:
292	var: field:
1013	;s move
350	0= lit
5730	does: +
11093	count +
6101	>r over
483	! user:
287	swap 0=
156	nip branch
2048	pick +
291	cells -
304	con: <>
105	over 1+
5	2dup 1+
190	cell+ (loop)
9	allocate col:
647	count move
287	cr var:
27	invert ;s
1	;s cells
52	2dup u<
7	;s does-handler!
1288	over !
20	var: swap
933	lit (s+loop)
647	lit does:
80726	cells rot
997	and ?dup
5769	sp@ user:
15	>r 2@
5	2dup 1-
1	cells /
506	>r tuck
1481	+! @
1	(?do) var:
23	branch 2dup
87529	;s swap
1153	does: swap
3	?branch or
3	2@ ;s
1239	i -
7264	2dup i
7	/does-handler col:
997	2dup 2dup
6163	and ;s
147	rot user:
4415	?branch defer:
6226	(parse-white) 2dup
694	cr rdrop
506	2dup d0=
384	col: does:
599	rot r>
292	! defer:
125	?branch user:
1122	(f83find) ;s
30	swap cmove
1289	lit (?do)
291	con: >=
87	con: 1+
6	var: +
6249	+ r>
8433	unloop ;s
417	! col:
1	lit (bye)
21	r@ cmove
3	@ (loop)
5	close-file swap
5730	/ col:
6249	r> min
5	+ 2!
1153	max lit
2989	! !
28	r@ u>=
1999	! branch
6226	/string (parse-white)
14	rp@ user:
3716	(type) col:
4	1+ rot
1	/ 1+
204	cell+ rot
233	noop col:
105	>r rot
12640	user: !
5	c! 1+
574	0= and
13774	defer: (type)
199	?branch i
3	execute lshift
38143	@ var:
7697	>r 2dup
2055	(loop) unloop
3554	drop var:
2818	r@ <>
1	2drop dup
21	min >r
3563	over +
281	negate user:
2249	drop ;s
5	unloop 0<>
28233	;s @
7	lit <>
574	2swap swap
287	(emit) var:
3	execute 1+
1730	cells >r
291	- var:
231	;s drop
304	con: does:
24	! con:
65	swap drop
66	= ;s
7	does-handler! ;s
66	2drop branch
689	cell+ >r
3008	over -
267	nip ;s
3	0<> ;s
4938	faligned ;s
5332	+ faligned
1122	@ (f83find)
288	2! col:
3	execute 1-
2	* allocate
8	execute does:
381	over col:
7	;s /does-handler
86164	c@ ;s
1438	0= col:
5	nip ?branch
61	= rdrop
712	?branch execute
6	1+ dup
81097	dup var:
8394	- ;s
1040	execute var:
5433	cell+ dup
80489	@ =
4244	var: 2@
156	cells col:
298	>r dup
5	+ lit
21	con: min
1731	fill ;s
12	2dup u<>
223	/string over
5924	branch col:
15351	@ execute
6354	1+ r>
11538	@ >
3777	lit user:
98744	lit col:
47014	<> ?branch
1848	2@ var:
28	lit >=
1022	code-address! ;s
11299	@ over
11628	2dup col:
915	swap +!
10	! rdrop
7762	col: drop
142	faligned nip
5077	@ @
699	lit 2swap
125	lit u<
1806	?branch read-line
5	cells resize
39555	?branch var:
5166	lit xor
80425	0= ;s
1	execute mod
2620	r> var:
1730	;s xor
5735	+ c@
56760	col: user:
1019	move ;s
708	2! con:
10	read-file ?branch
27	col: xor
16560	does: @
1730	@ rot
2021	cell+ !
1145	lit u>
5934	?branch nip
506	@ tuck
789	drop !
1732	pick @
3	lit u<=
19	pick rdrop
6035	or swap
11085	>r ;s
5	! >r
5	execute over
28	<= ?branch
6688	;s c!
2697	r> ;s
647	>r does:
3421	@ does:
197	lit con:
1730	?branch >r
37229	var: +!
7	branch con:
996	?branch branch
5730	lit /mod
294	@ um*
5	resize col:
6	-rot move
5671	>r col:
10	2dup con:
396	over lit
7264	2@ over
1005	c@ xor
5769	col: sp@
5	tuck 1+
2123	?branch rdrop
13	>r rp@
574	defer: (emit)
3	1- ;s
1760	! r>
33	/does-handler +
9876	r@ lit
2883	?branch over
506	r> over
508	dup !
4	! (next)
80729	lshift ;s
997	faligned swap
4633	?branch r>
5	1+ 2*
647	(?do) i'
287	rot 0=
3146	! r@
52	con: var:
82	char+ col:
1806	con: user:
11	2* cells
6565	?dup ?branch
265571	var: @
13	fp@ >r
506	over <
3356	2@ defer:
305	@ or
217	(do) dup
204	1+ pick
78	con: !
2683	0> ?branch
125	drop 2dup
344	?branch r@
5	2@ tuck
3	nip =
287	0<> rot
80726	/mod cells
281	over =
1022	;s code-address!
2380	branch ;s
80732	swap ;s
7	cr 0<>
1627	?branch rot
5	@ close-file
2	>body ;s
6	;s >body
615	>r con:
960	dup >r
6	r> tuck
1	field: ;s
86	1+ var:
87179	+ swap
1	sp@ dup
566	@ c!
2583	cr col:
5877	r> (loop)
12059	over @
507	0< ;s
223	1+ user:
26364	branch lit
3241	?branch 2drop
506	r@ um/mod
871	dup r>
11070	aligned >r
125	rdrop r>
5332	and +
1806	+! swap
5	1- user:
5	r> rdrop
13	col: laddr#
8618	count defer:
915	con: over
4	+ !
5	2dup or
997	u> lit
147	drop rot
627	var: ;s
1437	?branch negate
5654	nip nip
61020	0= ?branch
506	>r um/mod
1695	dup r@
647	var: nip
647	2@ 2dup
161	or ?branch
1	- ?branch
204	move drop
6249	- 1+
5	nip 1-
5660	col: >r
574	lit defer:
35	drop does:
2738	?branch dup
1004	?branch 2dup
9567	;s var:
767	- 1-
1	col: 2swap
4	(do) i
1	cells allocate
48	swap var:
87	con: *
18	@ user:
2216	;s >r
6450	>r user:
708	con: +
576	count ;s
233	c! does:
8429	xor cells
204	rot move
204	pick >r
11798	col: r>
2216	(loop) dup
80415	?branch c@
768	1- dup
142	?branch faligned
6249	min user:
18394	defer: col:
36	cmove var:
5	2dup lit
12	/string col:
3549	0< ?branch
7608	con: -
5350	;s (loop)
84442	user: @
9591	;s r>
3576	swap !
2	dup defer:
3553	+ (do)
539	drop col:
1250	(?do) con:
997	defer: defer:
14537	@ col:
861	;s 2!
287	rot swap
5731	con: /
83980	@ dup
6083	;s r@
99867	col: var:
287	(emit) col:
2982	branch branch
38	pick r@
6454	;s over
9	2@ nip
647	min 2dup
16	swap over
791	branch @
6	?branch cells
15	r> +
280	?branch 0<>
1730	r@ swap
204	cells sp@
893	dup cell+
59	?branch 2rdrop
4938	col: count
2540	lit lit
33809	;s lit
10	+ -rot
459	execute or
285	i over
1	! ?dup
233	noop ;s
246	over min
4938	dup c@
6250	r> -
15	open-file 0=
2598	/string branch
111734	col: lit
28	cell+ var:
1758	;s tuck
28	var: <=
19	r> rot
2727	cell+ count
7176	@ >r
130	nip swap
268	?branch 0=
345	2drop r>
292	@ con:
176	u>= ?branch
5414	drop con:
1415	2@ col:
5770	fp@ user:
11	drop =
1659	lit max
2502	rot rot
2021	over cell+
1172	swap lit
2658	?branch 0>
230	col: over
20418	?branch col:
8	swap 1+
3	2dup and
1156	var: var:
2075	pick col:
1807	r> col:
147	d+ r>
258	c@ lit
197	(+loop) dup
3575	var: dup
1012	um/mod r>
5938	@ r@
4	rot (do)
1335	swap -
13	>r sp@
287	2@ rot
732	;s c@
6	execute aligned
11759	r> dup
6249	2dup >r
110	over >r
506	- does:
506	dup 0<
7043	;s 2dup
3	execute 2drop
3	(next) var:
1	1- (for)
1	>body @
689	>r @
997	dup faligned
1647	dup 0=
148	toupper lit
23	rot dup
131	lit branch
2175	lit cells
1214	- lit
16	swap 2dup
4	/string ;s
506	tuck dabs
5166	xor and
2215	con: rot
7264	i 2@
1671	;s cell+
125	dup 0>
125	(?do) count
144	con: =
25476	lit and
20	over r>
811	?branch con:
1003	2dup r>
5	con: >
52	<> col:
87	rdrop dup
19171	+ ;s
17321	dup @
306	var: over
15	cmove 2dup
13	sp@ r>
1986	(?do) unloop
2	compare 0=
3	and var:
291	! dup
3817	lit (+loop)
28	over r@
1061	cell+ tuck
16343	con: col:
3	col: cells
506	col: 0<
7	execute !
237	con: @
334	- col:
3	nip 0<>
15	2@ dup
647	c! var:
9124	(type) ;s
23	@ branch
148	?branch toupper
36928	col: 0=
246	min /string
41195	;s ?branch
4283	col: 2dup
287	0= swap
287	0= rot
1	mod ;s
87	within 0=
223	over swap
125	unloop lit
2202	nip execute
6226	@ /string
107	unloop 2drop
728	user: col:
506	col: 2drop
160	0= does:
394	+ =
84	tuck !
5730	con: dup
8608	dup col:
16175	;s 0=
23310	execute col:
6	1+ col:
80726	swap lshift
25	;s 0>
2001	>r ?branch
654	(?do) dup
82297	lit swap
1416	aligned swap
19	cr 0=
506	dabs col:
287	rot 0<>
2375	dup does:
3	does: 2@
7	var: cell+
983	2dup swap
7	con: defer:
80726	con: /mod
88	con: con:
3	?branch !
5	2! 2*
17288	+ @
507	2drop col:
933	(s+loop) dup
287	(type) lit
197	- con:
6699	(hashfind) ;s
2	con: cells
11	cells ;s
177	u< ?branch
2316	user: +!
1416	dup aligned
647	lit min
1617	rot drop
3	1+ ;s
1730	cells lit
292	field: dup
11	execute cells
23	drop (parse-white)
225527	;s col:
287	2@ 0<>
2	execute *
2	(loop) var:
2	2dup *
6	does: col:
1022	lit >code-address
5730	c@ or
8980	swap col:
148	@ u>=
1	execute +
1	(for) var:
48	execute con:
3553	con: ?branch
87	1+ con:
23	(parse-white) branch
215	dup con:
8801	over c@
13	>r fp@
6254	2dup +
1	up! sp@
27	xor invert
2	* ;s
3533	2drop lit
11925	>r swap
148	u> ?branch
2126	i col:
80421	swap @
7	i cells
281	dup negate
3043	@ 0<
8059	count lit
173	cr ?dup
3915	;s 2@
106	2drop con:
3711	(+loop) 2dup
3553	1- cells
281	branch drop
837	@ 0=
125	2swap dup
287	0<> swap
160	0= or
674	lit (do)
348	r> ?branch
278099	col: col:
1828	unloop drop
12	dnegate r>
147	um* drop
21220	;s con:
512	tuck -
531	>r lit
4094	nip unloop
1297	;s does:
235	swap con:
5444	lit r@
1	r> or
5	c@ ?branch
1732	?dup 0=
22	@ cells
33	r> /does-handler
204	>r cells
223	>r defer:
7929	col: defer:
28079	! ;s
1580	i con:
1	branch (+loop)
4186	drop 2drop
105	move c!
17912	?branch ;s
98	over 0=
394	- count
1	execute 2*
281	+! lit
3350	dup lit
440	! drop
10	rdrop drop
1173	dup user:
506	max col:
1	2swap 2dup
1730	+ var:
105094	col: con:
16728	;s +!
647	2dup defer:
647	move lit
12	u<> ?branch
8437	var: col:
1022	>code-address ;s
6563	@ ?dup
6276	>r >r user:
1122	@ (f83find) ;s
287	(emit) var: 2@
1	var: ! lit
291	r> var: !
1	0<> ;s col:
15	over r> +
1	mod ;s branch
1737	2! ;s lit
3	rot 2dup and
53	execute var: ;s
1	col: 2swap 2dup
3968	dup ?branch defer:
1	drop ;s nip
21	>r var: r@
997	col: defer: defer:
292	field: dup var:
6699	+ @ (hashfind)
120	+! ;s 2drop
287	;s 2dup var:
21	min >r var:
1730	over cell+ count
16	;s swap over
55	>r var: @
7	;s drop col:
2	drop col: r>
3534	<> ?branch drop
1002	;s r@ does:
14	= ;s ?branch
1057	;s col: user:
574	0<> and ?branch
4938	and 0= ?branch
28	var: <= ?branch
647	dup >r does:
424	and ?branch 1-
708	con: + ;s
80726	lit swap lshift
1	field: ;s branch
144	con: = ?branch
647	2@ 2dup col:
6226	/string (parse-white) 2dup
61	branch ;s con:
93201	;s col: col:
12	dup col: lit
1	?branch 1- i'
21	r@ cmove var:
590	- dup @
717	con: (+loop) i
8429	col: lit +
5	>r ;s drop
13	or ?branch drop
599	>r con: rot
23697	;s @ ;s
58	;s swap con:
2	execute >body ;s
287	defer: (emit) col:
8825	var: @ col:
708	?branch execute var:
5935	?branch col: cell+
3533	drop 2drop lit
28	;s tuck !
5769	;s defer: col:
1762	lit lit !
506	;s 2dup d0=
279	?branch r@ col:
266	dup 0= ?branch
1	execute swap ;s
121	dup con: <>
12	col: 2dup u<>
653	r> (loop) unloop
997	2drop ;s var:
291	>r var: col:
5730	over c@ or
2329	r> var: @
3711	lit (+loop) 2dup
506	>r tuck dabs
87	con: 1+ within
44	;s ?branch does:
15	var: swap cmove
4938	>r col: count
15	cmove var: over
1	swap ;s branch
551	r@ col: >r
88	con: branch ;s
28	u>= ?branch col:
5730	+ ;s swap
291	con: >= ?branch
5	nip execute over
1236	dup @ dup
574	var: ;s lit
647	;s dup >r
246	user: @ over
84	tuck ! cell+
13	fp@ >r col:
3025	@ ?dup ;s
1730	>r var: lit
575	var: 2! var:
539	+ col: col:
8	lit @ var:
114	?dup ?branch ?dup
25	+! col: var:
281	swap - col:
1730	var: lit cells
648	unloop ;s dup
204	pick >r cells
147	rot user: @
276	col: >r dup
23	+ c! col:
47	nip execute con:
28	<= ?branch con:
1	(next) unloop ;s
506	over < ?branch
1678	@ col: lit
19	! ;s does:
1	(?do) unloop lit
237	con: @ col:
574	cr col: var:
1	unloop var: @
124	(loop) unloop lit
5	?branch ;s r>
1416	dup r@ does:
647	(+loop) unloop drop
3874	@ col: var:
6325	col: var: col:
287	0= swap 0<>
2818	?branch over c@
6	+! user: @
10	user: ! rdrop
27	nip ;s -
51	@ execute drop
565	;s rot col:
20	;s swap var:
19	pick rdrop dup
53	execute drop ;s
126	;s drop ;s
28	! ;s +
33	/does-handler + col:
18	;s ! col:
653	unloop drop 2drop
66	2drop branch ;s
1730	>r drop r@
1730	r> ;s tuck
3126	con: swap !
133	branch ;s branch
506	< ?branch lit
1294	lit ! ;s
287	var: @ execute
281	(loop) i over
19	r> r> rot
1806	swap user: !
9	?branch 2dup con:
997	var: @ !
2	?branch i 1+
11070	r> dup count
873	;s ;s defer:
223	/string over swap
2075	lit pick col:
5	var: swap ;s
148	= ?branch toupper
7	lit <> ?branch
75	swap con: -
43	con: ;s lit
997	dup faligned swap
170	cell+ (loop) dup
61	@ swap does:
287	- ?dup ?branch
1889	;s 2drop ;s
61	@ = rdrop
506	dabs col: col:
390	+ ;s c!
3969	2dup col: var:
58	nip ;s ?branch
3	@ dup @
8432	var: @ +
20	(do) dup @
53	drop ;s branch
59	drop 2dup 2>r
16108	con: col: col:
33	@ ;s does-code!
211	@ col: 2dup
566	- lit over
53	;s - col:
50124	col: col: user:
265	rdrop ;s cr
232	branch rdrop ;s
6298	;s c! ;s
204	drop r> ;s
68	0< ?branch lit
941	! branch var:
11	;s swap 2dup
740	0= ?branch ;s
506	tuck dabs col:
5760	col: col: lit
5	col: 2dup lit
15	dup >r 2@
25	1- var: 2!
5	! col: ?dup
124	?branch nip ;s
2046	(loop) dup lit
1	;s does: col:
5	tuck - dup
2218	dup ?branch 2drop
6700	>r 2dup col:
233	;s c! does:
59	branch over 0=
6699	;s r> xor
997	lit u> lit
22	@ cells +
105	>r rot over
1	r> - ?branch
1240	rdrop ;s ;s
7	;s cr branch
1	?branch execute con:
12	2dup u<> ?branch
78	= ?branch col:
12	;s con: !
281	?branch branch drop
53	nip execute var:
3069	(type) col: col:
80422	var: @ =
61	@ r@ does:
15	>r var: swap
5	r> r> user:
5	1+ var: 2!
16	>r con: open-file
287	0<> swap 0=
80646	and 0= 0=
11070	swap >r ;s
3553	@ 1- cells
147	swap user: @
574	col: swap (?do)
22	cells + ;s
997	var: @ @
30	! r> user:
1	cells / ;s
506	?branch ;s rot
20	lit (do) dup
3	;s con: branch
1288	@ over !
6654	c! ;s ;s
113	>r ?branch col:
1	dup ?branch rot
2982	branch branch lit
23	(parse-white) branch 2dup
26426	;s lit col:
125	2drop rdrop r>
59	?branch 2rdrop branch
582	dup var: !
689	r> dup cell+
997	@ @ over
279	rdrop ;s execute
39	drop r> drop
2667	execute col: col:
1578	;s con: -
281	negate user: +!
3659	(loop) con: col:
507	2drop col: col:
5730	;s con: /
1730	! r> var:
2124	;s con: (+loop)
486	?branch drop col:
732	+ ;s c@
8429	col: con: (hashkey1)
3	?branch ! ;s
689	cell+ >r @
3	2@ ;s con:
1	?branch 1- (for)
1730	@ rot !
52	;s con: var:
2818	r@ <> ?branch
291	?branch ;s lit
1255	dup ?branch lit
4938	lit r@ lit
2158	@ over -
23	@ ?branch does:
1	user: ! fp@
1	nip execute 2*
1580	dup i con:
80421	0= 0= ;s
1581	?branch ;s ?branch
3775	0= ?branch cell+
12	lit /string col:
11070	aligned >r swap
4213	col: 2dup col:
28	@ dup lit
6619	?branch col: col:
197	(do) dup i
1153	swap lit max
121	;s con: =
1	! over c@
204	cell+ rot move
506	lit over <
673	@ lit (do)
1	;s rp@ user:
148	@ u>= ?branch
6249	+ r> -
281	lit over =
5	! >r ;s
12	;s con: @
1379	;s (loop) unloop
10	?branch rot over
4094	nip unloop ;s
1730	tuck cell+ !
307	;s dup does:
5	>body user: @
80	1+ var: 2@
290	2! ;s col:
7	lit (?do) dup
1	>body @ col:
3553	con: ?branch lit
5232	dup ?branch col:
2	nip execute drop
506	;s col: 2drop
5877	@ over @
13	swap >r fp@
1	2@ 2* cells
2853	;s @ does:
1644	;s ?branch dup
12	>r ?branch lit
80421	dup var: @
35	?branch drop does:
6249	r> - 1+
10543	;s 0= ?branch
708	i col: >r
4	1+ rot (do)
45274	;s ;s col:
394	i - count
6226	@ /string (parse-white)
25	;s 1- var:
28	rdrop ;s tuck
142	0<> ?branch faligned
1407	con: (+loop) unloop
204	r@ col: dup
1244	col: >r r@
861	unloop ;s var:
223	- dup r>
52	2dup u< ?branch
16728	;s +! ;s
147	r> ;s (loop)
637	2@ col: drop
2583	;s cr col:
6699	2dup col: con:
506	col: dup 0<
1	1+ var: @
13	>r col: laddr#
279	rdrop ;s ?branch
350	col: dup 0=
1730	;s tuck cell+
13	>r sp@ r>
15	cmove 2dup var:
1806	?branch read-line col:
566	@ c! ;s
32	- dup ?branch
1040	var: @ and
983	2dup swap col:
767	1- dup ?branch
3420	+! ;s !
1	1- i' i
28	dup var: <=
15	dup >r con:
1806	?dup ?branch read-line
647	var: count move
574	lit 2swap swap
19	- swap lit
25	- ;s 1-
506	>r um/mod r>
915	var: col: lit
125	unloop lit branch
1730	! r@ swap
13	user: ! execute
287	defer: (type) lit
647	lit min 2dup
508	dup ! ;s
11070	col: r> r>
3553	col: drop con:
281	over = ?branch
87	dup col: con:
136	r> ;s r@
506	2dup d0= ?branch
647	count move lit
6249	min user: !
287	rot 0= and
11	nip execute cells
223	col: >r defer:
8246	user: ! ;s
8572	@ ;s user:
14	rp@ user: !
15	var: r@ +
2	over lit (?do)
10	rdrop lit ;s
599	rot r> var:
997	2dup 2dup r>
28	r@ u>= ?branch
37	over col: lit
4	;s lit swap
86336	col: col: con:
19	>r r@ pick
150	2drop ;s does:
486	;s cell+ swap
36915	@ <> ?branch
2156	lit @ execute
4	execute col: swap
1957	lit col: lit
1	compare 0= r>
291	+! var: @
61	var: @ does:
305	col: swap col:
5	var: 2@ tuck
125	c@ lit -
1	0= >r 2dup
1	?branch con: lit
5	user: @ close-file
2727	cell+ count lit
5769	?branch fp@ user:
1	fill ;s var:
5	or col: dup
7264	2@ over <>
3	+ @ col:
506	;s rot lit
52	con: <> col:
519	r> swap >r
1022	col: lit >code-address
861	2@ var: 2@
6	= ?branch r@
218	con: branch rdrop
24	! con: does:
1730	fill ;s r>
13	drop ;s dup
279	@ dup r@
147	?branch col: swap
6	?branch ;s var:
197	con: - unloop
4369	unloop ;s ;s
280	and ?branch 0<>
2592	branch dup ?branch
36915	var: @ <>
2215	con: rot rot
943	@ ;s col:
9876	r@ lit and
126	c@ lit =
1	@ ?branch r>
25	var: @ 0<
80425	c@ ;s col:
291	var: @ 0=
4	cells + !
15	dup >r var:
660	;s dup col:
1	;s cells col:
5	+ lit swap
708	+ ;s lit
506	dup @ tuck
3397	;s ;s branch
28	over r@ u>=
35	>r col: 2dup
5	2* cells +
3553	col: drop var:
65	?branch swap drop
1835	;s ;s 2drop
5	rdrop ;s over
4938	r> lit and
1	lit (?do) i
125	= dup >r
6249	r> min user:
10	swap read-file ?branch
27	invert ;s col:
5769	> ?branch ;s
65	;s ;s swap
19	r@ pick rdrop
1578	;s lit +
62	col: >r >r
36928	col: 0= ?branch
186	user: @ >r
32	lit lit lit
506	col: 0< ?branch
21	var: r@ cmove
2	0<> ;s 0=
152	c! ;s con:
86273	col: col: var:
997	?dup ?branch 2drop
997	faligned swap (?do)
148	?branch toupper lit
3	(next) var: cell+
1754	;s + @
8826	@ + @
223	over swap r>
708	rdrop ;s con:
647	defer: col: var:
2	var: ! var:
1617	?branch rot drop
1947	var: @ ?branch
2743	col: lit col:
461	execute col: defer:
340	execute var: @
4938	col: count lit
7	cr branch rdrop
3371	+ @ ;s
279	r@ = ?branch
29	over col: col:
647	>r does: @
125	0> 0= ?branch
681	user: @ lit
152	c! col: var:
1	+ ;s branch
3	cells + @
708	?branch branch lit
1769	;s lit @
1	lit > ?branch
506	(?do) unloop drop
5332	and + faligned
1153	does: swap lit
287	rot swap -
421	;s @ 0=
647	?branch dup does:
15	user: ! user:
204	dup cell+ rot
6	r> -rot move
153	col: swap >r
506	dup 0< ;s
13	sp@ r> swap
5	col: col: 2dup
1153	;s defer: (type)
150	lit = ?branch
5	lit ;s r>
272	(type) ;s rdrop
51	;s r> r>
506	0< ;s r>
237	>r dup ?branch
5730	con: dup @
2	unloop drop branch
3968	defer: col: 2dup
4	swap 1+ /string
25	;s 0> ?branch
2	>body ;s branch
1	compare 0= >r
87	col: 1+ con:
394	dup i -
2	?branch ;s over
1025	dup user: !
287	cr cr ;s
1013	;s move ;s
647	2dup defer: (type)
23	min /string rot
287	(type) lit defer:
30	col: lit user:
4	col: dup count
281	dup negate user:
223	over - dup
1005	xor swap c!
1	;s ?branch 1-
506	@ tuck -
7	nip execute !
1388	drop ;s ;s
5	(?do) dup >r
1732	@ ?dup 0=
121	con: <> swap
5	nip r> rdrop
7	con: defer: noop
1115	! ;s var:
223	>r over -
987	;s 2@ var:
54	drop 2drop r>
4831	user: @ ?dup
791	branch @ dup
6	+ @ user:
80421	swap @ and
125	>r user: col:
59	;s ?branch 2rdrop
5	swap 2dup or
7	var: cell+ i
1722	var: 2@ defer:
2	nip execute *
1730	and col: con:
10	?branch rdrop drop
1	0= r> or
7	rdrop ;s var:
1	nip execute +
3980	?branch lit r@
521	col: >r col:
294	! ;s (loop)
1730	r@ @ rot
728	user: col: con:
47	con: ;s branch
5730	/mod rot +
1163	@ ;s swap
16	swap over col:
291	cells - var:
869	col: var: 2@
1732	?dup 0= ?branch
8	@ lit !
1	execute con: con:
223	>r defer: col:
66	;s 2drop branch
997	@ and ?dup
10	2dup con: swap
1	?dup ?branch 1-
2	<> ?branch ;s
647	- lit min
6	swap >r dup
16	2! ;s r>
5877	>r over @
647	(type) (+loop) unloop
647	;s 2@ 2dup
1416	! r@ does:
148	dup user: @
1416	dup aligned swap
4514	and ?branch r>
197	- con: -
3	?branch ;s nip
7	cr 0<> swap
294	(type) ;s branch
7	branch con: defer:
3603	dup ?branch nip
3	nip execute @
694	cr rdrop ;s
268	branch ;s dup
68	r> ;s rdrop
5769	?branch ;s defer:
37229	lit var: +!
1730	(hashkey1) ;s xor
19	! ;s rdrop
506	um/mod r> swap
506	max col: >r
5	lit ;s user:
125	lit = dup
3445	2drop ;s branch
1806	user: +! swap
5	dup ?branch r>
8429	con: (hashkey1) ;s
941	branch var: col:
5	1+ col: col:
284	branch lit (+loop)
647	(type) col: lit
301	over col: swap
5	nip 1- user:
1	con: cells col:
11374	dup field: @
468	lit ! user:
3553	1- cells over
1	con: open-file col:
3	drop ;s does:
148	@ lit =
5	lit swap c!
66	;s @ dup
861	var: 2@ var:
27	col: xor invert
1	@ lit >
6	dup allocate col:
507	does: @ does:
6	cells var: +
1022	;s code-address! ;s
132	var: col: col:
424	?branch 1- r>
25	rdrop ;s 0>
224	;s >r over
19	>r >r lit
865	col: var: !
1806	?branch ;s branch
5	;s over r>
292	@ >r var:
5	1- + c@
111	and ?branch col:
2895	! ;s lit
276	lit - dup
153	! ;s over
28	;s over r@
7	;s does-handler! ;s
23	/string rot dup
789	drop ! ;s
1616	rot drop con:
5	tuck 1+ 2*
5769	> ?branch fp@
915	lit swap +!
5	;s nip ?branch
1416	;s dup aligned
130	nip swap -
1730	@ + var:
56	cell+ tuck !
1	;s nip ;s
5	@ close-file swap
5166	and ;s 0=
6848	col: dup col:
506	um/mod r> ;s
287	2@ 0<> rot
1	2* cells col:
11664	! ;s ;s
1	?branch dup var:
1	@ (loop) unloop
142	faligned nip ;s
341	execute col: does:
1251	?branch lit and
19	rot col: con:
128	;s user: col:
7508	;s col: dup
6702	cells var: @
5	cells resize col:
270	! ;s con:
225	execute and 0=
1	swap col: 2dup
5224	(loop) >r over
36	user: ! col:
62	;s ;s rot
3	nip 0<> ;s
287	var: 2@ 0<>
1	i 1+ var:
689	dup cell+ >r
198	= ?branch i
684	var: @ lit
1	or ?branch 2drop
19	r> rot col:
2	;s over lit
233	defer: noop ;s
1022	>code-address ;s col:
24	;s swap !
1	defer: noop var:
80726	swap lshift ;s
5612	;s ?branch col:
52	?branch = ;s
3	/string ;s ;s
157	;s c! col:
39	?branch over 0=
997	and ?dup ?branch
6	branch ;s user:
3	+ @ (loop)
36913	?branch lit var:
3659	;s (loop) con:
13428	@ field: @
11	var: 2@ drop
1	>r col: defer:
156	branch col: var:
90278	col: var: @
5	?branch var: 2@
2025	@ dup ?branch
34283	;s ;s ?branch
12	@ ?branch over
3624	;s ;s lit
33	col: con: col:
3553	drop var: dup
19	;s char+ c@
8	! var: var:
145	u> ?branch dup
10	rdrop drop r>
1876	>r ?branch rdrop
67	! col: lit
3	lshift ;s branch
1	con: 0= ?branch
287	2@ 0= rot
23	?branch drop (parse-white)
15	var: over r>
1352	and col: ?dup
10	-rot con: <>
3553	over + (do)
32	drop col: var:
6249	;s 2dup >r
160	(loop) dup @
33	does-code! ;s ;s
291	?branch 2drop r>
142	@ ?branch con:
5	nip ?branch var:
287	var: 2@ 0=
3	lit col: 0=
66	(type) ;s 1+
287	swap 0= and
915	+! @ !
80726	/mod cells rot
61	= ?branch does:
566	con: - lit
24272	branch lit col:
281	branch drop ;s
3	execute 1+ ;s
204	sp@ cell+ dup
421	c@ col: var:
1	drop var: 2@
106	2drop con: ;s
2	dup defer: col:
72	unloop ;s branch
3025	?dup ;s ?branch
54	;s >r var:
2	drop ;s drop
13	@ >r rp@
80421	;s swap @
5730	con: / col:
287	swap 0<> and
22	branch ;s r>
59	;s branch over
13	;s >r user:
767	swap - 1-
1	dup r> -
125	lit branch ;s
66	drop 2dup col:
23	@ ;s count
6	user: +! user:
1806	branch lit user:
8	var: var: !
212	?dup ?branch col:
121	<> and col:
59	2>r col: col:
121	dup col: dup
106	(+loop) unloop 2drop
5	col: dup ?branch
2046	+ (loop) dup
5	2@ tuck 1+
6035	swap col: con:
291	cell+ ! dup
5730	lit /mod rot
1732	0> ?branch col:
1	var: ! ?dup
19	col: drop >r
27	?branch drop r>
1013	+! ;s move
7	;s branch con:
1	swap ;s 2dup
305	or swap !
3	execute 2drop ;s
2048	pick + (loop)
13681	execute col: lit
26	swap drop branch
1022	lit >code-address ;s
1	1- dup 0=
506	tuck - ;s
12	?branch dnegate r>
82	;s over char+
14	r@ col: does:
87	* 1- >r
1	2! var: up!
10	rdrop rdrop lit
951	0> ?branch nip
506	r> over -
5149	?branch ;s ;s
287	2! var: var:
3575	var: dup @
463	0< ?branch ;s
27	pick col: lit
226	col: defer: noop
694	0= ?branch col:
35	@ ?branch var:
204	col: dup 1+
16	>r dup >r
5	;s c@ ?branch
27	r> drop col:
5730	dup @ +
1	(do) lit col:
294	user: @ um*
1731	lit fill ;s
3	! defer: drop
647	count col: col:
26	;s ?branch swap
15	+ swap cmove
78	! ;s drop
82288	col: lit swap
291	lit cells -
1148	var: var: @
6	execute aligned ;s
1	up! sp@ dup
1	lit cells /
147	um* d+ r>
49	nip ;s col:
6	-rot move ;s
12	dnegate r> user:
1	- ?branch dup
3126	col: con: swap
84	;s ;s r>
76	r> col: col:
2598	lit /string branch
156	?branch nip branch
1509	;s user: !
31	code-address! ;s lit
90478	lit col: col:
5	over ;s branch
13	! execute col:
35	@ col: dup
4514	?branch r> lit
281	+! lit over
647	cr ;s con:
291	cell+ dup @
1	1- (for) var:
3	execute 1- ;s
4	/string branch over
6	r@ user: +!
1	! lit (do)
204	1+ pick >r
6	r> tuck -
3	u<= ?branch dup
4860	r@ does: @
1	open-file col: col:
153	+! ;s 2!
28	lit >= col:
173	cr ?dup ?branch
647	dup r> does:
27	drop col: con:
291	var: +! var:
506	- ;s r>
2604	?branch lit /string
6	does: col: var:
31	lit lit col:
5	2! 2* cells
1578	lit + aligned
287	rot 0<> and
459	r@ execute or
1728	col: lit lit
6	2@ lit (?do)
21	cmove var: r>
647	r> does: @
820	;s var: col:
6699	xor cells var:
223	user: +! ;s
87	within 0= col:
1806	;s con: user:
198	- unloop ;s
287	cr ;s ;s
1923	@ ;s +
39	swap con: col:
54	;s over col:
1	con: lit !
5	unloop 0<> lit
1	@ ?branch drop
307	;s @ col:
6	?branch cells var:
291	over ! lit
39500	<> ?branch lit
25	;s 0= var:
53	@ ;s -
160	;s 0= does:
11070	r> r> dup
1730	0< ?branch @
1	dup >r lit
154	cells col: col:
6699	@ >r 2dup
647	lit (?do) i'
938	swap (?do) i
3	?branch col: does:
113	?branch r> user:
10	read-file ?branch rot
292	var: field: @
1	;s r> tuck
5	var: @ 1+
142	lit over 0<>
7288	;s user: @
647	(?do) i' i
39	swap drop r>
7338	col: col: dup
1	noop var: @
1	var: @ 1-
1	var: up! sp@
708	col: >r swap
87	con: * 1-
61	;s @ =
2202	nip nip execute
80421	0= ;s ;s
6	! lit /string
125	dup >r ?branch
1	nip ;s ;s
5	2* cells resize
5	resize col: ?dup
2048	! ! ;s
3	?branch or >r
43	@ and ?branch
142	over 0<> ?branch
1	lit branch (+loop)
23697	@ ;s @
7	;s /does-handler col:
80415	= ?branch c@
1	con: con: branch
508	lit (?do) unloop
3732	<> ?branch col:
161	@ >r user:
13	>r fp@ >r
68	;s rdrop dup
3	execute does: 2@
128	! ;s user:
5	noop ;s col:
87	con: con: 1+
1	;s drop var:
11	execute cells ;s
1806	con: user: @
997	over ! var:
287	2! col: col:
204	cell+ dup cell+
2989	pick ! !
142	?branch faligned nip
1	! (next) unloop
12	@ user: !
6249	2dup >r >r
712	;s ?branch execute
6	@ >r >r
23	branch 2dup +
1	con: / 1+
1	dup ?branch dup
1027	var: @ field:
3	1- ;s branch
80726	cells rot +
4	col: >r ;s
869	col: col: defer:
1	! fp@ user:
2383	;s col: var:
56088	user: @ ;s
33	;s ;s >r
3	and var: @
14	;s @ 1+
160	c@ 0= or
39542	?branch var: @
11538	@ > ?branch
105	over 1+ r>
384	col: does: @
253	over c@ lit
3	1+ ;s branch
1408	(?do) i col:
1250	swap (?do) con:
80428	@ = ?branch
27	;s - dup
4	;s swap 1+
5730	;s ;s !
1058	! branch ;s
2026	! lit col:
475	! user: col:
5730	- ;s con:
59	?branch r@ execute
13	laddr# ;s >r
306	;s c@ 0=
6	/string branch ;s
4	+ ! (next)
53	var: ;s branch
223	r> ?branch 1+
2	@ lit (?do)
15	con: open-file 0=
287	cr var: 2@
5	r> rdrop lit
699	lit lit 2swap
204	dup 1+ pick
2	(loop) var: cell+
1	;s 2dup col:
110	r> ;s ;s
1730	+ dup @
1	lit ! lit
52	con: var: col:
25	and ?branch 2drop
3874	;s ;s +
10	(loop) dup >r
1	> ?branch con:
933	?branch lit (s+loop)
7	/does-handler col: col:
6	@ user: @
233	c! does: @
5877	@ r@ execute
5	;s var: swap
325	;s col: r>
4	(do) i over
1806	! ;s ?branch
125	dup 0> 0=
98	over 0= 0=
5730	+ swap does:
61	;s @ swap
19	;s ;s char+
2	* allocate col:
394	- count lit
23	@ branch ;s
506	;s r> over
18	lit ;s col:
148	toupper lit -
59	2dup 2>r col:
13	col: >r sp@
1	! ;s rp@
1	cells col: swap
5	nip execute does:
5	+ c@ lit
130	;s lit user:
424	1- r> lit
1373	swap (?do) unloop
5	drop col: ?dup
147	um* drop rot
61	;s ! branch
708	- ;s lit
6	>r dup allocate
15300	@ execute col:
6	nip execute aligned
33	;s does-code! ;s
3	2drop ;s col:
648	i' i -
15	r@ + swap
1	var: col: dup
125	lit (?do) count
1	/ ;s var:
933	(s+loop) dup i
279	;s ?branch r@
20	cell+ (loop) unloop
252	;s dup 0=
6706	col: defer: col:
197	?branch i -
1	?branch con: cells
506	@ lit max
23	(loop) count col:
350	0= lit and
1153	lit max lit
291	! dup @
1138	- ;s var:
34	! col: col:
287	var: 2@ rot
1	2drop dup >r
32	r> r> col:
8	@ ?branch ;s
82	over char+ col:
105	;s col: over
11070	count + aligned
288	var: 2! col:
1	move ;s drop
279	;s execute var:
292	;s var: field:
997	u> lit and
11	drop = ;s
36913	var: +! ;s
1	?branch r> col:
5	2dup 1+ var:
2818	dup ?branch over
1022	;s dup user:
19	;s drop con:
1	@ con: cells
2449	var: @ over
4938	cell+ dup c@
8618	count defer: (type)
8	?branch var: col:
421	0= ?branch does:
998	col: dup lit
5877	swap cell+ swap
1	2swap 2dup col:
5489	0= 0= ?branch
6	var: 2@ lit
15	swap cmove var:
3	nip execute lshift
280	?branch 0<> swap
574	count ;s var:
143	;s r@ col:
281	user: +! lit
2009	cr col: col:
86456	rot + swap
81	;s col: con:
2113	?branch rdrop ;s
38	r@ pick r@
1550	branch ;s col:
287	- ;s 2dup
549	?branch does: @
7168	@ col: col:
653	lit (do) >r
1730	cells >r var:
1	(for) var: cell+
1732	pick @ ?dup
292	var: @ con:
149	con: ;s ?branch
5962	;s swap col:
5730	col: lit /mod
1416	;s ! r@
43	= ?branch var:
1005	;s cell+ tuck
8618	;s count defer:
80726	col: con: /mod
3533	?branch drop 2drop
8324	@ ;s lit
39	con: lit ;s
281	= ?branch branch
1173	unloop drop ;s
279	dup r@ =
3	?branch execute does:
708	pick does: @
10	con: swap read-file
1	+ dup user:
3	2@ nip =
647	defer: (type) (+loop)
8059	count lit and
997	;s dup faligned
5	con: > col:
22388	;s branch lit
394	+ faligned over
1730	+ var: @
147	u>= ?branch con:
4909	c! ;s (loop)
725	execute col: >r
3018	dup @ 0<
708	>r swap dup
19	;s col: >r
37	lit ;s ;s
147	drop rot user:
28	>= col: col:
35	drop does: @
2756	;s lit pick
25	0= var: @
447	@ ?branch defer:
1765	;s r> ;s
204	move drop r>
1251	and ?branch nip
197	?branch drop lit
6735	swap c! ;s
147	swap >r swap
2415	+ ;s !
1	?branch 2drop col:
39	0= ?branch swap
997	2drop 2drop ;s
105	r> move c!
5857	;s over c@
10	drop r> cell+
1	r> or ?branch
965	>r r@ does:
915	con: over +!
147	d+ r> ;s
880	;s ! does:
2037	nip execute col:
5	2dup or col:
66	dup con: !
574	col: var: ;s
506	- does: swap
287	rot - ?dup
129	user: @ col:
5	0<> lit and
292	field: @ col:
3187	col: ?dup ?branch
5730	swap does: +
1130	user: @ dup
5	@ 1+ dup
105	move c! ;s
506	lit r@ um/mod
647	var: count col:
268	?branch 0= swap
1	/string ;s var:
1	0< ;s branch
7	;s cr 0<>
80421	lshift ;s swap
247	= ?branch drop
599	drop 2drop ;s
287	defer: (emit) var:
37489	var: @ var:
421	;s c@ col:
24	;s ! con:
28	@ swap var:
943	@ ?branch dup
1	@ ;s r>
997	defer: defer: col:
10	con: <> ?branch
1	>r over >r
7264	over <> ?branch
287	2dup var: 2!
3	and ?branch or
648	2@ col: col:
39	r> drop ;s
27	;s r> drop
9782	;s con: col:
87	lit col: 1+
52	col: 2dup u<
506	over - does:
5	1+ 2* cells
5	;s >body user:
997	@ ! branch
1	(?do) var: cell+
56	! cell+ tuck
87	1+ con: *
287	swap - rot
47	;s col: 2dup
1730	?branch @ over
7	+! ;s does-handler!
61	swap does: @
129	2! ;s ;s
4536	+ ;s @
1	= ?branch lit
10	over + -rot
880	! does: @
15	>r 2@ dup
794	dup ?branch 2dup
987	2@ var: @
285	i over col:
3	dup @ ?branch
3990	and ?branch ;s
2	@ (loop) var:
23	dup con: =
15	2dup var: r@
1730	;s xor cells
1616	0= ?branch rot
106	unloop 2drop con:
5	dup con: >
246	over min /string
6699	(hashfind) ;s ;s
291	>= ?branch ;s
5769	sp@ user: @
5229	col: cell+ dup
121	- swap !
574	@ col: swap
5	close-file swap 2dup
38	pick r@ pick
153	;s 2! ;s
653	(do) >r over
2048	dup lit pick
197	= ?branch con:
226	noop col: col:
11	cells ;s branch
1	2drop drop con:
19	;s col: drop
997	@ col: >r
1009	(type) ;s r@
647	swap (?do) dup
2	count ;s compare
1735	dup ?branch ;s
147	>r swap user:
1730	dup ?branch drop
287	col: var: var:
4	dup count col:
11374	col: dup field:
19	cr 0= swap
160	0= or ?branch
6249	2dup + r>
1	2! ;s defer:
4	rdrop ;s lit
7	c@ lit <>
125	(?do) count col:
26	execute col: con:
5	;s col: ?dup
113	?branch col: over
1	noop ;s r>
39	col: con: lit
205	?branch con: ;s
506	swap >r um/mod
149	?branch dup user:
225	?branch drop con:
5	execute over ;s
1730	rot ! r@
28	swap var: !
147	@ um* drop
12179	does: @ +
1	1+ col: cells
599	rot rot r>
1	! var: !
7	cell+ i cells
1	u>= ?branch drop
126	col: lit (?do)
895	execute col: @
1	col: 2dup con:
958	?branch @ lit
17	?branch col: con:
26	?branch over col:
12401	field: @ execute
5785	;s ;s over
506	rot col: 0<
9124	defer: (type) ;s
3	;s rot 2dup
126	>r col: lit
5	2! ;s branch
793	(type) ;s lit
3716	defer: (type) col:
223	dup r> ?branch
2	?branch 2dup *
1	nip execute swap
694	;s cr rdrop
566	+! @ c!
1	;s col: 2swap
7	@ ;s /does-handler
5	?branch 2dup +
11127	lit and ?branch
288	;s dup var:
708	;s + swap
287	;s cr cr
791	;s branch @
3711	(+loop) 2dup i
23	count + c!
21	drop con: ;s
6699	(hashkey1) ;s r>
997	and ;s var:
3016	@ lit pick
1	fp@ user: !
6226	defer: col: defer:
52	<> col: col:
3	defer: drop ;s
19	>r drop col:
156	nip branch dup
71	@ ;s >r
427	?branch drop branch
3	@ ?branch !
7	i cells +
6	aligned ;s branch
56	@ swap con:
16	>r >r dup
1	nip execute 0<
121	<> swap con:
4	nip execute 0=
1005	tuck c@ xor
10	cell+ cell+ (loop)
5877	over @ over
243	col: ;s ;s
898	;s ;s con:
983	?branch 2dup swap
5	> col: col:
6416	! ;s dup
771	;s cr ;s
291	over cell+ !
27	drop r> col:
5	var: 2! 2*
66	nip ;s dup
292	;s dup field:
4	branch over >r
3	nip = ;s
47	>r col: col:
1876	;s >r ?branch
281	@ swap -
5	?branch 2dup 1-
20	swap var: @
6298	+! ;s c!
281	;s lit var:
795	code-address! ;s ;s
5	lit branch unloop
15	swap cmove 2dup
9	;s var: !
998	! var: @
1	cells allocate col:
1730	cell+ ! r>
132	execute col: var:
66	nip ;s user:
223	min /string over
3	dup lit u<=
68	2dup col: col:
997	>r 2dup 2dup
12	r> ?branch dnegate
5	2@ nip 1-
52	= ;s 0=
1481	over +! @
5	rdrop lit branch
12401	field: @ field:
1730	xor cells >r
125	lit 2swap dup
180	;s cell+ (loop)
3553	cells over +
32	>r >r >r
142	dup >r col:
292	var: ! defer:
11070	dup count +
22	dup @ cells
1	branch dup >r
51	?branch col: lit
1826	?branch 2drop ;s
1005	cell+ tuck c@
125	user: @ 0=
125	rdrop r> ?branch
647	move lit lit
1	lit (do) lit
80757	var: @ dup
66	dup var: 2@
1730	col: lit pick
1	?branch dup r>
898	?branch col: var:
8388	dup col: col:
5769	fp@ user: @
1	unloop 2drop drop
5	execute does: col:
2	execute col: 2dup
1	(loop) unloop var:
459	execute or col:
11070	+ aligned >r
148	user: @ u>=
666	! ;s cell+
15821	;s ;s dup
5	2! ;s var:
125	?branch drop 2dup
258	branch ;s ;s
3	execute lshift ;s
204	rot move drop
7	?branch defer: noop
287	2! var: 2!
33	col: r> /does-handler
28119	col: col: col:
997	r> col: dup
14	@ 1+ var:
105	rot over 1+
119	drop ;s user:
3779	;s var: @
223	swap r> col:
204	@ ;s over
2714	;s ;s var:
4080	col: @ @
9	var: 2@ nip
708	2! con: +
915	@ ! ;s
7262	defer: col: col:
506	lit max col:
2288	;s var: 2!
125	dup lit u<
506	col: >r tuck
1938	?branch dup @
41	! ;s branch
7	noop col: r>
3553	execute col: drop
1145	dup lit u>
5877	over @ r@
2516	user: @ ?branch
5730	c@ or swap
5166	xor and ;s
121	con: <> and
227	(f83find) ;s dup
133	?branch drop ;s
2713	swap col: lit
287	;s cr var:
1801	branch col: user:
1096	con: - dup
12	u<> ?branch drop
1416	aligned swap (?do)
1	?branch 2drop dup
10977	@ ;s con:
6249	- 1+ r>
5654	?branch nip nip
28	! cell+ var:
518	execute col: user:
506	;s ;s 2dup
197	con: (+loop) dup
3	col: cells var:
197	drop lit col:
1	rot drop ;s
281	;s (loop) i
1	! lit +
5	swap 2dup 1+
1097	;s ;s does:
5224	r> (loop) >r
13	col: col: does:
8	lit ! var:
3	@ ;s branch
4938	faligned ;s r@
1005	@ dup 0=
2989	lit pick !
125	@ dup 0>
5166	;s 0= 0=
1515	var: ! ;s
142	col: lit over
10	rdrop rdrop rdrop
13144	0= ?branch lit
2989	dup @ lit
287	;s lit defer:
3	or >r col:
223	1+ user: +!
915	col: con: over
5	>r col: swap
28	execute col: dup
196	code-address! ;s con:
1153	;s var: 2@
59	2rdrop branch ;s
16228	;s ;s ;s
647	col: var: count
5	c! col: does:
1989	c! ;s col:
1702	unloop ;s col:
647	;s 2@ col:
2048	lit pick +
689	col: r> dup
80515	@ dup var:
145	;s ;s drop
224	drop con: branch
61	;s @ r@
776	unloop ;s lit
506	col: >r lit
160	0= does: @
26	rdrop ;s col:
915	swap +! ;s
197	col: lit con:
2048	pick col: dup
647	c! var: count
286	drop branch lit
87	rdrop dup col:
5	2dup 1- +
61	= rdrop ;s
39	col: = 0=
1237	lit col: user:
1005	c@ xor swap
113	r> ?branch r>
1031	dup 0= col:
66	;s 1+ var:
637	col: drop swap
287	(emit) col: col:
227	col: col: @
6226	(parse-white) 2dup +
2	* ;s branch
6	?branch ;s >body
1806	+! swap user:
2	@ ;s var:
5730	+ c@ ;s
1876	>r ;s >r
6	>r ;s user:
281	user: @ swap
1732	lit pick @
1018	+! ;s ;s
148	count col: user:
10	0= ?branch rdrop
2818	over c@ r@
197	?branch con: (+loop)
574	@ var: (?do)
1	! ;s cells
5	branch unloop 0<>
647	i - lit
8	;s col: does:
15	;s r> user:
6325	>r user: @
647	lit swap (?do)
52	col: con: <>
291	@ con: >=
892	2dup col: lit
3553	(do) 2dup i
291	var: @ >r
1	col: con: 0=
1580	i con: col:
1842	lit user: !
440	! drop ;s
708	;s + rdrop
223	?branch 1+ user:
2	;s compare 0=
6249	@ ;s 2dup
1806	read-line col: ?dup
130	col: nip swap
1	tuck - lit
21	?branch con: min
768	var: 2@ col:
25	>r lit col:
647	var: nip unloop
287	0<> rot 0=
2777	?branch ;s col:
121	and col: col:
971	;s ?branch var:
689	>r @ col:
125	lit u< ?branch
27	xor invert ;s
600	col: >r con:
25	col: lit var:
52	u< ?branch =
1022	! ;s code-address!
5	c! 1+ col:
125	?branch 2drop rdrop
2	?branch dup defer:
7	execute ! ;s
5730	col: con: -
4938	c@ >r col:
506	lit + col:
1	cells col: lit
1	col: con: /
635	@ var: 2@
5	rdrop ;s nip
1	con: cells allocate
80726	+ swap ;s
1	i - unloop
2818	c@ r@ <>
997	lit and ;s
4938	dup c@ >r
1407	(+loop) unloop ;s
1616	rot cell+ swap
6249	1+ r> min
1806	lit user: +!
59	0= ?branch r@
2	2dup * allocate
281	col: dup negate
129	lit user: @
5	cells + 2!
180	dup @ col:
1	2* ;s branch
23	;s (loop) count
105	drop ;s col:
5	unloop ;s swap
6041	+! ;s col:
1421	col: dup does:
718	(+loop) i col:
14	over col: 2dup
3553	dup @ 1-
1436	0= col: col:
225	col: con: @
1	i 1+ col:
1616	rot rot cell+
1	execute mod ;s
1	;s >body @
958	@ lit r@
233	defer: noop col:
506	r> ;s rot
24	@ ;s does:
297	var: ! col:
7	?branch branch rdrop
23	rot dup con:
1730	drop r@ @
5739	c@ ;s ;s
268	and ?branch 0=
305	@ or swap
506	rot lit over
2	execute * ;s
41261	?branch lit col:
28	?branch con: -
105	over >r rot
10	+ -rot con:
4408	?branch defer: col:
2	branch lit pick
1730	lit cells lit
4080	var: col: @
7264	i 2@ over
287	0= rot 0<>
23	c! col: col:
291	2drop r> var:
125	0= ?branch user:
276	- dup lit
23463	+! ;s branch
3309	var: col: con:
3082	lit and col:
243	execute col: ;s
29805	;s ?branch lit
3	2dup and var:
506	r@ um/mod r>
54	2drop r> ;s
1122	col: @ (f83find)
647	min 2dup defer:
15	and ?branch con:
5	over >r lit
197	con: (do) dup
2658	dup ?branch 0>
1	user: ! over
6	user: @ =
1	- lit cells
1	2@ nip var:
2982	;s branch branch
11538	user: @ >
933	lit (s+loop) dup
10	rot over +
5877	cell+ swap cell+
2	col: dup !
12	user: @ user:
3553	+ (do) 2dup
204	>r cells sp@
2	0= col: 0=
574	0= and ?branch
1875	?branch col: user:
5	1- user: !
675	(loop) unloop drop
14	;s ?branch over
281	- col: dup
187	col: dup con:
3	! (next) var:
15	+ dup >r
105	col: over >r
16728	@ ;s +!
1	<> ?branch i
49	;s >r col:
23	;s count +
973	;s ?branch ;s
59	rot col: col:
4	lit swap 1+
80730	swap ;s col:
291	- var: over
289	! defer: col:
2	i col: cells
1	sp@ dup user:
1	execute + ;s
9194	>r ;s count
19	swap lit col:
1372	! ;s col:
997	col: >r 2dup
3576	swap ! ;s
66	con: ! col:
39	con: col: =
11	?branch ;s swap
767	- 1- dup
5166	lit xor and
280	?branch con: does:
789	?branch drop !
3	;s nip 0<>
5730	/ col: col:
1	var: 2@ 2*
507	+ @ execute
87	col: con: con:
2	+ (loop) unloop
8	lit col: var:
23	drop (parse-white) branch
1	execute 0< ;s
574	2swap swap (?do)
23	;s @ branch
1	;s lit branch
3435	?dup ?branch ;s
1730	0= ?branch >r
8	(loop) lit col:
394	faligned over lit
2837	col: dup @
3553	drop con: ?branch
225	r@ execute and
39	>r dup 0=
347	>r r@ col:
1478	(?do) unloop ;s
173	;s cr ?dup
15785	@ + ;s
1	branch (+loop) i
5730	or swap c!
19	;s cr 0=
84	dup @ swap
291	var: over cell+
59	drop ;s swap
119	u< ?branch drop
9166	;s ! ;s
708	+ ;s 2!
281	lit var: !
2874	@ ?branch col:
223	rdrop ;s >r
6	u< ?branch cells
3	lit u<= ?branch
14	@ var: !
27	execute col: xor
9	allocate col: ?dup
204	cells sp@ cell+
13	>r rp@ user:
30	user: ! r>
22	col: var: dup
646	;s @ var:
637	drop swap -
148	lit u> ?branch
941	! ! branch
6	col: r> user:
4	execute 0= ;s
1731	col: lit fill
3533	2drop lit (+loop)
2	(?do) dup lit
2375	dup does: @
82	char+ col: col:
1802	col: col: sp@
647	col: lit does:
133	;s lit lit
78	?branch con: branch
1	@ 1- dup
647	lit does: swap
3447	nip nip unloop
129	0= ?branch nip
121	swap con: <>
3356	2@ defer: (type)
146	c@ 0= ?branch
5	@ >r col:
708	+ rdrop ;s
231	swap col: col:
39	0= ?branch over
247	drop branch ;s
1	1+ dup var:
13	col: laddr# ;s
3	nip execute 1+
5924	;s branch col:
10	r> cell+ cell+
3	nip execute 1-
3435	@ ;s dup
197	(+loop) dup i
506	?branch lit +
5	2dup lit col:
56760	col: user: @
3915	+ ;s 2@
78	;s drop branch
3	?branch lit -
5769	col: sp@ user:
36920	@ var: @
194	;s ?branch 2dup
1	! ?dup ?branch
5	;s branch dup
75	! ;s swap
281	;s 0= col:
129	0= ?branch con:
394	+ = ?branch
5252	r@ execute col:
1	nip execute field:
566	lit over +!
6	var: + @
6436	@ ;s ;s
1437	negate ;s ;s
197	lit con: (do)
444	;s lit cells
1416	i col: dup
5166	col: lit xor
440	user: ! drop
23	+! ;s user:
106	lit (+loop) unloop
1421	lit col: >r
1730	r@ swap col:
1730	cells lit col:
395	?branch lit @
997	2dup r> col:
287	- rot rot
5	c@ ?branch con:
20366	;s dup ?branch
469	var: (?do) i
2655	;s + ;s
146	;s ?branch drop
1730	?branch >r drop
19	con: - swap
3874	does: @ col:
350	dup 0= lit
291	! lit var:
715	;s ?branch branch
124	cr ;s col:
5	?branch r> r>
4563	(type) ;s cr
153	lit cells col:
175	r> user: !
647	var: c! var:
1013	swap dup col:
19	char+ c@ ;s
473	drop col: col:
1250	(?do) con: col:
6	>r >r ;s
895	(f83find) ;s ;s
574	lit defer: (emit)
1296	;s does: @
105	1+ r> move
3843	user: ! lit
292	dup field: dup
10955	;s ;s 0=
6699	@ (hashfind) ;s
227	;s defer: noop
121	;s over -
979	(type) ;s ;s
147	@ um* d+
21	var: r> ;s
5	user: ! >r
506	>r lit r@
4938	;s r@ lit
6	dup ?branch rdrop
2158	over - ;s
958	0= ?branch @
197	i - con:
1578	+ aligned ;s
647	;s var: c!
19	drop >r drop
1	(?do) unloop 2drop
708	+ swap dup
28	cell+ var: !
10	! rdrop rdrop
37213	0= ?branch var:
1	/ 1+ dup
5	over r> tuck
5332	lit and +
1	= ?branch dup
2658	?branch 0> ?branch
227	noop ;s ;s
8	;s (loop) lit
4	count col: var:
11233	col: col: r>
15	r> + dup
647	(?do) dup i
304	con: does: @
287	2@ rot swap
305	;s over @
1255	(loop) unloop ;s
231	<> ?branch rdrop
130	2@ col: nip
140	con: ;s ;s
1	r> col: var:
6226	user: @ /string
6	r> user: @
5	1+ dup con:
1437	?branch negate ;s
1	nip var: 2!
1288	0< ?branch var:
506	col: 2drop col:
13223	+! ;s lit
1018	move ;s col:
53	- col: col:
997	?branch 2drop 2drop
33	r> /does-handler +
80415	?branch c@ ;s
125	?branch user: @
5730	does: + c@
2	nip execute >body
2	0= ?branch 2dup
311	! col: var:
1005	rdrop ;s cell+
78	branch ;s lit
2588	/string branch dup
837	@ 0= ?branch
4	branch ;s does:
4	rot (do) i
28	dup lit >=
3043	@ 0< ?branch
3	execute @ ;s
733	r> col: >r
5730	col: con: dup
291	;s rdrop ;s
708	lit pick does:
23	;s @ ?branch
5	+ 2! ;s
39	= 0= col:
3	does: 2@ ;s
6	swap 2dup r>
1416	swap dup r@
147	or ?branch con:
506	d0= ?branch ;s
574	;s var: var:
4	0= ;s branch
647	execute var: nip
1148	(type) ;s var:
105	var: (?do) unloop
197	0= ?branch drop
506	drop ;s defer:
125	2swap dup >r
15	2@ dup >r
287	rot rot -
6699	r> xor cells
2025	var: 2! ;s
719	2drop ;s ;s
87	1- >r r@
3421	@ does: @
997	col: cell+ count
506	>r col: dup
3775	?branch cell+ swap
1437	and ?branch negate
5	nip nip r>
15	open-file 0= ?branch
87	1+ within 0=
2	! user: !
708	;s 2! con:
5730	con: - ;s
6699	+ @ >r
6	2dup r> -rot
12	con: ! ;s
4080	@ @ ;s
1616	drop con: rot
4938	lit and 0=
1	lit (?do) var:
3553	lit col: drop
1	nip execute mod
708	;s execute col:
114	?branch ?dup ?branch
1	execute 2* ;s
156	branch dup @
1811	! lit user:
1	?branch lit (bye)
1806	@ ?dup ?branch
25	var: +! col:
80421	@ and 0=
82974	;s col: lit
6	?branch r@ user:
1	dup lit =
576	;s count ;s
196	con: col: lit
394	lit + =
11	2@ drop =
5877	swap r> (loop)
5877	cell+ swap r>
4	swap 1+ rot
36	+ ;s col:
1	execute field: ;s
4938	+ faligned ;s
6699	lit + @
246	@ over min
647	;s dup r>
305	over @ or
4	>r ;s ;s
5	swap c! 1+
708	@ ;s execute
305	lshift ;s over
4	1+ /string ;s
708	;s branch ;s
1634	;s 2@ defer:
16	lit lit ;s
394	over lit +
459	or col: col:
7	does-handler! ;s branch
1	2! col: var:
3967	branch col: sp@
372	;s col: defer:
1578	aligned ;s con:
291	defer: col: cell+
1153	max lit (?do)
3	nip execute 2drop
21	con: min >r
121	over - swap
11070	>r swap >r
47	execute con: ;s
7264	2dup i 2@
3	u> ?branch lit
231	?branch col: r>
16	! ;s r>
12	/string col: over
2337	var: @ ;s
506	- dup !
7	execute col: 0=
36916	;s col: 0=
4529	?branch col: dup
16	r> r> r>
80726	con: /mod cells
14	<> ?branch 2dup
6	! user: @
5	2dup + lit
1731	lit + dup
125	col: over c@
1730	@ over cell+
527	;s r> col:
1013	;s swap dup
280	?branch 0<> swap 0=
287	col: var: var: @
287	var: ! ;s lit
216	execute col: defer: defer:
28	?branch con: - dup
3980	0= ?branch lit r@
979	defer: (type) ;s ;s
708	+ rdrop ;s con:
873	;s col: lit lit
78	con: = ?branch col:
507	does: @ does: @
194	;s ?branch 2dup swap
1	col: lit (?do) unloop
201	col: ;s ;s branch
1	var: ! ?dup ?branch
1093	(?do) unloop ;s col:
121	@ ;s ;s var:
279	?branch ;s ;s 0=
233	;s c! does: @
3	;s ?branch execute does:
156	branch dup @ dup
275	;s ;s col: r>
5	rdrop ;s nip ?branch
647	lit min 2dup defer:
1	execute col: dup !
1730	var: @ + var:
6249	1+ r> min user:
506	;s col: 2drop col:
5730	- ;s con: /
16	lit lit ;s ;s
653	r> (loop) unloop drop
6	rdrop ;s var: !
5	cells + 2! ;s
5	;s branch dup ?branch
142	?branch faligned nip ;s
197	?branch i - con:
1	rot drop ;s nip
997	count lit and ;s
1806	?dup ?branch ;s branch
8	;s (loop) lit col:
5704	var: @ col: col:
3553	col: drop con: ?branch
1	(+loop) i col: cells
231	swap col: col: col:
11	?dup ?branch ;s swap
11070	dup count + aligned
30	user: ! r> user:
506	over < ?branch lit
689	col: r> dup cell+
506	r@ um/mod r> swap
45	?branch ;s col: user:
5730	+ swap does: +
5	@ var: @ 1+
41	0= and ?branch col:
647	cr ;s con: (+loop)
23	+! ;s user: @
915	col: lit swap +!
129	;s lit user: @
1	= ?branch dup var:
82	move c! ;s col:
647	col: var: count col:
3	?branch or >r col:
86	! does: @ col:
18	col: col: col: defer:
997	@ over ! var:
6249	2dup >r >r user:
16	code-address! ;s ;s r>
5166	r@ execute col: lit
147	u>= ?branch con: ;s
506	max col: >r lit
2124	does: @ + @
1	?branch ;s ?branch 2rdrop
125	r> user: ! ;s
3659	;s (loop) con: col:
883	var: ! ;s ;s
1	var: 2! col: var:
1730	and col: con: (hashkey1)
147	swap user: @ um*
60	;s col: con: @
160	c@ 0= or ?branch
223	min /string over swap
574	count ;s var: 2!
5	c! col: does: @
8	@ lit ! var:
1	2@ 2* cells col:
196	con: col: lit lit
2	drop con: ;s ?branch
102	+! ;s ;s branch
121	;s con: = ?branch
124	(loop) unloop lit branch
2989	@ lit pick !
154	col: col: col: con:
446	?branch ;s col: 2drop
647	;s ;s dup >r
6	;s var: ! col:
997	@ col: >r 2dup
6699	>r 2dup col: con:
291	lit var: +! var:
938	swap (?do) i col:
16	;s r> r> col:
173	@ col: col: user:
1806	?dup ?branch read-line col:
717	;s con: (+loop) i
279	@ dup r@ =
1	execute swap ;s branch
3553	cells over + (do)
976	?branch var: @ col:
4514	lit and ?branch r>
5	2! ;s ;s con:
3	2@ ;s con: branch
1	- ?branch dup user:
951	0> ?branch nip nip
1	?branch execute con: con:
31	;s col: r> /does-handler
19	col: >r >r lit
915	@ ! ;s ;s
28	?branch rdrop ;s tuck
1806	;s con: user: @
1	var: @ ;s over
5	col: dup ?branch r>
1730	rot ! r@ swap
506	r> ;s rot lit
892	+! ;s ;s ;s
1	rdrop ;s var: @
227	;s dup 0= ?branch
997	@ ! branch ;s
552	! ;s col: col:
1730	@ + var: @
997	2drop 2drop ;s var:
28	! cell+ var: !
1416	+ ;s ! r@
36915	0= ;s ;s col:
16	dup >r col: col:
18	lit ;s col: con:
1616	0= ?branch rot drop
85066	col: col: var: @
25	execute col: col: lit
1	2@ lit (?do) unloop
506	lit max col: >r
1730	>r var: lit cells
59	?branch 2rdrop branch ;s
1	swap ;s 2dup col:
3	does: 2@ ;s con:
2	dup defer: col: cell+
728	user: col: con: swap
224	?branch drop con: branch
287	2@ defer: (type) lit
132	col: var: col: col:
446	0< ?branch ;s col:
52	?branch = ;s 0=
12401	@ field: @ execute
4938	;s dup ?branch col:
8	;s col: does: @
3	;s con: branch ;s
6	nip nip execute aligned
49176	col: user: @ ;s
61	@ = rdrop ;s
87	con: con: 1+ within
12	drop ;s dup col:
2818	?branch over c@ r@
1806	read-line col: ?dup ?branch
3	1+ var: 2@ nip
574	@ col: swap (?do)
127	var: +! ;s col:
24	! con: does: @
3533	<> ?branch drop 2drop
8321	;s @ ;s lit
15	dup >r con: open-file
225	r@ execute and 0=
2853	;s @ does: @
196	code-address! ;s con: col:
3025	col: user: @ ?dup
647	var: count col: col:
19	>r lit col: 1+
6298	;s +! ;s c!
25	0= var: @ and
19	@ ;s ;s char+
1	(loop) unloop var: @
5	r> user: ! col:
111	and ?branch col: col:
194	;s ;s ?branch 2dup
1	?dup ?branch 1- (for)
23	r> ;s (loop) count
3980	and 0= ?branch lit
6	drop con: branch ;s
24	var: @ ;s does:
3	col: lit col: 0=
689	r> dup cell+ >r
231	<> ?branch rdrop ;s
136	drop r> ;s r@
4	;s lit swap 1+
997	?branch 2drop 2drop ;s
196	;s con: col: lit
280	0= and ?branch 0<>
6	r> user: @ >r
15	cmove var: over r>
8	var: var: ! ;s
789	dup ?branch drop !
223	/string over swap r>
81	col: col: defer: col:
2	drop col: r> /does-handler
506	- dup ! ;s
14	r@ col: does: @
13	;s ;s r> ;s
506	tuck - ;s r>
287	2@ var: 2@ rot
13	execute col: col: does:
18	con: lit ;s col:
36	@ >r user: @
1	swap col: 2dup con:
19	;s ;s col: >r
387	?branch lit @ execute
21	var: r> ;s ;s
9	var: ! ;s col:
130	nip swap - 1-
506	@ tuck - ;s
654	;s col: var: col:
507	;s + @ execute
6	+! user: @ user:
224	= ?branch drop con:
708	i col: >r swap
5	;s c@ ?branch con:
305	;s over @ or
31	user: ! ;s var:
125	= dup >r ?branch
2048	! ! ;s lit
147	@ u>= ?branch con:
125	@ dup 0> 0=
708	@ ;s + rdrop
146	;s ;s ?branch drop
305	over @ or swap
53	execute drop ;s branch
2	0= col: 0= ?branch
506	>r tuck dabs col:
26	nip execute col: con:
506	;s 2dup d0= ?branch
506	?branch lit + col:
647	r> does: @ +
16	lit lit lit lit
25	;s dup 0= col:
21	var: r@ cmove var:
5732	;s ;s over c@
647	max lit (?do) i'
574	var: @ col: swap
1	var: col: dup !
997	?dup ?branch 2drop 2drop
27	;s r> drop col:
3	2dup and var: @
245	col: 2dup col: lit
6	execute aligned ;s branch
13	drop col: var: col:
20	swap var: @ lit
6226	(parse-white) 2dup + r>
7575	user: @ ;s user:
13	col: col: con: col:
12	;s ;s con: !
647	drop ;s ;s defer:
647	! does: @ +
1	(next) unloop ;s ;s
291	var: @ 0= ?branch
281	= ?branch branch drop
43	?branch con: ;s lit
1416	! r@ does: @
5	?branch ;s >body user:
5	nip 1- user: !
80726	lit swap lshift ;s
8	var: @ lit !
6	cells var: + @
3553	drop var: dup @
12	>r ?branch lit /string
1416	@ ;s dup aligned
5	?branch rdrop ;s nip
5	col: var: 2@ tuck
25	var: +! col: var:
394	+ faligned over lit
1	;s 2dup col: var:
17	;s r> col: col:
180	dup @ col: col:
829	rdrop ;s ;s con:
4	rdrop ;s lit swap
1022	! ;s code-address! ;s
9586	;s con: col: col:
148	dup lit u> ?branch
52	col: con: <> col:
237	col: >r dup ?branch
25	1- var: 2! ;s
16	>r >r dup >r
56	dup @ swap con:
38	r@ pick r@ pick
7	;s branch con: defer:
27	col: xor invert ;s
7	nip nip execute !
4	col: col: lit var:
11374	col: dup field: @
1616	drop con: rot rot
1	?branch ;s >body @
4938	?branch col: cell+ dup
647	unloop drop ;s ;s
861	col: var: 2@ var:
291	@ dup ?branch 2drop
6	r@ user: +! user:
80421	swap @ and 0=
288	;s var: 2! col:
5	?branch rdrop ;s over
160	;s cell+ (loop) dup
21	user: @ ?branch con:
1	+ ;s branch col:
27	;s ;s r> drop
1	dup ?branch 2drop col:
6276	>r >r user: @
59	;s branch over 0=
43	= ?branch var: @
647	;s dup r> does:
34	! col: col: user:
19	;s ;s drop con:
4	branch ;s does: @
291	var: @ con: >=
1731	col: lit fill ;s
441	drop ;s ;s branch
54	;s >r var: @
2	nip nip execute *
291	?branch ;s lit cells
938	(?do) i col: dup
307	;s dup does: @
1	nip nip execute +
4938	and + faligned ;s
28	+ ;s col: r>
5	?branch r> r> user:
1730	tuck cell+ ! r>
31	! ;s branch ;s
5	dup con: > col:
287	0= swap 0<> and
1616	rot rot cell+ swap
8	unloop ;s ;s branch
1732	@ ?dup 0= ?branch
173	con: @ col: col:
5	2! ;s var: 2@
5	;s >body user: @
1580	i con: col: col:
1	;s ?branch 1- i'
1730	con: (hashkey1) ;s xor
121	;s ;s con: =
227	@ (f83find) ;s dup
1	lit = ?branch lit
3533	over <> ?branch drop
11	con: ! ;s ;s
469	@ var: (?do) i
35	>r col: 2dup col:
689	>r @ col: col:
147	d+ r> ;s (loop)
28	;s ;s col: con:
53	;s ;s over col:
113	?branch r> user: !
234	nip execute col: lit
402	?branch does: @ col:
1	var: @ lit >
59	rot col: col: col:
1	noop ;s r> col:
950	@ does: @ col:
653	lit (do) >r over
3553	+ (do) 2dup i
1250	swap (?do) con: col:
73	nip execute col: var:
566	lit over +! @
1	(?do) var: cell+ i
789	@ dup ?branch 2dup
291	col: cell+ dup @
1	0= r> or ?branch
22	;s ;s swap col:
457	col: defer: col: defer:
5730	+ c@ ;s ;s
2	count ;s compare 0=
305	col: swap col: con:
440	?branch defer: col: col:
10	?branch rot over +
6699	@ (hashfind) ;s ;s
5769	> ?branch fp@ user:
246	@ over min /string
287	swap 0<> and ?branch
152	dup ?branch ;s ;s
1737	2! ;s lit col:
3	cells + @ (loop)
1	open-file col: col: r>
708	code-address! ;s ;s col:
15	>r con: open-file 0=
647	execute var: nip unloop
1	user: @ >r var:
223	col: >r defer: col:
13	user: @ >r rp@
3	nip execute @ ;s
147	?branch con: ;s ?branch
1	col: 2dup con: swap
653	(do) >r over @
75	r> col: col: col:
236	0<> and ?branch ;s
1	/ ;s var: 2!
3	nip nip execute @
6226	@ /string (parse-white) 2dup
125	! ;s over c@
204	cell+ rot move drop
125	swap ! ;s over
506	lit (?do) unloop drop
47	;s col: 2dup col:
61	execute var: @ does:
5	swap 2dup or col:
2202	?branch nip nip execute
4909	;s c! ;s (loop)
4938	r@ lit and 0=
11	1+ var: 2@ drop
789	@ dup ?branch drop
2	?dup 0= ?branch 2dup
33	user: @ ;s does-code!
6	r> -rot move ;s
28	dup @ swap var:
2	nip execute col: 2dup
311	! ;s lit col:
35	@ ?branch var: @
3	var: 2@ nip =
32	r> r> col: col:
197	?branch con: (+loop) dup
68	drop r> ;s rdrop
2	<> ?branch ;s ;s
5	@ execute col: dup
6	dup ?branch rdrop ;s
18	c@ 0= ?branch col:
28	<= ?branch con: -
16	@ ;s >r col:
3	nip execute lshift ;s
3	?branch ;s nip 0<>
23	@ ;s count +
511	;s lit col: >r
156	?branch nip branch dup
2	(loop) unloop drop branch
2048	lit pick col: dup
2488	col: user: @ ?branch
626	?branch col: col: r>
39	= 0= col: col:
2	branch @ dup @
1730	r> ;s tuck cell+
12	swap ! ;s con:
15	swap cmove var: over
1153	swap lit max lit
6912	defer: col: col: user:
8	! ;s branch col:
647	2@ col: col: dup
3	;s +! ;s ;s
1	?branch r> col: var:
5	;s ?branch ;s r>
1	@ u>= ?branch drop
5	dup ?branch 2dup 1-
156	nip branch dup @
789	?branch col: dup @
708	;s ?branch branch lit
66	col: dup con: !
959	;s ;s col: var:
11	2@ drop = ;s
3533	2drop lit (+loop) 2dup
7	@ ;s /does-handler col:
147	swap >r swap user:
7	?branch rdrop ;s var:
66	dup var: 2@ col:
3	- dup lit u<=
3553	execute col: drop con:
6249	min user: ! ;s
1	;s compare 0= r>
1580	con: col: col: dup
281	;s (loop) i over
1002	;s user: ! lit
3420	+! ;s ! ;s
13	user: ! execute col:
1730	drop r@ @ rot
119	lit u< ?branch drop
23	dup con: = ?branch
305	lshift ;s over @
468	lit lit ! user:
7	execute ! ;s branch
11374	dup field: @ field:
11070	col: r> r> dup
125	c@ lit = dup
708	;s ;s ?branch branch
148	toupper lit - dup
997	col: defer: defer: col:
287	;s 2dup var: 2!
5	branch unloop 0<> lit
19	;s r> r> rot
4	lit /string branch over
647	;s 2@ col: col:
10	r> user: ! rdrop
111	execute col: var: col:
708	lit pick does: @
287	rot 0<> and ?branch
24	execute col: col: con:
647	count col: col: col:
2989	lit pick ! !
6646	col: col: dup field:
204	>r cells sp@ cell+
3967	;s branch col: sp@
1	col: var: @ 1-
281	lit var: ! ;s
121	col: dup col: dup
473	dup ?branch drop col:
28	! ;s ;s r>
5	+ ;s c@ ?branch
2	var: ! ;s branch
704	;s 0= ?branch ;s
4	drop ;s swap 1+
7	nip execute col: 0=
3	1- ;s branch col:
5	unloop 0<> lit and
28	lit >= col: col:
61	;s @ = rdrop
150	2drop ;s does: @
5730	col: lit /mod rot
5	;s col: col: lit
599	rot rot r> var:
12	?branch over col: lit
429	(type) ;s cr rdrop
80421	and 0= 0= ;s
1	drop ;s nip ;s
25	- ;s 1- var:
2	;s over lit (?do)
599	r> var: @ lit
20	@ ;s swap var:
125	col: over c@ lit
125	c@ lit - dup
3	execute @ ;s branch
87	con: * 1- >r
80428	;s col: col: con:
21	@ ?branch con: min
1771	?branch col: col: col:
1031	dup 0= col: col:
294	dup ?branch col: col:
128	;s 2drop ;s does:
6699	lit + @ >r
196	;s code-address! ;s con:
125	lit lit 2swap dup
8	swap ! ;s var:
5	! col: ?dup ?branch
291	2drop r> var: !
68	r> ;s rdrop dup
4938	dup c@ >r col:
16	col: >r >r >r
958	0= ?branch @ lit
125	;s user: @ 0=
647	min 2dup defer: (type)
197	drop lit col: lit
2	over lit (?do) dup
53	;s - col: col:
5730	/mod rot + swap
637	var: 2@ col: drop
880	+ ;s ! does:
19	drop col: var: @
18	+ ;s ! col:
66	2drop branch ;s branch
18	;s ! col: var:
28	;s ! ;s +
5730	con: dup @ +
1	;s col: 2swap 2dup
129	lit user: @ col:
1730	lit col: lit pick
28	@ swap var: !
19	;s ;s col: drop
1416	;s dup aligned swap
126	dup >r col: lit
204	col: dup 1+ pick
11	nip execute cells ;s
5	swap 2dup 1+ var:
13223	var: +! ;s lit
33	con: col: col: defer:
1923	+ @ ;s +
666	;s ! ;s cell+
421	+ ;s c@ col:
1	col: con: / 1+
1875	?branch col: user: @
13	?branch drop ;s dup
142	over 0<> ?branch faligned
5	user: ! >r ;s
39	0= ?branch over 0=
8	?branch var: col: con:
25	?branch rdrop ;s 0>
226	! ;s ;s defer:
142	0<> ?branch faligned nip
3	nip execute 1+ ;s
5	2dup or col: dup
106	2drop con: ;s ;s
506	um/mod r> ;s rot
1	2! ;s ;s ;s
997	?branch var: @ @
227	defer: noop ;s ;s
36913	@ <> ?branch lit
23	@ branch ;s col:
1616	?branch rot drop con:
20	(do) dup @ col:
1	branch dup >r col:
2046	(loop) dup lit pick
121	over - swap !
915	over +! @ !
8	lit ! var: var:
3447	dup ?branch nip nip
148	= ?branch toupper lit
979	(type) ;s ;s col:
506	0< ;s r> col:
19	pick r@ pick rdrop
1	;s >r over >r
15	;s ;s ;s var:
1	dup user: ! over
23	+ ;s @ branch
1	execute field: ;s branch
365	execute col: col: var:
22	branch ;s r> ;s
227	execute col: col: @
37205	0= ?branch var: @
2	dup @ ?branch dup
9	?branch col: dup col:
1437	?branch negate ;s ;s
653	@ lit (do) >r
2	execute * ;s branch
120	;s 2drop ;s ;s
708	over - ;s lit
3	swap ! ;s user:
2471	@ does: @ +
1	nip execute swap ;s
2	/string ;s ;s over
2583	(type) ;s cr col:
26	swap drop branch ;s
8	0= ?branch var: col:
7264	i 2@ over <>
4938	>r col: count lit
36915	var: @ <> ?branch
350	;s col: dup lit
15	execute col: >r col:
279	;s ?branch r@ col:
1012	;s con: - dup
34	cr ;s col: var:
1	var: ! var: !
143	drop branch ;s dup
1	swap ;s branch col:
145	u> ?branch dup user:
223	dup r> ?branch 1+
6	>r >r ;s user:
20	@ lit (do) dup
11070	count + aligned >r
1013	swap dup col: col:
6226	defer: col: defer: col:
1730	?branch @ over cell+
5	lit swap c! 1+
23	col: lit lit col:
113	?branch col: over c@
3659	(loop) con: col: col:
19	swap lit col: 1+
16	lit lit lit ;s
21	r@ cmove var: r>
78	swap ! ;s drop
1	-rot move ;s drop
1730	@ rot ! r@
2009	;s cr col: col:
1	;s compare 0= >r
3	nip execute 2drop ;s
6702	var: @ + @
2828	;s col: col: var:
2183	@ execute col: col:
82	char+ col: col: user:
60	;s ;s col: 2drop
19	;s drop con: ;s
5769	> ?branch ;s defer:
2	execute col: 2dup col:
5	con: > col: col:
51	?branch col: lit col:
5730	or swap c! ;s
1251	?branch lit and ?branch
3553	1- cells over +
1546	;s ;s col: lit
128	0= ?branch con: does:
197	col: lit con: (do)
789	drop ! ;s var:
11538	user: @ > ?branch
7	?branch defer: noop col:
10491	;s ;s 0= ?branch
3	@ ?branch ! ;s
647	unloop ;s dup r>
647	! ;s dup col:
1	(?do) unloop lit branch
5877	>r over @ over
4	;s swap 1+ rot
156	@ dup ?branch nip
3	col: cells var: @
15	@ and ?branch con:
708	pick does: @ +
5758	(hashfind) ;s ;s dup
122	;s var: @ ?branch
279	;s execute var: @
7	con: defer: noop ;s
6	user: @ = ?branch
61	+ ;s @ r@
1247	;s ;s + @
911	faligned swap (?do) con:
10	?branch rdrop drop r>
2158	col: var: @ over
29	;s over col: col:
2852	;s ;s ;s ;s
6699	execute col: lit +
115	con: ;s ;s ;s
66	! ;s ;s 2drop
1	1- dup 0= col:
142	col: lit over 0<>
148	dup user: @ u>=
16	;s >r col: col:
27	invert ;s col: col:
506	- dup @ tuck
1247	;s + @ ;s
33	@ ?branch col: col:
19	;s cr 0= swap
66	@ dup var: 2@
599	con: rot rot r>
1	col: var: 2@ lit
3	var: @ ;s lit
4	(do) i over col:
1	unloop var: @ ;s
19	>r >r lit col:
1416	dup aligned swap (?do)
24	@ ;s does: @
1260	;s c! ;s col:
121	;s over - swap
121	;s ;s ;s drop
1	execute col: lit user:
2	@ ;s var: !
2048	;s lit pick +
291	over cell+ ! dup
4	;s col: col: 2dup
997	dup faligned swap (?do)
1	;s defer: noop var:
1	nip var: 2! ;s
4	branch over >r lit
2003	?branch ;s col: col:
27	;s - dup ?branch
18	?branch ?dup ?branch col:
1	@ con: cells col:
1	lit > ?branch con:
890	@ ;s col: col:
1	execute col: con: /
394	- count lit and
1357	?dup ?branch ;s ;s
16	>r dup >r col:
1	var: ! var: @
1386	! ;s ;s dup
647	defer: (type) col: lit
3	branch ;s ;s does:
3	;s ?branch col: does:
2	nip execute drop ;s
1730	;s xor cells >r
839	(f83find) ;s ;s dup
933	?branch lit (s+loop) dup
653	swap r> (loop) unloop
3775	?branch cell+ swap cell+
1	;s @ ;s r>
6249	col: defer: col: col:
197	lit col: lit con:
11070	r> dup count +
1	?branch dup user: !
223	- dup r> ?branch
28	! ;s + ;s
119	drop ;s user: col:
1806	user: +! swap user:
15	?branch con: ;s ;s
6	! lit /string branch
66	;s 2drop branch ;s
23	+ c! col: col:
506	rot lit over <
287	rot 0= and ?branch
5877	cell+ swap r> (loop)
8	! ;s var: @
1	! ;s rp@ user:
152	c! ;s con: col:
280	?branch con: does: @
39	col: con: lit ;s
3	nip execute 1- ;s
13	lit col: >r sp@
934	! ;s ;s var:
287	2! var: 2! ;s
18	0= ?branch col: var:
291	@ >r var: col:
47	execute con: ;s branch
22	var: dup @ cells
80478	col: var: @ dup
6226	>r user: @ /string
647	;s ;s defer: (type)
287	2! col: col: r>
10	con: swap read-file ?branch
24	;s col: lit user:
124	0> 0= ?branch nip
4	;s col: dup count
1	nip nip execute mod
3	(next) var: cell+ i
31	;s code-address! ;s lit
125	user: ! ;s user:
80726	con: /mod cells rot
281	negate user: +! lit
142	lit over 0<> ?branch
287	swap 0= and ?branch
394	over lit + =
997	over ! var: @
5	open-file 0= ?branch nip
15	swap cmove 2dup var:
1407	;s con: (+loop) unloop
2156	lit @ execute col:
25	;s over col: lit
78	! ;s drop branch
1	rp@ user: ! fp@
7	= ;s ?branch branch
647	lit swap (?do) dup
276	lit - dup lit
1	;s lit branch (+loop)
19	;s char+ c@ ;s
1769	;s lit @ execute
113	>r ?branch col: over
933	lit (s+loop) dup i
708	col: >r swap dup
16	r> r> r> col:
23	;s count + c!
105	>r rot over 1+
506	dabs col: col: col:
3	lshift ;s branch col:
2587	r@ <> ?branch lit
51	execute col: lit lit
6	;s @ var: !
1148	;s var: 2@ defer:
1737	var: 2! ;s lit
1	;s ! ;s cells
197	i - con: -
3716	;s col: col: user:
21	execute col: dup col:
1	con: ! ;s branch
113	r> ?branch r> user:
5	var: @ 1+ dup
287	0<> rot 0= and
9	con: <> ?branch 2dup
13	col: col: does: @
4	cells + ! (next)
13	;s >r user: @
287	cr cr ;s ;s
1	r> or ?branch 2drop
16	;s swap over col:
143	?branch drop branch ;s
281	user: +! lit over
13	swap >r fp@ >r
80726	+ swap ;s col:
30	user: ! col: col:
5	tuck - dup ?branch
1801	dup ?branch 2drop ;s
5	;s ;s con: col:
5224	swap r> (loop) >r
1250	c! ;s (loop) unloop
712	;s ;s ?branch execute
291	r> var: ! ;s
10	char+ c@ ;s col:
47	nip execute con: ;s
28	@ dup lit >=
6	branch dup ?branch rdrop
10	lit col: col: defer:
13	col: laddr# ;s >r
965	col: >r r@ does:
287	2@ rot swap -
287	;s lit defer: (emit)
4080	var: col: @ @
997	col: dup lit u>
11070	aligned >r swap >r
4	execute col: swap col:
5877	@ over @ r@
1730	over cell+ count lit
1639	;s var: @ col:
7	;s /does-handler col: col:
6	user: @ user: !
225	execute and 0= 0=
475	! user: col: con:
5769	! ;s dup ?branch
148	?branch dup user: @
237	>r dup ?branch over
5	> col: col: r>
152	c! col: var: col:
2	lit (?do) dup lit
1005	col: user: @ dup
5	?branch nip nip r>
1	col: >r con: open-file
1747	execute col: lit col:
39	drop r> drop ;s
941	pick ! ! branch
1	con: <> ?branch drop
15	con: ;s ;s does:
6702	cells var: @ +
574	col: var: @ var:
1	;s dup ?branch rot
54	;s @ ;s col:
566	- lit over +!
1	! ?dup ?branch 1-
36913	?branch lit var: +!
6	nip execute aligned ;s
1730	r@ @ rot !
5730	col: col: con: dup
647	var: nip unloop ;s
14	?branch over col: 2dup
647	var: count move lit
3711	lit (+loop) 2dup i
5	;s swap 2dup 1+
35	r> ;s ;s does:
53	nip execute var: ;s
1876	>r ?branch rdrop ;s
421	0= ?branch does: @
2	drop branch lit pick
1732	lit pick @ ?dup
28	rdrop ;s tuck !
3187	col: ?dup ?branch ;s
708	;s ;s con: (+loop)
1	var: 2@ nip var:
25	rdrop ;s 0> ?branch
5	;s @ var: @
272	defer: (type) ;s rdrop
341	@ execute col: does:
1730	(hashkey1) ;s xor cells
15	con: open-file 0= ?branch
52	- col: col: col:
37708	?branch lit col: col:
1251	;s dup ?branch lit
5	+ 2! ;s var:
23	;s @ ?branch does:
11	col: col: var: dup
1	lit (?do) unloop 2drop
86	?branch does: @ does:
6	@ = ?branch r@
997	?branch col: cell+ count
6	;s col: defer: noop
51	+ @ execute drop
1662	0> ?branch col: col:
915	+! @ ! ;s
1	?branch 1- (for) var:
6	col: col: r> user:
1806	branch lit user: +!
3	nip = ;s ?branch
506	c! ;s ;s 2dup
3025	@ ?dup ;s ?branch
61	! branch ;s con:
312	dup does: @ col:
11	?branch ;s swap 2dup
1	lit + dup user:
2037	nip nip execute col:
12	@ col: 2dup u<>
6	?branch r@ user: +!
287	2! var: var: @
5834	;s +! ;s col:
5769	sp@ user: @ >
574	?branch col: var: !
3	execute 1- ;s branch
997	u> lit and col:
933	?branch ;s ?branch lit
3731	?branch col: dup field:
325	;s col: lit col:
287	(type) ;s lit defer:
19	r> rot col: con:
5769	col: sp@ user: @
5769	user: ! ;s dup
6	user: @ user: @
1022	col: lit >code-address ;s
218	drop con: branch rdrop
71	;s @ ;s >r
12	;s con: @ col:
6298	+! ;s c! ;s
7	rdrop ;s col: col:
473	?branch drop col: col:
1580	dup i con: col:
740	+ @ ;s col:
341	execute col: does: @
6699	@ >r 2dup col:
291	! lit var: +!
3	nip nip execute lshift
147	or ?branch con: does:
3874	@ ;s ;s +
5	1- user: ! lit
281	user: @ swap -
11	cells + ;s !
61	+ ;s @ =
280	and ?branch 0<> swap
52	2dup u< ?branch =
647	count move lit lit
2	* allocate col: ?dup
15	cmove 2dup var: r@
5	lit <> ?branch 2dup
6699	col: lit + @
5	1+ dup con: >
5769	fp@ user: @ >
5730	dup @ + ;s
1	;s user: ! user:
59	;s ;s rot col:
5	?branch 2dup + lit
15	dup >r 2@ dup
15	var: swap cmove 2dup
285	i over col: swap
20	lit (do) dup @
4	r> col: >r ;s
5769	@ > ?branch ;s
245	2dup col: lit col:
291	con: >= ?branch ;s
2588	lit /string branch dup
5	col: 2dup lit col:
506	r> over - does:
284	?branch drop branch lit
204	pick >r cells sp@
39	0= 0= ?branch swap
1	defer: noop var: @
4938	col: cell+ dup c@
1	dup >r lit col:
80726	cells rot + swap
197	(do) dup i -
87	col: 1+ con: *
5	;s 2! ;s branch
287	cr var: 2@ defer:
9	char+ c@ ;s ;s
2046	+ (loop) dup lit
87	rdrop dup col: con:
13	or ?branch drop col:
31	swap ! ;s branch
851	! ;s ;s branch
20	execute col: con: col:
124	;s (loop) unloop lit
56	! cell+ tuck !
61	var: @ does: @
10	! rdrop rdrop rdrop
121	swap con: <> and
1	! (next) unloop ;s
125	@ 0= ?branch user:
19	;s swap con: -
3980	?branch lit r@ lit
647	>r does: @ +
268	0<> and ?branch 0=
1	;s swap col: 2dup
1730	col: lit pick @
1	user: ! fp@ user:
708	+ swap dup r@
287	! col: var: !
305	swap lshift ;s over
197	lit con: (do) dup
2	?branch ;s over lit
708	@ ;s + swap
20	cell+ (loop) unloop drop
1769	;s ;s 2drop ;s
87	1+ within 0= col:
506	user: @ lit max
2	?dup ?branch ;s over
226	;s defer: noop ;s
147	;s @ col: 2dup
6	u< ?branch cells var:
637	drop swap - 1-
2	pick + (loop) unloop
19	>r drop col: var:
2	;s 0= col: 0=
265	;s rdrop ;s cr
647	lit ! ;s ;s
10055	does: @ + ;s
80415	= ?branch c@ ;s
712	?branch ;s ;s ?branch
647	(?do) dup i con:
933	;s ?branch lit (s+loop)
59	0= 0= ?branch r@
56	branch ;s ;s col:
19	?branch col: var: @
6088	swap c! ;s ;s
469	col: swap (?do) i
4	0> ?branch col: r>
1	lit cells / ;s
66	! col: lit over
287	- ;s 2dup var:
1	;s >r col: defer:
1515	var: @ col: lit
1	var: @ ?branch r>
33	;s ;s >r col:
5	! ;s ?branch ;s
125	user: @ 0= ?branch
647	+ ;s 2@ col:
958	@ lit r@ lit
292	field: dup var: !
1	sp@ dup user: !
997	;s dup faligned swap
15	code-address! ;s ;s ;s
204	cells sp@ cell+ dup
11	var: 2@ drop =
82	+! ;s col: over
1437	lit and ?branch negate
506	unloop drop ;s defer:
11	cells + ;s @
23	over min /string rot
1801	! ;s ?branch col:
223	;s >r over -
27	@ lit pick col:
66	;s @ dup var:
459	or col: col: col:
381	! ;s col: dup
2063	dup does: @ +
6	@ = ?branch drop
19	cr 0= swap 0<>
16	>r >r >r dup
3018	dup @ 0< ?branch
693	execute col: >r r@
287	2! ;s col: col:
160	;s 0= does: @
226	col: defer: noop col:
13	sp@ r> swap >r
154	cells col: col: user:
1722	var: 2@ defer: (type)
156	;s branch col: var:
1163	;s @ ;s swap
289	dup var: ! col:
3501	lit and ?branch ;s
5	tuck 1+ 2* cells
5	2@ tuck 1+ 2*
281	(loop) i over col:
1	1- (for) var: cell+
9	u>= ?branch col: dup
3711	(+loop) 2dup i 2@
2	* ;s branch col:
9194	con: col: col: user:
1578	+ aligned ;s con:
3	nip nip execute 2drop
2	(?do) dup lit pick
3	dup lit u<= ?branch
1926	;s dup ?branch 2drop
52	con: <> col: col:
3	@ and ?branch or
5	1+ 2* cells resize
14	col: does: @ +
287	(type) ;s cr cr
861	var: 2@ var: 2@
941	@ col: lit +
161	user: @ >r user:
87	col: con: con: 1+
1876	;s >r ?branch rdrop
506	rot col: 0< ?branch
647	lit ! ;s dup
16	+ ;s ! ;s
15	>r var: swap cmove
147	col: swap >r swap
121	con: <> swap con:
265	?branch r@ col: >r
178	branch lit (+loop) 2dup
148	user: @ lit =
13	fp@ >r col: laddr#
54	2drop r> ;s ;s
3775	0= ?branch cell+ swap
59	;s ;s branch over
227	col: col: @ (f83find)
33	;s does-code! ;s ;s
506	;s r> over -
915	col: con: over +!
130	2@ col: nip swap
22	drop branch ;s r>
6699	con: (hashkey1) ;s r>
1	move ;s drop var:
5	1+ var: 2! 2*
5	;s nip ?branch var:
2882	+! ;s branch branch
771	(type) ;s cr ;s
287	col: col: var: ;s
8	?branch lit @ var:
128	;s branch ;s ;s
204	dup cell+ rot move
105	;s drop ;s col:
1	nip nip execute swap
82	branch ;s ;s ;s
15	var: over r> +
66	2dup col: col: user:
1022	lit >code-address ;s col:
279	;s 0= col: col:
2048	pick col: dup @
281	;s lit var: !
1005	user: @ dup 0=
114	- ?dup ?branch ?dup
23	@ ?branch does: @
80726	;s col: lit swap
125	user: @ dup 0>
21	>r var: r@ cmove
2	0= ?branch 2dup *
19	pick rdrop dup col:
3447	?branch nip nip unloop
1	/string ;s var: 2!
41	(?do) unloop ;s lit
506	2dup d0= ?branch ;s
39	dup 0= ?branch over
2	+ @ (loop) var:
1730	cells lit col: lit
5730	;s swap col: con:
6	>r lit col: >r
197	0= ?branch drop lit
5	move ;s col: var:
694	cr rdrop ;s ;s
3	;s drop ;s does:
1	nip ;s ;s branch
1250	(?do) con: col: col:
506	;s rot lit over
12	dup >r ?branch lit
5332	count lit and +
274	;s does: @ does:
28	var: @ dup lit
14	?branch r@ col: does:
36923	col: 0= ?branch var:
125	(?do) count col: user:
136	r> ;s r@ col:
6699	+ @ (hashfind) ;s
647	(+loop) unloop drop ;s
2025	user: ! lit col:
7	cr 0<> swap 0=
647	2dup col: lit swap
39	execute col: col: dup
66	dup con: ! col:
1	up! sp@ dup user:
6	?dup ?branch ;s var:
1806	;s branch lit user:
1	compare 0= >r 2dup
599	lit col: >r con:
1	unloop ;s dup ?branch
1	1- i' i -
5	close-file swap 2dup or
148	?branch toupper lit -
506	;s ;s 2dup d0=
36916	;s col: 0= ?branch
1730	?branch >r drop r@
106	lit (+loop) unloop 2drop
105	1+ r> move c!
12	rdrop r> ?branch dnegate
3652	unloop ;s ;s ;s
997	@ ;s dup faligned
1	! col: var: 2@
8	;s ;s lit lit
1	r> - ?branch dup
1	>r over >r lit
12	2dup u<> ?branch drop
4	execute col: con: swap
8	! var: var: !
1730	>r drop r@ @
6	@ user: ! user:
5	execute over ;s branch
708	;s + rdrop ;s
222	(+loop) unloop ;s ;s
287	2@ var: 2@ 0=
4	con: branch ;s ;s
24	! ;s ;s drop
147	rot user: @ um*
3435	;s @ ;s dup
80421	col: col: con: /mod
3	?branch 2drop ;s col:
8	(loop) lit col: col:
6773	;s col: dup col:
8618	count defer: (type) ;s
129	user: @ col: col:
1	= ?branch lit /string
204	move drop r> ;s
647	?branch execute var: nip
1	lit (?do) var: cell+
6	@ user: @ =
2592	?branch lit /string branch
3	user: @ ?branch !
350	;s col: dup 0=
6	dup allocate col: ?dup
281	- col: dup negate
6298	lit col: col: user:
292	dup var: ! defer:
1806	lit user: ! ;s
19	u>= ?branch col: var:
7	;s cr branch rdrop
1	/ 1+ dup var:
895	@ execute col: @
4080	col: var: col: @
5730	swap col: con: -
279	>r r@ col: >r
673	var: @ lit (do)
291	cells - var: over
14	@ var: ! ;s
15	>r col: col: r>
287	lit defer: (emit) col:
23	+ ;s @ ?branch
24	+! ;s col: lit
27	drop r> col: col:
120	+! ;s 2drop ;s
1005	@ dup 0= col:
279	;s ;s 0= col:
287	var: 2! ;s col:
258	;s ! ;s con:
6	@ >r >r ;s
5730	con: / col: col:
218	r@ = ?branch drop
1	var: swap ;s 2dup
1	i 1+ var: @
16	execute col: >r >r
1730	swap col: lit fill
997	dup lit u> lit
5730	over c@ or swap
2	nip nip execute >body
3	;s ;s ;s rot
16	;s r> r> r>
1	fp@ user: ! col:
551	r@ col: >r r@
1	execute 0< ;s branch
24	;s ;s swap !
19	1- >r r@ pick
5730	dup col: col: con:
5	2* cells + 2!
87	within 0= col: col:
64	;s ;s ;s ?branch
23	?branch ;s ;s branch
506	< ?branch lit +
8	c! ;s ;s ;s
1	;s rp@ user: !
125	@ >r user: col:
2394	var: col: con: swap
997	and ?dup ?branch 2drop
3	execute 1+ ;s branch
2	@ ;s ;s branch
350	;s col: defer: col:
287	var: 2! var: var:
1	col: var: 2@ 2*
287	var: 2@ rot swap
1730	lit fill ;s r>
26	;s ;s ;s lit
105	r> move c! ;s
59	drop 2dup 2>r col:
6249	2dup + r> -
1806	?branch read-line col: ?dup
130	var: 2@ col: nip
506	r> col: >r tuck
1	?branch dup var: !
789	@ ?branch col: dup
506	lit r@ um/mod r>
147	user: @ um* drop
412	swap ! ;s lit
4938	lit r@ lit and
125	lit (?do) count col:
39	;s swap con: col:
5	nip nip r> rdrop
473	1- dup ?branch drop
124	;s cr ;s col:
647	col: col: dup lit
3731	<> ?branch col: dup
689	dup cell+ >r @
96	?branch ?dup ?branch ;s
1	nip nip execute 0<
2	@ <> ?branch ;s
279	col: >r r@ col:
21	lit ;s ;s ;s
3	execute does: 2@ ;s
4	nip nip execute 0=
15	;s r> user: !
157	col: col: r> dup
1	cells col: swap >r
292	var: ! col: var:
307	+ ;s @ col:
78	;s ;s ;s 0=
22	@ cells + ;s
1	! col: lit lit
6	con: branch ;s col:
507	@ ;s + @
53	;s @ ;s -
1097	;s ;s does: @
6699	+ @ >r 2dup
4	dup count col: var:
708	>r swap dup r@
1	noop var: @ lit
66	defer: (type) ;s 1+
25	over - ;s 1-
3749	lit col: col: col:
100	var: +! ;s ;s
1	= ?branch i 1+
1	lit <> ?branch i
43	con: = ?branch var:
2124	@ + @ ;s
5	unloop ;s swap col:
1	?branch con: cells allocate
27	lit col: >r >r
128	;s user: col: con:
1578	lit + aligned ;s
253	0= and ?branch ;s
7	cell+ i cells +
10	user: ! rdrop rdrop
1730	@ over cell+ count
1806	?branch ;s branch lit
1616	0= 0= ?branch rot
3	var: ! defer: drop
1634	+ ;s 2@ defer:
287	defer: (emit) col: col:
1	;s ;s dup col:
414	2drop ;s ;s ?branch
2	defer: drop ;s drop
281	branch drop ;s ;s
279	?branch rdrop ;s execute
915	var: col: lit swap
1	con: / 1+ dup
61	swap does: @ +
147	?branch col: swap >r
424	1- r> lit and
27	nip ;s - dup
5	@ close-file swap 2dup
223	>r defer: col: col:
66	;s ;s 2drop branch
647	;s defer: (type) col:
2048	col: dup @ lit
80421	0= 0= ;s ;s
18	! col: var: col:
1	?branch 1- i' i
12	dup col: lit over
28	;s over r@ u>=
997	2dup 2dup r> col:
1	2! ;s defer: noop
7	;s @ ;s /does-handler
1005	?branch rdrop ;s cell+
15	col: >r col: col:
1730	count lit and col:
1	nip execute field: ;s
1769	;s ;s ;s 2drop
1730	+ var: @ ?branch
1	branch dup ?branch 2drop
8	! ;s (loop) lit
1	lit = ?branch dup
12	drop ;s ;s con:
447	user: @ ?branch defer:
3968	2dup col: var: @
6	var: 2@ lit (?do)
469	(+loop) unloop ;s col:
1	dup col: col: var:
5769	;s defer: col: defer:
23	nip execute col: dup
69	execute col: col: user:
54	unloop drop 2drop r>
1	?branch dup r> -
10	rdrop rdrop lit ;s
43	@ ?branch con: ;s
5	nip execute does: col:
1933	@ col: col: col:
4	i cells + !
3447	;s dup ?branch nip
758	?branch ;s ;s col:
12	var: @ ?branch over
9194	swap >r ;s count
1	u>= ?branch drop con:
291	defer: col: cell+ dup
689	cell+ >r @ col:
469	2swap swap (?do) i
80726	col: con: /mod cells
12	?branch lit /string col:
30	?branch var: @ field:
1846	;s ;s lit col:
14	@ 1+ var: 2@
218	con: branch rdrop ;s
394	and + faligned over
5	0= ?branch nip nip
120	2drop ;s ;s branch
39	swap con: col: =
30	col: lit user: !
1	var: @ 1- dup
59	2dup 2>r col: col:
6	+ @ user: !
23	branch 2dup + r>
287	0= rot 0<> and
4	col: dup count col:
226	defer: noop col: col:
647	2@ 2dup col: lit
1	@ ?branch r> col:
197	dup 0= ?branch drop
53	execute var: ;s branch
125	?branch user: @ dup
30	;s ?branch ;s ;s
1641	;s 2drop ;s branch
1	;s var: ! var:
440	user: ! drop ;s
80421	@ dup var: @
291	- var: over cell+
566	+! @ c! ;s
233	+ ;s c! does:
5877	cell+ swap cell+ swap
1	nip execute mod ;s
210	@ ;s ;s col:
506	2drop col: col: col:
36915	?branch var: @ var:
971	;s ?branch var: @
1421	col: dup does: @
4938	cell+ dup c@ >r
121	var: @ ?branch con:
28	over col: col: col:
1	execute col: dup lit
1	tuck - lit cells
218	branch rdrop ;s ?branch
7	+! ;s does-handler! ;s
59	;s ?branch 2rdrop branch
2658	dup ?branch 0> ?branch
2982	;s branch branch lit
703	unloop ;s col: var:
510	;s r> col: >r
23	con: = ?branch drop
147	>r swap user: @
2	?branch 2dup * allocate
3447	nip unloop ;s ;s
1023	dup user: ! lit
30	! r> user: !
7	(type) ;s r@ col:
708	+ ;s lit col:
287	var: 2@ 0<> rot
6	lit /string branch ;s
80726	col: lit swap lshift
268	and ?branch 0= swap
3553	var: dup @ 1-
440	;s user: ! drop
24826	;s lit col: col:
5	! col: var: dup
52	;s con: var: col:
647	- lit min 2dup
54	r> ;s ;s ;s
25	;s ;s dup 0=
6	@ user: ! lit
517	nip execute col: user:
1712	;s var: 2! ;s
1	drop ;s dup var:
3	i cells + @
2818	over c@ r@ <>
958	and 0= ?branch @
1	1+ /string ;s var:
708	rdrop ;s con: (+loop)
47	drop ;s col: 2dup
4073	! ;s ;s ;s
287	var: 2! col: col:
160	@ col: lit col:
5166	xor and ;s 0=
4	rot (do) i over
21	cmove var: r> ;s
1730	r@ swap col: lit
1022	;s dup user: !
43	var: @ and ?branch
3552	;s ?branch col: col:
5	>r ;s drop col:
3	?branch lit - dup
5730	lit /mod rot +
1	! over c@ lit
8	?branch ;s ;s r>
1	>body @ col: col:
789	?branch drop ! ;s
350	col: dup 0= lit
5	2! 2* cells +
1077	aligned swap (?do) unloop
1	@ lit > ?branch
647	;s var: c! var:
1	;s r> tuck -
61	+ ;s @ swap
136	;s r@ col: dup
5	r> rdrop lit branch
272	(type) ;s rdrop ;s
1	dup r> - ?branch
1005	tuck c@ xor swap
121	col: col: con: @
1	2@ nip var: 2!
239	(+loop) i col: >r
1578	;s lit + aligned
8	0< ?branch lit @
997	and ;s var: @
1027	@ field: @ field:
148	@ lit = ?branch
1	con: open-file col: col:
5	! ;s (loop) unloop
5	;s drop col: ?dup
1237	lit col: user: @
350	defer: defer: col: col:
469	var: (?do) i col:
287	0<> swap 0= and
997	lit and ;s var:
1	col: var: ! col:
27	r@ execute col: xor
15	dup >r var: swap
2659	;s ;s ?branch col:
126	>r col: lit (?do)
105	;s col: over >r
3501	and ?branch ;s ;s
105	var: (?do) unloop ;s
9	;s ! ;s (loop)
105	col: over >r rot
1801	branch col: user: @
1	var: ! col: lit
16	>r col: col: user:
7264	2dup i 2@ over
33	r> /does-handler + col:
28	cell+ var: ! ;s
35	var: @ ?branch var:
5	@ 1+ dup con:
2158	@ over - ;s
80415	?branch c@ ;s col:
1	?branch i 1+ var:
1616	con: rot rot cell+
292	;s var: field: @
5	;s over r> tuck
6	;s col: col: dup
291	>= ?branch ;s lit
5	(?do) dup >r 2@
121	<> and col: col:
3	dup ?branch ;s nip
1153	lit max lit (?do)
2	;s count ;s compare
997	?dup ;s ?branch col:
292	dup field: dup var:
1148	var: var: @ col:
1	0= ?branch ;s ?branch
4514	?branch r> lit and
1806	user: @ ;s con:
19	- swap lit col:
3	execute lshift ;s branch
6	user: @ >r >r
292	;s ;s var: field:
3	lit col: 0= ?branch
290	?branch var: @ over
651	0= ?branch ;s col:
1	defer: drop ;s ;s
5	over >r lit col:
23	move c! ;s con:
7	;s cr 0<> swap
506	- ;s r> over
36915	;s ;s col: 0=
3553	dup @ 1- cells
203	noop ;s ;s branch
3553	con: ?branch lit col:
287	rot - ?dup ?branch
23	>r user: @ over
5	swap c! 1+ col:
1	;s nip ;s ;s
577	@ col: lit lit
5	?branch var: 2@ lit
1013	;s move ;s col:
647	i - lit min
1	nip 0<> ;s col:
15	and ?branch con: ;s
4	;s ;s r> col:
28	dup var: <= ?branch
6	col: r> user: @
424	and ?branch 1- r>
148	count col: user: @
20582	;s branch lit col:
291	cell+ dup @ 0<
15	+ dup >r con:
33	col: r> /does-handler +
1	@ ?branch drop ;s
119	u< ?branch drop ;s
5	col: 0= ?branch ;s
1578	aligned ;s con: -
5877	swap cell+ swap r>
1	;s var: ! lit
66	0> ?branch col: user:
574	unloop ;s var: 2!
56	tuck ! cell+ tuck
4582	col: col: col: col:
580	;s branch ;s col:
14	branch rdrop ;s ;s
1	>r 2dup col: col:
25	;s 0= var: @
5	col: col: 2dup lit
5	var: 2@ tuck 1+
13223	+! ;s lit col:
5	defer: noop ;s col:
197	= ?branch i -
1	drop var: 2@ nip
42	2! ;s ;s col:
4	swap 1+ /string ;s
19	drop >r drop col:
647	dup >r does: @
291	var: +! var: @
3731	over <> ?branch col:
3533	?branch drop 2drop lit
15	over r> + dup
4	dup ?branch lit /string
82	@ ;s over char+
19	swap con: - swap
708	2! con: + ;s
5166	col: lit xor and
941	branch var: col: con:
5769	?branch ;s defer: col:
350	defer: col: col: col:
281	col: user: @ swap
820	! ;s var: col:
997	;s var: @ field:
506	;s defer: (type) ;s
997	var: @ and ?dup
125	! ;s lit lit
223	r> col: >r dup
35	! ;s col: con:
6	;s swap 2dup r>
3659	c! ;s (loop) con:
7	= ;s ?branch col:
22273	col: col: col: user:
2	>body ;s branch col:
145	(?do) unloop ;s var:
507	dup ! ;s col:
3	@ ;s branch col:
265	rdrop ;s cr rdrop
708	+ @ ;s execute
10	c@ ;s col: user:
291	cell+ ! dup @
33	col: col: con: <>
1197	col: var: col: con:
27	user: @ lit pick
647	2dup defer: (type) (+loop)
59	r@ execute col: var:
25	;s 0> ?branch col:
6699	;s r> xor cells
1	! execute col: user:
647	;s ;s var: c!
4	drop branch ;s does:
30	@ ;s col: lit
864	col: var: ! ;s
1806	swap user: ! lit
80415	@ = ?branch c@
350	0= lit and col:
121	dup col: dup con:
78	?branch con: branch ;s
708	;s + swap dup
609	branch ;s col: col:
1	var: @ con: cells
106	unloop 2drop con: ;s
279	rdrop ;s ?branch r@
4	lit swap 1+ /string
25	and ?branch 2drop ;s
125	2swap dup >r col:
149	var: @ ;s col:
33	+ col: col: user:
6	0= ?branch ;s >body
27	execute col: xor invert
147	;s ?branch col: swap
10	over + -rot con:
19	var: ! ;s rdrop
28	var: ! ;s over
56	swap con: - dup
12401	field: @ execute col:
33	/does-handler + col: col:
1	r> col: col: var:
1	! var: @ con:
3553	@ 1- cells over
125	;s lit lit 2swap
87	* 1- >r r@
125	unloop lit branch ;s
66	1+ var: 2@ col:
506	d0= ?branch ;s rot
287	cr ;s ;s ;s
3	and var: @ and
196	;s @ ;s ;s
1580	dup ?branch ;s ?branch
5730	;s over c@ or
997	col: >r 2dup 2dup
1400	;s ;s col: dup
469	(?do) i col: >r
676	;s 0= ?branch col:
80421	dup var: @ =
1	?branch drop ;s ;s
5	over ;s branch col:
576	>r ;s count ;s
1288	0< ?branch var: @
1	0= ?branch lit (bye)
1002	(type) ;s r@ does:
196	execute col: defer: noop
19	(type) ;s cr 0=
8	lit @ var: !
11070	>r swap >r ;s
7	;s r@ col: >r
506	col: 2drop col: col:
26	;s ?branch swap drop
26	;s ;s ?branch swap
637	col: drop swap -
647	swap (?do) dup i
1057	;s col: user: @
7	branch con: defer: noop
4938	c@ >r col: count
98	over 0= 0= ?branch
350	unloop ;s ;s lit
16	move ;s col: defer:
18	?branch col: var: col:
5769	@ > ?branch fp@
1	(?do) i col: cells
119	?branch drop ;s user:
2818	dup ?branch over c@
59	branch over 0= 0=
54	@ ;s >r var:
1	var: ! lit (do)
197	= ?branch con: (+loop)
941	(hashfind) ;s ;s var:
233	c! does: @ col:
51	;s ?branch col: lit
7	execute col: 0= ?branch
25	;s ;s branch ;s
1	! lit + dup
16	! ;s r> col:
863	;s col: var: @
39	col: >r dup 0=
459	@ r@ execute or
6249	user: @ ;s 2dup
125	>r user: col: con:
1013	@ ;s swap dup
2048	! ;s lit pick
1722	cr col: col: r>
4938	dup ?branch col: cell+
472	nip execute col: col:
19	;s ;s char+ c@
86	faligned swap (?do) unloop
404	! ;s col: var:
59	2>r col: col: user:
5301	con: col: col: col:
647	swap c! ;s col:
80421	lshift ;s swap @
1022	;s ! ;s code-address!
36915	var: @ var: @
8	drop branch ;s branch
15	r> + dup >r
235	col: lit col: user:
87	con: 1+ within 0=
39	r> drop ;s swap
394	faligned over lit +
105	rot over 1+ r>
5	1+ col: col: col:
231	r@ <> ?branch rdrop
125	lit 2swap dup >r
1	unloop ;s col: lit
2	@ (loop) var: cell+
160	;s @ col: lit
59	?branch r@ execute col:
4	var: col: col: dup
78	= ?branch col: col:
173	;s cr ?dup ?branch
2	2dup col: col: r>
25	@ and ?branch 2drop
19	;s ! ;s does:
18	! ;s does: @
1	;s does: col: var:
1	2! col: var: 2@
58	?branch nip ;s ?branch
987	2@ var: @ col:
10	rot over + -rot
1	(do) lit col: col:
1	unloop 2drop drop con:
1013	dup col: col: user:
148	con: ;s ?branch col:
252	rdrop ;s ;s col:
1	execute col: con: 0=
11070	+ aligned >r swap
1342	c! ;s col: col:
708	+ ;s 2! con:
126	;s ;s drop ;s
2587	<> ?branch lit /string
197	?branch drop lit col:
3	+ ! (next) var:
1730	;s r> ;s tuck
2	+ (loop) unloop drop
647	;s ?branch dup does:
1022	;s does: @ col:
21	con: min >r var:
5	rdrop lit ;s r>
12	! ;s con: @
3	;s rot 2dup and
33	does-code! ;s ;s ;s
12	dnegate r> user: !
105	2swap swap (?do) unloop
5730	;s con: / col:
25	lit var: +! col:
5	! >r ;s drop
1407	con: (+loop) unloop ;s
647	col: lit swap (?do)
287	2dup var: 2! var:
197	con: (+loop) dup i
2160	var: @ ;s ;s
2037	user: @ ?branch col:
764	col: col: defer: defer:
5730	/ col: col: lit
121	and col: col: r>
3	?branch ! ;s ;s
22	2! ;s ;s swap
915	col: var: col: lit
1	;s cells col: col:
1027	var: @ field: @
5166	;s 0= 0= ?branch
1730	lit + dup @
4	>r ;s ;s col:
1	0> 0= ?branch ;s
1	(for) var: cell+ i
23	rot dup con: =
1352	and col: ?dup ?branch
52	col: 2dup u< ?branch
1	2@ col: col: col:
1	@ >r var: @
574	;s count ;s var:
147	um* d+ r> ;s
2	execute >body ;s branch
28	code-address! ;s ;s over
289	! defer: col: cell+
287	cr col: var: @
861	col: lit col: >r
23	= ?branch drop (parse-white)
1735	;s dup ?branch ;s
10	(loop) dup >r 2@
287	var: ! ;s var:
1	2* ;s branch col:
5	lit ;s r> user:
1730	! r> var: @
5	nip ?branch var: 2@
1022	;s col: lit >code-address
647	;s dup >r does:
287	;s col: var: var:
121	@ ;s over -
1	r> tuck - lit
226	noop col: col: col:
113	dup >r ?branch col:
1	var: 2@ col: col:
1	con: 0= ?branch lit
708	con: + ;s lit
1	swap ! ;s rp@
1251	and ?branch nip nip
647	;s 2@ 2dup col:
16	>r >r >r >r
130	! ;s lit user:
231	?branch col: r> dup
125	?branch 2drop rdrop r>
9163	0= ?branch lit col:
4080	@ @ ;s ;s
6	?branch cells var: +
12	;s dup col: lit
1	+ dup user: !
6	var: + @ user:
3696	;s ;s col: col:
80726	swap ;s col: lit
133	branch ;s branch col:
27	col: >r >r user:
25	;s 1- var: 2!
4	col: >r ;s ;s
4	0= ;s branch col:
281	dup negate user: +!
1	1+ col: cells var:
225	@ r@ execute and
58	nip ;s ?branch 2rdrop
5	2dup 1+ var: 2!
1	! ;s does: col:
647	col: lit does: swap
5730	con: - ;s con:
19	;s ;s swap con:
287	var: @ execute col:
291	! dup @ dup
56	cell+ tuck ! cell+
197	- unloop ;s ;s
5	<> ?branch 2dup +
23	count + c! col:
147	um* drop rot user:
23	@ ;s col: over
647	defer: (type) (+loop) unloop
304	con: does: @ col:
941	var: @ ?branch dup
292	;s ;s dup field:
43	?branch var: @ ?branch
1	execute con: con: branch
279	dup r@ = ?branch
2154	;s col: col: r>
1022	@ ;s dup user:
1	var: 2@ 2* cells
441	;s dup ?branch drop
5730	;s ;s ! ;s
1	execute 2* ;s branch
1	@ ;s >r over
1	con: lit ! lit
61	;s @ r@ does:
291	over ! lit var:
287	;s ;s branch lit
1	;s ?branch col: user:
10	read-file ?branch rot over
8618	;s count defer: (type)
506	max lit (?do) unloop
1	branch (+loop) i col:
694	;s cr rdrop ;s
16	swap over col: swap
5	cells resize col: ?dup
5	c@ ?branch con: does:
153	lit cells col: col:
288	;s dup var: !
1	;s dup ?branch dup
1	con: cells allocate col:
1	@ ;s over col:
105	over 1+ r> move
13	>r fp@ >r col:
11	nip nip execute cells
1416	swap dup r@ does:
4080	col: @ @ ;s
421	;s @ 0= ?branch
5730	@ + ;s swap
1730	cells >r var: lit
1730	@ 0< ?branch @
291	;s lit cells -
52	= ;s 0= ?branch
27	drop col: con: @
28	swap var: ! ;s
574	;s var: var: @
128	c@ 0= ?branch con:
288	;s var: 2! var:
1769	;s ;s lit @
161	execute col: col: defer:
42	@ execute col: ;s
3	rot 2dup and var:
997	?branch dup @ 0<
515	user: ! ;s col:
7	;s ?branch branch rdrop
39	?branch swap drop r>
1	var: 2! ;s defer:
647	?branch ;s ?branch dup
287	(type) ;s cr var:
225	and 0= 0= ?branch
4	nip execute col: swap
323	swap ! ;s col:
223	rdrop ;s >r over
5	dup ?branch r> r>
2818	c@ r@ <> ?branch
5	rdrop ;s over r>
148	user: @ u>= ?branch
8	@ ?branch ;s ;s
45	col: col: dup col:
1	@ lit (?do) var:
6	swap 2dup r> -rot
997	>r 2dup 2dup r>
28	tuck ! cell+ var:
574	lit 2swap swap (?do)
80726	rot + swap ;s
17	@ 0< ?branch ;s
6249	r> min user: !
78	branch ;s lit col:
13	>r rp@ user: !
121	dup con: <> swap
3	lit u> ?branch lit
7	noop col: r> dup
75	! ;s swap col:
574	;s cr col: var:
1	- unloop ;s dup
56	@ swap con: -
6249	+ r> - 1+
204	1+ pick >r cells
3	execute 2drop ;s branch
5166	and ;s 0= 0=
10	0= ?branch rdrop drop
160	0= does: @ col:
54	drop 2drop r> ;s
66	;s 1+ var: 2@
506	col: >r lit r@
1	lit branch (+loop) i
3	;s 2! ;s col:
5	r> r> user: !
1730	lit cells lit col:
31	lit lit col: >r
143	branch ;s dup does:
284	dup ?branch drop branch
941	! branch var: col:
5	lit ;s user: @
1	dup @ ?branch drop
2	! ;s branch @
2298	swap ! ;s ;s
637	2@ col: drop swap
647	lit (?do) i' i
291	var: @ >r var:
23	?branch drop (parse-white) branch
4	count col: var: @
3	nip nip execute 1+
983	?branch 2dup swap col:
997	;s ?branch dup @
1	mod ;s branch col:
12	col: 2dup u<> ?branch
1	! fp@ user: !
16	>r col: col: col:
21	col: col: lit col:
3	nip nip execute 1-
12401	field: @ field: @
10	2dup con: swap read-file
6	lit u< ?branch cells
5224	r> (loop) >r over
1	col: var: 2@ col:
5	+ lit swap c!
5	;s var: swap ;s
3445	2drop ;s branch col:
64	con: @ col: 2dup
1644	execute col: col: col:
66	drop 2dup col: col:
160	;s ;s 0= does:
20	(loop) unloop drop ;s
15	>r 2@ dup >r
3553	col: drop var: dup
16	;s ! ;s r>
3	and ?branch or >r
78	con: branch ;s lit
5769	?branch fp@ user: @
6249	@ ;s 2dup >r
105	col: swap (?do) unloop
599	>r con: rot rot
1	con: cells col: lit
5730	does: + c@ ;s
5	0<> lit and col:
6249	- 1+ r> min
2587	/string branch dup ?branch
28	>= col: col: r>
280	;s + ;s !
43	>r user: @ >r
5	rdrop lit ;s user:
1	nip nip execute field:
90	cr ;s col: col:
489	and ?branch ;s col:
180	! ;s cell+ (loop)
281	! ;s lit var:
60	?dup ;s ?branch ;s
4	swap ;s col: user:
204	sp@ cell+ dup cell+
66	nip ;s user: !
35	var: @ col: dup
3	?branch col: does: @
880	;s ! does: @
2627	;s ;s + ;s
1730	lit and col: con:
53	@ ;s - col:
281	swap - col: dup
3968	?branch defer: col: 2dup
987	;s 2@ var: @
421	c@ col: var: col:
3553	over + (do) 2dup
121	<> swap con: <>
708	@ + ;s 2!
291	>r var: col: con:
1012	;s var: @ and
61	r@ = ?branch does:
506	col: >r col: dup
1	/string branch dup >r
1	nip execute 0< ;s
3	@ + @ col:
22	?branch 2drop ;s does:
424	?branch 1- r> lit
70	drop branch ;s ;s
4060	;s col: col: col:
16	;s 2! ;s r>
1	i' i - unloop
49	execute col: defer: col:
66	(type) ;s 1+ var:
1436	0= col: col: r>
5	drop col: ?dup ?branch
1806	@ ;s con: user:
204	cell+ dup cell+ rot
287	rot rot - ?dup
32	dup ?branch drop does:
24	+ ;s ! con:
941	branch ;s col: user:
1730	0< ?branch @ over
3	+ @ col: lit
12	r> ?branch dnegate r>
717	con: (+loop) i col:
80415	c@ ;s col: col:
1	2drop dup >r lit
27	xor invert ;s col:
6699	@ + @ (hashfind)
147	user: @ um* d+
66	nip ;s dup ?branch
2	col: dup ! ;s
5	user: @ close-file swap
43	con: ;s lit col:
82	;s over char+ col:
39	col: = 0= col:
1009	defer: (type) ;s r@
1005	rdrop ;s cell+ tuck
997	2dup r> col: dup
7	c@ lit <> ?branch
5	user: @ >r col:
5	over r> tuck -
66	;s user: ! ;s
80	user: +! ;s col:
3069	2@ defer: (type) col:
197	+ = ?branch i
997	;s @ ;s user:
80421	@ and 0= 0=
21	;s col: con: lit
8	rdrop ;s ;s lit
223	r> ?branch 1+ user:
5062	@ col: col: dup
21	con: lit ;s ;s
789	dup ?branch 2dup swap
5	?branch ;s var: swap
506	dup 0< ;s r>
1730	?dup 0= ?branch >r
258	! ;s con: col:
287	var: 2@ 0= rot
1	lit ! lit col:
574	var: ;s lit col:
23697	user: @ ;s @
6	swap >r dup allocate
27	pick col: lit over
52	con: var: col: con:
287	(emit) col: col: r>
1217	;s + ;s @
5730	swap does: + c@
1	?branch rot drop ;s
1	execute + ;s branch
1578	@ ;s lit +
20295	+! ;s branch lit
52	;s ;s con: var:
997	var: @ @ over
287	rot swap - rot
44	;s ?branch does: @
1	?branch 2drop col: col:
27	>r user: @ lit
24	?branch ;s ;s does:
4	nip execute 0= ;s
5	>r col: swap >r
5	2@ nip 1- user:
26	?branch swap drop branch
1	- col: col: user:
11070	r> r> dup count
147	@ um* drop rot
506	dup @ tuck -
60	0< ?branch lit col:
566	@ c! ;s ;s
3915	@ + ;s 2@
13	laddr# ;s >r user:
997	@ @ over !
127	;s over c@ lit
5730	col: con: - ;s
30	r> user: ! r>
284	drop branch lit (+loop)
2	;s drop col: r>
223	>r over - dup
647	move lit lit !
1	execute col: >r con:
1	;s ;s col: 2swap
5	2dup + lit swap
5730	rot + swap does:
676	0= ?branch col: col:
9163	;s 0= ?branch lit
735	(loop) unloop ;s lit
17	execute col: lit var:
61	;s ! branch ;s
148	;s ! ;s lit
223	?branch 1+ user: +!
776	unloop ;s lit col:
1	col: dup lit =
2	unloop drop branch lit
23	drop (parse-white) branch 2dup
1138	- ;s var: 2!
16	drop ;s ;s ;s
10	rdrop drop r> cell+
125	- dup lit u<
941	! ! branch var:
20	;s cell+ (loop) unloop
3	lit u<= ?branch dup
204	dup 1+ pick >r
4938	;s r@ lit and
148	- dup lit u>
2420	?branch col: col: var:
147	0= or ?branch con:
1730	;s tuck cell+ !
5	1- + c@ lit
100	;s ;s branch branch
164	;s ;s dup does:
61	branch ;s con: (+loop)
17	nip execute col: >r
3	drop ;s does: @
1	! ;s cells col:
281	+! lit over =
292	var: field: @ col:
16	2! ;s r> r>
1	;s >body @ col:
1	?branch 2drop dup >r
5	or col: dup ?branch
708	;s execute col: >r
5	+ c@ lit <>
506	>r lit r@ um/mod
114	?dup ?branch ?dup ?branch
1437	@ ;s user: !
13	r> swap >r fp@
3967	branch col: sp@ user:
117	branch ;s ;s branch
61	?branch execute var: @
281	! ;s (loop) i
12	! execute col: col:
125	dup ?branch drop 2dup
12	?branch dnegate r> user:
28	var: <= ?branch con:
506	swap >r um/mod r>
732	! ;s ;s does:
68	>r r@ col: dup
28	@ dup var: <=
66	+ ;s @ dup
647	dup r> does: @
68	;s rdrop dup col:
19	;s col: >r >r
7	(type) ;s cr 0<>
42	col: ;s ;s col:
1806	user: @ ?dup ?branch
1002	;s lit col: user:
23	;s @ branch ;s
281	@ swap - col:
17	@ ?branch col: con:
1	?branch con: lit !
12	@ ?branch over col:
61	@ r@ does: @
2336	col: var: @ ;s
6699	2dup col: con: (hashkey1)
1644	col: lit col: col:
1802	col: col: sp@ user:
506	>r col: dup 0<
129	;s c! ;s con:
1	2* cells col: swap
1	?branch col: col: 2dup
287	cr col: col: col:
1730	col: lit + dup
106	(+loop) unloop 2drop con:
152	cr ?dup ?branch ;s
647	(type) (+loop) unloop drop
5166	execute col: lit xor
52	<> col: col: r>
23	/string rot dup con:
506	drop ;s defer: (type)
421	+ ;s @ 0=
197	con: (do) dup i
2	@ ?branch dup defer:
223	;s user: @ over
28	;s tuck ! cell+
410	c! ;s ;s col:
997	col: cell+ count lit
1005	;s cell+ tuck c@
599	col: >r con: rot
997	lit u> lit and
223	?branch rdrop ;s >r
5727	+! ;s col: dup
61	= ?branch does: @
36913	lit var: +! ;s
130	@ ;s swap col:
125	branch ;s dup ?branch
19	drop con: ;s ;s
4075	col: var: @ col:
3	2drop ;s col: does:
648	;s dup col: col:
143	;s ?branch drop branch
5	?branch ;s r> user:
291	@ over ! lit
5	lit branch unloop 0<>
506	um/mod r> swap >r
5	-rot move ;s col:
10	rdrop rdrop rdrop lit
3553	drop con: ?branch lit
121	col: dup con: <>
16728	@ ;s +! ;s
3069	(type) col: col: r>
20	unloop drop ;s swap
394	lit + = ?branch
15	var: r@ + swap
1	@ (loop) unloop var:
35	;s ;s r> r>
1	2! var: up! sp@
1	@ ;s r> tuck
1	1+ var: @ =
3874	does: @ col: var:
13	>r col: laddr# ;s
27	r> drop col: con:
11070	col: col: r> r>
2	! user: ! user:
1	lit <> ?branch col:
223	over - dup r>
7135	@ ;s user: @
1	>r col: defer: defer:
1801	?branch col: col: sp@
31	code-address! ;s lit col:
5	lit user: ! user:
15	2@ dup >r var:
36913	<> ?branch lit var:
5	nip r> rdrop lit
7	user: ! user: col:
37	over col: lit over
25	+! col: var: @
126	rdrop ;s ;s ;s
795	;s code-address! ;s ;s
647	?branch dup does: @
506	(type) ;s lit col:
7680	;s ;s ;s dup
87	lit col: 1+ con:
287	;s cr cr ;s
2853	+ ;s @ does:
1	c@ lit = ?branch
1	;s var: @ over
12	u<> ?branch drop ;s
574	col: var: ;s lit
35	?branch drop does: @
23	user: +! ;s user:
1616	rot cell+ swap cell+
59	2rdrop branch ;s branch
23	;s (loop) count col:
1	user: ! lit +
14	;s @ 1+ var:
1437	negate ;s ;s ;s
1775	;s ;s var: @
1730	0= ?branch >r drop
3025	user: @ ?dup ;s
599	unloop drop 2drop ;s
2	2dup * allocate col:
203	;s @ ;s over
1	2swap 2dup col: col:
2	nip execute >body ;s
1952	;s ;s ;s col:
708	;s 2! con: +
2046	pick + (loop) dup
27	dup ?branch drop r>
1115	col: lit lit !
5	execute col: dup does:
8429	col: con: (hashkey1) ;s
1806	user: ! ;s ?branch
7	defer: noop col: r>
647	defer: col: var: count
1148	(type) ;s var: 2@
9	?branch 2dup con: swap
4	1+ rot (do) i
3	2! ;s col: r>
5	r> user: ! >r
1	cells allocate col: ?dup
125	2drop rdrop r> ?branch
1811	! lit user: !
647	var: c! var: count
80726	/mod cells rot +
7	var: cell+ i cells
461	nip execute col: defer:
120	user: +! ;s 2drop
767	- 1- dup ?branch
574	var: @ var: (?do)
287	?branch col: var: ;s
3	execute col: var: !
19	con: - swap lit
61	;s @ swap does:
5	execute does: col: var:
1	2drop col: col: user:
1	@ lit (?do) i
24	;s ! con: does:
47	con: ;s branch col:
278	?branch ;s col: var:
225	col: con: @ col:
1	lit user: ! lit
15	2dup var: r@ +
204	rot move drop r>
6	! user: @ >r
1	<> ?branch i 1+
1	+ @ (loop) unloop
1	i 1+ col: cells
1	! lit (do) lit
3	1+ ;s branch col:
4938	lit and 0= ?branch
983	2dup swap col: lit
291	var: over cell+ !
87	1+ con: * 1-
9171	;s @ ;s con:
789	col: dup @ dup
50124	col: col: user: @
125	dup ?branch 2drop rdrop
424	lit and ?branch 1-
279	var: @ dup r@
1153	does: swap lit max
36915	@ var: @ <>
39	swap drop r> drop
6593	@ ;s lit col:
55	>r var: @ lit
7	;s does-handler! ;s branch
7	?branch branch rdrop ;s
506	>r um/mod r> ;s
173	- ?dup ?branch col:
17	?branch col: con: @
3126	col: con: swap !
5	nip nip execute over
933	(s+loop) dup i con:
11	cells ;s branch col:
647	i' i - lit
1808	@ ?branch col: user:
1294	lit lit ! ;s
5	nip execute over ;s
1272	;s ;s ;s branch
32	;s >r col: 2dup
908	;s ;s ?branch ;s
223	1+ user: +! ;s
6	= ?branch r@ user:
5	>body user: @ ?branch
9171	@ ;s con: col:
13	0= or ?branch drop
59	;s rot col: col:
2048	lit pick + (loop)
3553	@ execute col: drop
2	user: ! user: !
56	! branch ;s ;s
1005	cell+ tuck c@ xor
52	@ col: 2dup u<
173	(type) ;s cr ?dup
1	or ?branch 2drop dup
375	(loop) unloop ;s ;s
1	> ?branch con: lit
1	;s var: ! ;s
291	?branch 2drop r> var:
1	col: con: 0= ?branch
1138	over - ;s var:
1	fill ;s var: @
5	;s c! col: does:
506	con: - dup !
128	var: col: col: col:
8281	@ execute col: lit
39	?branch over 0= 0=
131	col: user: @ >r
13	rp@ user: ! execute
61	@ swap does: @
5877	over @ r@ execute
941	! branch ;s col:
47	nip nip execute con:
49	faligned nip ;s col:
28	r@ u>= ?branch col:
820	;s var: col: con:
7	;s +! ;s does-handler!
287	2@ 0<> rot 0=
8	+ ;s col: user:
915	con: over +! @
26	;s rdrop ;s col:
27	lit pick col: lit
35	drop does: @ col:
486	! ;s cell+ swap
7	@ ?branch defer: noop
7	does-handler! ;s branch con:
4938	r> lit and ?branch
1876	>r ;s >r ?branch
28872	;s ;s ?branch lit
1	lit fill ;s var:
3	u<= ?branch dup user:
19	r@ pick rdrop dup
61	?branch does: @ +
1416	i col: dup does:
18	execute col: var: @
9	allocate col: ?dup ?branch
125	lit branch ;s dup
1	lit (do) lit col:
291	var: @ over !
1005	c@ xor swap c!
2540	?branch ;s ;s ;s
294	(type) ;s branch ;s
566	con: - lit over
1	user: ! col: var:
125	0= ?branch user: @
28485	;s ?branch lit col:
1730	cell+ ! r> var:
1730	xor cells >r var:
281	col: dup negate user:
2658	;s dup ?branch 0>
370	col: does: @ col:
1806	@ ?dup ?branch read-line
574	col: lit lit 2swap
6699	(hashkey1) ;s r> xor
1806	lit user: +! swap
506	lit + col: col:
574	lit lit 2swap swap
3069	defer: (type) col: col:
10	swap read-file ?branch rot
1	execute col: col: sp@
3968	dup ?branch defer: col:
647	(?do) i' i -
286	+! ;s branch ;s
287	over - ;s 2dup
125	lit = dup >r
1	! var: ! col:
223	swap r> col: >r
708	@ ;s execute col:
599	drop 2drop ;s ;s
5	- dup ?branch 2dup
153	+! ;s 2! ;s
13	>r sp@ r> swap
2048	dup lit pick col:
2290	! ;s ;s col:
2158	var: @ over -
1251	dup ?branch lit and
281	lit over = ?branch
153	;s +! ;s 2!
53	lit col: >r dup
5730	c! ;s ;s !
121	- swap ! ;s
1148	defer: (type) ;s var:
1	nip execute 2* ;s
2	;s @ ;s var:
2	branch lit pick @
506	lit over < ?branch
506	tuck dabs col: col:
6	user: ! user: @
49	;s lit col: 1+
223	lit col: >r defer:
22	dup @ cells +
446	col: 0< ?branch ;s
16	lit ;s ;s branch
1416	dup r@ does: @
486	;s cell+ swap cell+
197	+ = ?branch con:
8	lit col: var: col:
518	execute col: user: @
1	field: ;s branch col:
287	swap - rot rot
30	dup 0= ?branch ;s
3968	;s dup ?branch defer:
5730	col: con: dup @
590	con: - dup @
19	rdrop ;s col: r>
16	;s col: defer: defer:
456	+ @ execute col:
4	branch dup ?branch lit
19	col: drop >r drop
1	/string ;s ;s col:
1	dup ?branch rot drop
23463	var: +! ;s branch
9	<> ?branch 2dup con:
1	@ 0= ?branch con:
27	- dup ?branch drop
2581	branch dup ?branch over
915	var: col: con: over
459	execute or col: col:
5193	@ r@ execute col:
3	! (next) var: cell+
1	(?do) unloop 2drop drop
59	2! ;s ;s rot
197	(+loop) dup i -
1	?branch ;s var: !
43	;s ;s ;s swap
1013	+! ;s move ;s
124	0= ?branch nip ;s
1	compare 0= r> or
212	?dup ?branch col: col:
287	lit defer: (emit) var:
24	+! ;s ;s col:
156	dup ?branch nip branch
287	2@ 0= rot 0<>
856	col: col: col: r>
53	nip nip execute var:
10	r> cell+ cell+ (loop)
3775	0= 0= ?branch cell+
243	execute col: ;s ;s
791	;s branch @ dup
1811	user: ! lit user:
4	;s col: lit var:
941	@ ?branch dup @
140	(loop) unloop ;s col:
3	;s nip 0<> ;s
3874	@ col: var: col:
8	;s var: @ lit
1	?branch drop con: ;s
339	aligned swap (?do) con:
1	cells col: lit fill
997	! var: @ !
1	0= >r 2dup col:
13	?branch drop col: var:
6699	xor cells var: @
506	- does: swap lit
8618	>r ;s count defer:
3553	(do) 2dup i 2@
5877	over @ over @
997	;s ?branch col: cell+
5	2@ lit (?do) dup
4	var: swap ;s col:
997	2drop ;s var: @
997	var: @ ! branch
579	;s col: var: 2@
3	@ dup @ ?branch
3	2@ nip = ;s
1730	r> var: @ +
27	?branch drop r> col:
208	+! ;s col: col:
997	var: @ col: >r
1876	swap >r ;s >r
635	;s @ var: 2@
281	?branch branch drop ;s
997	@ and ?dup ?branch
915	swap +! ;s ;s
5	2! ;s branch dup
3553	lit col: drop var:
895	@ (f83find) ;s ;s
1732	pick @ ?dup 0=
158	?branch ;s ;s dup
52	u< ?branch = ;s
66	faligned nip ;s user:
4514	and ?branch r> lit
105	over >r rot over
6	>r ;s user: !
279	execute var: @ dup
390	;s + ;s c!
23	;s user: @ ?branch
23697	@ ;s @ ;s
287	unloop ;s var: var:
281	over = ?branch branch
1122	col: @ (f83find) ;s
1251	lit and ?branch nip
1005	xor swap c! ;s
66	?branch drop 2dup col:
61	+ ;s ! branch
1	var: 2! var: up!
8	@ 0< ?branch lit
5730	col: col: lit /mod
1352	lit and col: ?dup
59	0= ?branch r@ execute
80421	lit col: col: var:
3553	?branch lit col: drop
5	2* cells resize col:
305	or swap ! ;s
30	;s lit col: lit
6699	r> xor cells var:
5	resize col: ?dup ?branch
965	>r r@ does: @
506	;s rot col: 0<
287	defer: (emit) var: 2@
3	;s ;s rot 2dup
290	@ 0= ?branch var:
9	branch col: var: @
1437	and ?branch negate ;s
5	lit (?do) dup >r
566	;s con: - lit
39	con: col: = 0=
3533	drop 2drop lit (+loop)
28	! ;s over r@
287	;s ;s dup var:
231	;s swap col: col:
2124	@ + ;s !
2	nip nip execute drop
28	code-address! ;s ;s lit
6	does: col: var: dup
78	;s drop branch ;s
16728	user: @ ;s +!
987	+ ;s 2@ var:
305	swap col: con: /mod
789	;s ;s branch @
84	- dup @ swap
5730	c@ ;s ;s over
18	;s drop ;s ;s
194	swap col: lit col:
7264	2@ over <> ?branch
1	lit (?do) unloop lit
958	?branch @ lit r@
2137	;s ;s branch col:
1	i - unloop ;s
1801	?branch 2drop ;s branch
506	over - does: swap
287	2@ var: 2@ 0<>
1	cells / ;s var:
1	var: up! sp@ dup
23	;s @ ;s count
1	<> ?branch col: col:
99	execute col: col: r>
1	defer: noop ;s r>
14	;s ?branch over col:
3	?branch execute does: 2@
113	rdrop r> ?branch r>
279	rdrop ;s execute var:
506	lit col: >r col:
80421	;s swap @ and
4	swap 1+ rot (do)
1013	;s swap dup col:
5332	lit and + faligned
1288	@ 0< ?branch var:
951	?branch 0> ?branch nip
708	;s ?branch execute var:
997	r> col: dup field:
1634	;s 2@ defer: (type)
1	<> ?branch drop ;s
1	r> col: var: !
291	lit cells - var:
6	2dup r> -rot move
35	;s r> ;s ;s
53	drop ;s branch col:
10	drop r> cell+ cell+
33093	0= ;s ;s ?branch
1	2drop drop con: ;s
223	over swap r> col:
53	var: ;s branch col:
20	;s swap var: @
789	branch @ dup ?branch
125	over c@ lit -
13	col: >r sp@ r>
732	;s + ;s c@
197	- con: - unloop
72	unloop ;s branch ;s
31	;s col: dup con:
5224	(loop) >r over @
647	+ ;s 2@ 2dup
287	defer: (type) lit defer:
1013	;s +! ;s move
647	(type) col: lit does:
793	defer: (type) ;s lit
941	?branch dup @ lit
789	swap col: lit +
106	branch lit (+loop) unloop
2	over c@ lit <>
506	@ lit max col:
39	0= ?branch swap drop
246	user: @ over min
287	(type) lit defer: (emit)
285	swap ! ;s (loop)
12	lit /string col: over
1	- lit cells /
130	col: nip swap -
1	0= ?branch con: cells
5	var: 2! 2* cells
3	u> ?branch lit -
1416	;s ! r@ does:
1806	+! swap user: !
506	+ col: col: col:
10	+ -rot con: <>
147	@ col: 2dup col:
185	2drop ;s ;s 0=
1	over col: col: var:
1	dup ?branch dup r>
14405	;s ;s dup ?branch
1	var: @ dup @
10	cell+ cell+ (loop) dup
1054	! ;s ;s lit
566	over +! @ c!
647	nip unloop ;s dup
8	user: @ ?branch ;s
56	(f83find) ;s ;s var:
3308	@ + ;s @
5	var: 2@ nip 1-
18	;s ! ;s col:
80421	swap lshift ;s swap
306	+ ;s c@ 0=
24	;s swap ! ;s
126	over c@ lit =
4	execute 0= ;s branch
23	c! col: col: user:
3	! defer: drop ;s
5	(loop) unloop ;s swap
1	nip nip execute 2*
1730	! r@ swap col:
19	r> r> rot col:
153	;s lit cells col:
5	2dup lit col: >r
51	@ execute drop ;s
1730	fill ;s r> ;s
287	cr col: var: 2@
1	col: var: @ lit
147	drop rot user: @
5	?branch 2dup 1- +
160	cell+ (loop) dup @
997	dup col: col: col:
147	branch col: var: col:
32	;s ;s ;s r>
8	;s lit col: var:
1022	>code-address ;s col: col:
5166	lit xor and ;s
599	rot r> var: @
23	(loop) count col: user:
1	;s ;s lit branch
39	>r dup 0= ?branch
16	drop ;s swap over
2	drop ;s drop col:
292	;s dup field: dup
6226	/string (parse-white) 2dup +
14	over col: 2dup col:
1616	rot drop con: rot
7	(type) ;s cr branch
11	drop = ;s ?branch
152	;s c! col: var:
1	+ ! (next) unloop
3	1+ /string ;s ;s
6226	user: @ /string (parse-white)
10	con: ;s ;s branch
226	;s ;s defer: noop
3	or >r col: 2dup
33	@ ;s does-code! ;s
1	2dup col: var: 2@
861	;s ?branch col: var:
2158	@ ;s ;s lit
440	@ ?branch defer: col:
2019	! lit col: col:
7	! lit col: >r
909	col: col: var: col:
2	i col: cells var:
23	(parse-white) branch 2dup +
147	! does: @ does:
350	dup 0= lit and
287	(emit) var: 2@ defer:
10413	0= ;s ;s 0=
16	col: lit lit lit
5	@ >r col: swap
5	;s var: 2@ nip
440	! drop ;s ;s
647	;s cr ;s con:
2	nip 0<> ;s 0=
4	?branch rdrop ;s lit
58	drop ;s col: col:
5	?branch ;s col: ?dup
5	;s col: ?dup ?branch
287	col: var: @ execute
478	(+loop) i col: dup
1002	;s r@ does: @
10	cell+ (loop) dup >r
647	defer: defer: col: var:
39	drop ;s swap con:
4938	+ faligned ;s r@
25	col: var: @ 0<
291	?branch var: @ >r
998	unloop ;s col: col:
30	lit col: lit lit
1	dup ! ;s ;s
1	dup var: ! ?dup
291	col: var: @ 0=
506	(?do) unloop drop ;s
938	;s ?branch ;s col:
3420	;s +! ;s !
7	/does-handler col: col: user:
473	drop col: col: r>
1	1+ dup var: !
421	;s c@ col: var:
7	nip execute ! ;s
1	;s drop var: 2@
1373	swap (?do) unloop ;s
21	r> ;s ;s branch
654	col: user: @ lit
82	0= ?branch ;s ;s
1	col: var: col: dup
653	(loop) unloop drop 2drop
3968	col: 2dup col: var:
421	@ 0= ?branch does:
33	col: con: col: col:
997	move ;s col: col:
227	@ ?branch col: r>
708	?branch branch lit col:
24	noop ;s ;s ;s
30	lit user: ! col:
6	>r dup allocate col:
3	! ;s user: col:
60	col: 0< ?branch lit
25	;s ;s 0= var:
2	?branch dup defer: col:
121	con: <> and col:
997	?dup ;s ?branch dup
767	swap - 1- dup
708	- ;s lit pick
288	;s ;s ;s does:
24	col: col: defer: noop
18	col: col: con: lit
394	i - count lit
2989	dup @ lit pick
1801	;s branch col: user:
287	var: 2! var: 2!
1730	var: lit cells lit
10	open-file 0= ?branch rdrop
127	(?do) unloop ;s ;s
506	col: >r tuck dabs
157	+ ;s c! col:
1	con: con: branch ;s
253	?dup ?branch ;s col:
971	?dup ;s ?branch var:
6	user: ! lit /string
5	r> tuck - dup
146	;s c@ 0= ?branch
915	lit swap +! ;s
1	user: ! over c@
23	min /string rot dup
272	drop ;s ;s col:
1	;s ?branch execute con:
19	pick r@ pick r@
80422	var: @ = ?branch
1255	;s (loop) unloop ;s
291	dup ?branch 2drop r>
12	;s con: ! ;s
4	/string branch over >r
44	;s ;s ?branch does:
12	/string col: over c@
82	over char+ col: col:
125	col: lit (?do) count
66	con: ! col: lit
506	r> swap >r um/mod
708	;s lit pick does:
2982	branch branch lit col:
66	?branch nip ;s dup
3	;s ?branch drop does:
4938	r@ lit and ?branch
5	nip nip execute does:
294	1- dup ?branch col:
291	+! var: @ con:
19	;s col: drop >r
5	user: ! col: ?dup
294	;s col: r> dup
24272	branch lit col: col:
2	var: @ lit (?do)
5	c! 1+ col: col:
105	@ var: (?do) unloop
1	execute mod ;s branch
5	rdrop lit branch unloop
287	- rot rot -
13	@ >r rp@ user:
70	0<> and ?branch col:
647	dup col: col: defer:
36	;s + ;s col:
2	(loop) var: cell+ i
236	col: col: col: var:
305	@ or swap !
1236	dup @ dup ?branch
87	dup col: con: con:
1707	?branch 0> ?branch col:
4938	faligned ;s r@ lit
4860	r@ does: @ +
268	?branch 0= swap 0<>
2	nip execute * ;s
1	@ 1- dup 0=
6	>r user: @ user:
125	dup 0> 0= ?branch
3126	con: swap ! ;s
28	over r@ u>= ?branch
11	execute cells ;s branch
52	@ ;s ;s con:
61	= rdrop ;s ?branch
506	?branch ;s rot col:
9	c@ ;s ;s branch
227	(f83find) ;s dup 0=
6	aligned ;s branch col:
646	+ ;s @ var:
506	col: dup 0< ;s
1	>r con: open-file col:
124	r> ;s (loop) unloop
35	@ col: dup con:
837	var: @ ?branch col:
635	@ var: 2@ col:
25	rdrop ;s ;s over
19	rot col: con: <>
287	! ;s var: var:
1	?branch i 1+ col:
289	var: ! defer: col:
28	dup lit >= col:
1	dup user: ! user:
68	1- >r r@ col:
49	nip ;s col: user:
75	;s ! ;s swap
201	nip execute col: ;s
5	2dup 1- + c@
22	col: var: dup @
1806	con: user: @ ?dup
52	col: var: @ ?branch
1	0< ;s branch col:
1	dup lit = ?branch
2048	pick ! ! ;s
14	+ ;s @ 1+
301	over col: swap col:
394	dup i - count
1	con: ;s ?branch 1-
10	-rot con: <> ?branch
1	col: 2swap 2dup col:
6249	;s 2dup >r >r
19	! ;s rdrop ;s
33	;s ;s ;s >r
3447	nip nip unloop ;s
223	over min /string over
387	;s ?branch lit @
160	;s c@ 0= or
6	user: +! user: @
59	?branch drop 2dup 2>r
895	execute col: @ (f83find)
148	lit = ?branch toupper
647	c! var: count move
6249	r> - 1+ r>
17	0< ?branch ;s ;s
1730	+ dup @ 0<
6	branch ;s user: col:
2	0<> ;s 0= col:
6	/string branch ;s user:
25	var: @ 0< ?branch
4938	col: count lit and
6912	;s user: @ ;s
6	col: swap >r dup
1	lit (?do) i col:
6906	;s ! ;s ;s
5730	+ ;s swap col:
5730	c@ or swap c!
147	@ um* d+ r>
21	cr ?dup ?branch col:
14	;s ;s ?branch over
468	lit ! user: col:
5	;s ;s r> user:
80449	var: @ dup var:
3968	defer: col: 2dup col:
294	defer: (type) ;s branch
145	lit u> ?branch dup
160	(loop) dup @ col:
359	unloop ;s ;s col:
19	>r r@ pick r@
716	(+loop) unloop ;s var:
647	lit does: swap lit
1	;s lit user: !
15	+ swap cmove var:
1	0<> ;s col: 0=
1	nip execute + ;s
7	cr branch rdrop ;s
647	c! ;s col: lit
647	?branch ;s ;s var:
4563	defer: (type) ;s cr
5	noop ;s col: does:
27	faligned nip ;s -
72	(?do) unloop ;s branch
291	@ con: >= ?branch
78	@ ?branch con: branch
2727	cell+ count lit and
4	var: ! col: col:
21	?branch con: min >r
25	col: lit var: +!
356	;s ;s col: defer:
532	?branch rdrop ;s ;s
129	;s 2! ;s ;s
21	min >r var: r@
15	r@ + swap cmove
5	col: col: lit user:
459	r@ execute or col:
125	dup lit u< ?branch
287	;s cr var: 2@
5	;s user: @ close-file
204	r@ col: dup 1+
1	@ = ?branch i
8	;s lit lit col:
197	con: - unloop ;s
125	! ;s user: @
6727	col: dup col: col:
292	field: @ col: col:
153	@ ;s lit cells
15	execute col: >r col: col:
933	(s+loop) dup i con: col:
708	over - ;s lit pick
19	;s ;s ;s r> r>
9171	@ ;s @ ;s con:
1	@ ?branch r> col: var:
1730	r> var: @ + var:
272	count defer: (type) ;s rdrop
506	um/mod r> swap >r um/mod
647	(?do) i' i - lit
39	col: = 0= col: col:
394	- count lit and +
4	nip execute 0= ;s branch
1005	>r ?branch rdrop ;s cell+
12	user: ! execute col: col:
281	over = ?branch branch drop
5	over r> tuck - dup
708	i col: >r swap dup
2	;s over lit (?do) dup
3	?branch nip nip execute @
574	var: var: @ col: lit
5	defer: noop ;s col: does:
32	;s dup ?branch drop does:
2627	@ ;s ;s + ;s
129	+! ;s c! ;s con:
1	1- dup 0= col: col:
2	branch lit pick @ ?dup
5730	col: dup col: col: con:
1022	lit >code-address ;s col: col:
6	! execute col: col: r>
3	col: lit col: 0= ?branch
11	?branch nip nip execute cells
20	branch ;s con: (+loop) unloop
287	var: 2@ var: 2@ 0<>
3	;s rot 2dup and var:
941	@ ?branch dup @ lit
136	;s r@ col: dup 1+
1	;s ;s col: 2swap 2dup
18	col: col: col: defer: defer:
196	execute col: defer: noop col:
61	swap does: @ + ;s
39	= 0= col: col: r>
4	i cells + ! (next)
8	drop branch ;s branch col:
153	;s @ ;s lit cells
13	>r user: @ >r rp@
1806	lit user: +! swap user:
4938	lit and + faligned ;s
1	user: ! over c@ lit
52	con: <> col: col: r>
5877	>r over @ over @
2	?branch nip nip execute drop
2839	;s ! ;s ;s ;s
124	0> 0= ?branch nip ;s
2	nip = ;s ?branch col:
1730	xor cells >r var: lit
2	;s nip 0<> ;s 0=
5769	;s defer: col: defer: col:
506	drop ;s defer: (type) ;s
1	+! ;s col: col: col:
1	2drop dup >r lit col:
68	+ @ execute col: col:
2	r> var: ! ;s branch
566	con: - lit over +!
16	;s ;s r> r> col:
5166	lit xor and ;s 0=
52	nip execute col: var: col:
375	;s (loop) unloop ;s ;s
1876	swap >r ;s >r ?branch
787	branch @ dup ?branch 2dup
27	;s r> drop col: con:
1	tuck - lit cells /
440	user: @ ;s user: !
1	var: 2@ col: col: col:
6702	cells var: @ + @
24	nip execute col: col: con:
19	cr 0= swap 0<> and
28	var: ! ;s over r@
204	>r cells sp@ cell+ dup
3968	col: 2dup col: var: @
13	rp@ user: ! execute col:
287	var: 2! ;s col: col:
4	;s col: lit var: +!
1	+ @ (loop) unloop var:
121	@ ;s over - swap
5	2@ nip 1- user: !
105	1+ r> move c! ;s
287	col: col: col: col: r>
2882	+! ;s branch branch lit
473	- 1- dup ?branch drop
11070	col: col: r> r> dup
120	+! ;s 2drop ;s ;s
5062	@ col: col: dup field:
23	d+ r> ;s (loop) count
7	@ ?branch defer: noop col:
11070	r> dup count + aligned
1	?branch 2drop dup >r lit
33	col: r> /does-handler + col:
287	unloop ;s var: var: @
599	rot r> var: @ lit
789	;s ;s branch @ dup
223	>r over - dup r>
153	@ ;s lit cells col:
294	defer: (type) ;s branch ;s
227	execute col: col: @ (f83find)
1	?branch 1- (for) var: cell+
6	>r >r ;s user: !
287	;s col: var: var: @
147	! does: @ does: @
59	rot col: col: col: user:
147	rot user: @ um* d+
5	resize col: ?dup ?branch ;s
287	2@ var: 2@ rot swap
145	swap (?do) unloop ;s var:
5	col: col: lit user: !
13	drop col: var: col: lit
53	@ ;s @ ;s -
204	1+ pick >r cells sp@
708	rdrop ;s ;s con: (+loop)
1407	;s con: (+loop) unloop ;s
16	move ;s col: defer: defer:
517	nip execute col: user: @
268	rot 0<> and ?branch 0=
51	col: lit col: col: col:
1616	0= 0= ?branch rot drop
5	1+ dup con: > col:
7	con: defer: noop ;s ;s
113	?branch r> user: ! ;s
1	dup var: ! ?dup ?branch
53	;s @ ;s - col:
281	= ?branch branch drop ;s
4	swap drop branch ;s does:
86	;s ! does: @ col:
7	noop col: r> dup cell+
226	rdrop ;s ;s col: lit
1	count ;s compare 0= r>
59	r@ execute col: var: col:
997	count lit and ;s var:
1	fp@ user: ! col: var:
68	1- >r r@ col: dup
121	<> and col: col: r>
551	r@ col: >r r@ does:
506	- dup @ tuck -
873	col: col: var: col: con:
4938	col: cell+ dup c@ >r
1	;s +! ;s col: col:
915	col: var: col: lit swap
42	@ ! ;s ;s col:
1013	;s swap dup col: col:
1876	>r ;s >r ?branch rdrop
222	(+loop) unloop ;s ;s col:
1138	over - ;s var: 2!
160	@ col: lit col: >r
21	?branch con: min >r var:
25	;s ;s col: con: @
125	con: swap ! ;s over
997	;s dup faligned swap (?do)
253	swap 0= and ?branch ;s
80726	+ swap ;s col: lit
1	nip execute mod ;s branch
642	;s var: @ col: col:
634	;s col: col: var: col:
2	;s drop col: r> /does-handler
951	?branch 0> ?branch nip nip
895	col: @ (f83find) ;s ;s
1	user: ! col: var: 2@
1806	col: ?dup ?branch ;s branch
1744	;s ?branch col: col: var:
2	2dup col: col: r> r>
25	;s 0= var: @ and
3553	(do) 2dup i 2@ over
647	lit min 2dup defer: (type)
8	+ ;s col: user: @
370	col: does: @ col: var:
8	col: 0= ?branch var: col:
33	+ col: col: user: @
148	?branch toupper lit - dup
5730	over c@ or swap c!
1	r> - ?branch dup user:
2	2dup * allocate col: ?dup
78	con: branch ;s lit col:
287	dup var: ! col: var:
1	! ;s branch col: var:
10	(loop) unloop ;s col: col:
47	?branch nip nip execute con:
28	?branch con: - dup @
421	;s c@ col: var: col:
43	rdrop ;s ;s ;s ;s
3553	lit col: drop var: dup
23	@ ;s @ ;s count
6	! user: @ >r >r
13223	+! ;s lit col: col:
28	cell+ tuck ! cell+ tuck
3716	;s col: col: user: @
3980	and 0= ?branch lit r@
7135	user: @ ;s user: @
18	execute col: col: con: lit
5	lit ;s user: @ close-file
9	?branch col: dup col: dup
152	c! ;s con: col: col:
1808	@ ?branch col: user: @
61	;s ?branch execute var: @
789	@ dup ?branch drop !
1333	;s ;s col: col: col:
125	(?do) count col: user: @
3	swap ! ;s user: col:
4	col: >r ;s ;s col:
19	>r >r lit col: 1+
14	;s @ 1+ var: 2@
279	@ dup r@ = ?branch
10413	0= ;s ;s 0= ?branch
4	0> ?branch col: r> dup
18	;s ! ;s col: col:
160	;s c@ 0= or ?branch
5	rdrop ;s nip ?branch var:
1	;s ?branch col: user: @
27	pick col: lit over 0<>
1	var: @ = ?branch i
39	>r dup 0= ?branch over
5877	cell+ swap cell+ swap r>
1	! ;s ;s r> col:
8	;s drop branch ;s branch
3553	field: @ execute col: drop
5332	count lit and + faligned
1	dup col: col: var: col:
11	?dup ?branch ;s swap 2dup
1005	;s cell+ tuck c@ xor
1806	?branch ;s branch lit user:
6	user: @ = ?branch r@
23	nip execute col: col: var:
1	execute 2* ;s branch col:
19	r@ pick r@ pick rdrop
6	var: + @ user: !
1	! execute col: user: @
113	rdrop r> ?branch r> user:
197	lit con: (do) dup i
350	dup 0= lit and col:
31	con: swap ! ;s branch
647	var: count col: col: col:
25	2drop ;s ;s 0= var:
66	@ + ;s @ dup
647	;s ?branch execute var: nip
4	var: col: col: dup field:
1730	;s r> ;s tuck cell+
12	branch drop ;s ;s con:
1806	con: user: @ ?dup ?branch
49	faligned nip ;s col: user:
7	(type) ;s r@ col: >r
574	col: var: @ var: (?do)
24	;s ! con: does: @
3556	;s 0= 0= ?branch cell+
129	unloop ;s lit col: col:
197	?branch drop lit col: lit
4	execute 0= ;s branch col:
121	col: col: col: con: @
1250	(?do) con: col: col: col:
147	@ col: 2dup col: lit
839	(f83find) ;s ;s dup ?branch
3	;s branch ;s ;s does:
129	unloop ;s col: var: @
3731	<> ?branch col: dup field:
153	;s +! ;s 2! ;s
5	swap c! 1+ col: col:
732	! ;s ;s does: @
5	?branch ;s col: ?dup ?branch
3553	dup @ 1- cells over
56	tuck ! cell+ tuck !
125	branch ;s branch col: sp@
235	col: lit col: user: @
6249	user: @ ;s 2dup >r
1	con: open-file col: col: r>
2191	;s col: col: var: @
287	2! var: var: @ col:
15	;s execute col: >r col:
1	compare 0= r> or ?branch
23	+ ;s @ branch ;s
335	0= ?branch does: @ col:
66	;s ;s 2drop branch ;s
15	dup >r 2@ dup >r
700	?branch ;s ;s col: dup
61	@ + ;s @ swap
44	;s ;s ;s ?branch does:
5	branch unloop 0<> lit and
22273	col: col: col: user: @
637	var: 2@ col: drop swap
2592	;s ;s dup ?branch 0>
997	@ and ?dup ?branch 2drop
15	>r col: col: r> r>
708	+ @ ;s execute col:
287	defer: (type) ;s lit defer:
8	;s col: does: @ col:
2	nip execute col: 2dup col:
1730	cells >r var: lit cells
647	r> does: @ + ;s
3	r> ;s ;s ;s branch
5769	user: @ > ?branch ;s
51	branch ;s ;s col: lit
1	cells col: swap >r dup
2	execute col: 2dup col: lit
1	;s ?branch execute con: con:
1769	;s lit @ execute col:
69	col: col: user: @ ?branch
971	?dup ;s ?branch var: @
5	execute over ;s branch col:
27	lit pick col: lit over
997	@ ?dup ;s ?branch dup
5	2! ;s branch dup ?branch
1	>r ;s user: ! user:
10	;s r> user: ! rdrop
5758	@ (hashfind) ;s ;s dup
2	dup @ ?branch dup defer:
3553	+ (do) 2dup i 2@
10413	0= 0= ;s ;s 0=
28	;s over r@ u>= ?branch
5	nip ?branch var: 2@ lit
4	dup ?branch lit /string branch
1138	- ;s var: 2! ;s
10	2dup con: swap read-file ?branch
253	?branch ;s col: var: @
13	fp@ >r col: laddr# ;s
647	+ ;s 2@ 2dup col:
287	col: var: var: @ col:
36915	0= ;s ;s col: 0=
23	+ ;s @ ?branch does:
21	min >r var: r@ cmove
1054	;s ;s col: col: user:
119	u< ?branch drop ;s user:
637	col: drop swap - 1-
305	;s over @ or swap
291	var: +! var: @ con:
96	?branch ?dup ?branch ;s col:
73	nip nip execute col: var:
305	@ or swap ! ;s
28	! ;s + ;s col:
25	;s ;s dup 0= col:
8	?branch var: col: con: swap
2	?dup 0= ?branch 2dup *
27	dup ?branch drop r> col:
16	swap over col: swap col:
1416	! r@ does: @ +
48	r> col: col: col: user:
305	lit swap lshift ;s over
1	nip execute col: lit user:
1	1- i' i - unloop
60	col: 0< ?branch lit col:
225	execute and 0= 0= ?branch
128	;s 2drop ;s does: @
27	execute col: xor invert ;s
30	;s dup 0= ?branch ;s
8	con: swap ! ;s var:
461	nip nip execute col: defer:
1	over c@ lit = ?branch
19	;s col: drop >r drop
1	<> ?branch col: col: 2dup
125	! ;s over c@ lit
3967	;s branch col: sp@ user:
287	;s cr col: var: 2@
10	;s ;s ;s col: r>
3	u> ?branch lit - dup
125	;s dup ?branch drop 2dup
14	r@ col: does: @ +
987	@ + ;s 2@ var:
599	(loop) unloop drop 2drop ;s
291	>r var: col: con: swap
12	drop ;s ;s con: !
2982	branch branch lit col: col:
2048	pick col: dup @ lit
58	?branch nip ;s ?branch 2rdrop
647	unloop ;s dup r> does:
908	;s ?branch ;s col: col:
1	count ;s compare 0= >r
1	lit <> ?branch i 1+
227	(f83find) ;s dup 0= ?branch
19	col: >r >r lit col:
1	(?do) i col: cells var:
287	?branch col: var: ;s lit
3	drop ;s does: @ col:
2	@ (loop) var: cell+ i
1005	lit col: user: @ dup
287	var: ! ;s var: var:
1482	?branch ;s col: col: var:
2	var: @ <> ?branch ;s
59	0= 0= ?branch r@ execute
25	lit var: +! col: var:
1730	drop r@ @ rot !
33	does-code! ;s ;s ;s branch
350	;s ;s lit col: user:
997	>r 2dup 2dup r> col:
223	r> col: >r dup ?branch
7	rot 0= and ?branch col:
647	count move lit lit !
32	dup ?branch drop does: @
3	execute col: dup col: col:
42	execute col: ;s ;s col:
13	@ execute col: col: does:
3	?branch execute does: 2@ ;s
22	;s col: col: col: r>
4	execute col: 0= ?branch var:
2048	! ! ;s lit pick
291	- var: over cell+ !
2	/string ;s ;s over c@
5	nip 1- user: ! lit
281	col: dup negate user: +!
1	- col: col: user: @
3	branch ;s ;s does: @
10	col: lit col: col: defer:
9	char+ c@ ;s ;s branch
1730	lit and col: con: (hashkey1)
5	;s user: ! lit user:
105	lit 2swap swap (?do) unloop
147	;s ! does: @ does:
21	lit ;s ;s ;s branch
197	con: (+loop) dup i -
1	;s ;s dup ?branch rot
5	2dup lit col: >r dup
7	;s ?branch col: col: r>
287	;s cr col: col: col:
287	col: var: @ execute col:
459	or col: col: col: user:
997	col: >r 2dup 2dup r>
663	;s user: @ ;s user:
10	lit col: col: defer: defer:
421	+ ;s @ 0= ?branch
13	>r fp@ >r col: laddr#
16	execute col: lit lit lit
7	var: cell+ i cells +
5	2* cells resize col: ?dup
1416	;s @ ;s dup aligned
5769	> ?branch fp@ user: @
281	negate user: +! lit over
24	;s ;s ;s swap !
3	nip nip execute lshift ;s
16	! ;s r> col: col:
5	;s drop col: ?dup ?branch
647	@ + ;s 2@ 2dup
1	@ = ?branch i 1+
16	+! ;s 2! ;s r>
1	dup 0> 0= ?branch ;s
125	swap ! ;s lit lit
1806	+! swap user: ! lit
2581	/string branch dup ?branch over
1	nip var: 2! ;s defer:
43	con: ;s lit col: col:
507	does: @ does: @ col:
1	+ ! (next) unloop ;s
941	pick ! ! branch var:
2	>body user: @ ?branch col:
1	;s branch dup ?branch 2drop
164	;s ;s dup does: @
1153	swap lit max lit (?do)
1251	;s ;s dup ?branch lit
708	0= ;s ;s ?branch branch
3	;s col: col: var: dup
28	rdrop ;s tuck ! cell+
446	?branch ;s col: 2drop col:
529	! ;s col: col: user:
506	;s defer: (type) ;s ;s
506	- does: swap lit max
78	;s con: = ?branch col:
7	cr branch rdrop ;s ;s
647	! ;s dup col: col:
3	and ?branch or >r col:
5	! ;s ;s drop ;s
25	nip execute col: col: lit
1437	and ?branch negate ;s ;s
997	0< ?branch var: @ @
1	;s >r col: defer: defer:
1022	;s does: @ col: var:
197	i - con: - unloop
3	(next) var: cell+ i cells
30	>r user: @ >r user:
23	drop (parse-white) branch 2dup +
506	um/mod r> ;s rot lit
5	;s 2! ;s ;s con:
5730	c! ;s ;s ! ;s
1876	>r swap >r ;s >r
19	! ;s ;s drop con:
13	laddr# ;s >r user: @
3	rot 2dup and var: @
1	;s over col: col: var:
5	or col: dup ?branch r>
23	move c! ;s con: col:
18	?dup ?branch ?dup ?branch col:
443	;s @ does: @ col:
5	1- + c@ lit <>
12	?branch var: @ ?branch over
1251	dup ?branch lit and ?branch
4	nip execute col: swap col:
106	(+loop) unloop 2drop con: ;s
1801	;s dup ?branch 2drop ;s
647	defer: defer: col: var: count
9	<> ?branch 2dup con: swap
16	>r >r dup >r col:
708	;s 2! con: + ;s
287	2! col: col: r> r>
1	open-file col: col: r> r>
599	col: >r con: rot rot
1730	@ over cell+ count lit
43	?branch con: ;s lit col:
143	drop branch ;s dup does:
5193	over @ r@ execute col:
1	con: / 1+ dup var:
231	swap col: col: col: user:
1	! ?dup ?branch 1- (for)
66	+ ;s @ dup var:
647	min 2dup defer: (type) (+loop)
3	;s drop ;s ;s col:
1	var: @ lit (?do) var:
13	?branch ;s ;s ;s ;s
5	dup ?branch r> r> user:
6699	;s r> xor cells var:
3	swap 1+ /string ;s ;s
196	;s code-address! ;s con: col:
4514	lit and ?branch r> lit
469	var: @ var: (?do) i
789	@ ?branch col: dup @
25	! ;s ;s col: con:
1	?branch con: lit ! lit
61	@ + ;s ! branch
389	@ ;s ;s lit col:
287	over - ;s 2dup var:
880	+ ;s ! does: @
3	1- ;s branch col: sp@
2	! defer: drop ;s drop
5	lit user: ! user: col:
987	+ ;s 2@ var: @
6	execute aligned ;s branch col:
1730	col: con: (hashkey1) ;s xor
19	rot col: con: <> col:
4	lit lit col: >r dup
7	defer: (type) ;s cr branch
13	;s ;s r> ;s ;s
22	;s ;s swap col: col:
19	var: ! ;s rdrop ;s
11070	aligned >r swap >r ;s
6	nip nip execute aligned ;s
66	dup var: 2@ col: drop
1	var: @ 0= ?branch con:
23	min /string rot dup con:
5	>r lit col: >r dup
16	execute col: >r >r >r
292	! ;s ;s var: field:
19	;s ;s col: drop >r
82	over char+ col: col: user:
6	nip execute aligned ;s branch
6699	con: (hashkey1) ;s r> xor
903	;s ;s ;s branch col:
1	;s defer: noop var: @
1	! defer: drop ;s ;s
125	dup ?branch 2drop rdrop r>
506	- dup ! ;s col:
10	read-file ?branch rot over +
27	drop r> col: col: col:
1	lit + dup user: !
3	col: cells var: @ +
469	2swap swap (?do) i col:
121	con: <> and col: col:
1	;s defer: noop ;s r>
19	;s @ ;s ;s char+
6699	@ >r 2dup col: con:
148	+! ;s ! ;s lit
52	2dup u< ?branch = ;s
287	unloop ;s ;s col: var:
1	execute col: col: sp@ user:
291	?branch ;s lit cells -
6912	@ ;s user: @ ;s
124	;s col: col: col: con:
281	user: @ swap - col:
5	;s col: ?dup ?branch ;s
19	r> r> rot col: con:
15	var: swap cmove 2dup var:
5	>r ;s user: ! lit
5877	over @ over @ r@
56	(f83find) ;s ;s var: @
1	?branch 2drop col: col: user:
66	(type) ;s 1+ var: 2@
287	0= rot 0<> and ?branch
1	branch (+loop) i col: cells
4	(do) i over col: swap
1	nip nip execute 0< ;s
941	;s ?branch var: @ col:
3	@ ;s branch col: sp@
4	;s branch dup ?branch lit
1806	lit user: ! ;s ?branch
21	con: lit ;s ;s ;s
911	dup faligned swap (?do) con:
5	col: user: @ >r col:
5	tuck 1+ 2* cells resize
8	@ lit ! var: var:
5	>r ;s drop col: ?dup
1022	;s ! ;s ;s lit
5	var: ! col: var: dup
26	nip nip execute col: con:
236	and ?branch ;s col: col:
3	lshift ;s branch col: sp@
412	con: swap ! ;s lit
21	;s 0> ?branch col: col:
647	! ;s ;s dup >r
4	;s 0> ?branch col: r>
1	>r col: lit (?do) unloop
1730	var: lit cells lit col:
3	?branch lit - dup lit
121	swap con: <> and col:
128	+! ;s ;s ;s 2drop
3968	defer: col: 2dup col: var:
2158	col: var: @ over -
125	;s user: @ 0= ?branch
5	nip r> rdrop lit branch
5	;s >body user: @ ?branch
997	var: @ col: >r 2dup
87	con: 1+ within 0= col:
5730	swap col: con