15143346	5779740	3540682	5822924	NEXTS
2038446	793119	442464	802863	;s
1995025	787457	428114	779454	col:
1355759	503162	283813	568784	@
765602	275772	183685	306145	?branch
700996	246049	141642	313305	lit
674069	270409	125561	278099	col: col:
519952	151876	36627	331449	var:
515649	208841	126882	179926	dup
486243	254487	131630	100126	user:
457720	109479	44542	303699	swap
419537	156910	98260	164367	+
402746	208519	109785	84442	user: @
402579	209151	103852	89576	@ ;s
401507	174555	73650	153302	;s ;s
381210	98308	17331	265571	var: @
377418	164606	70945	141867	con:
354087	95407	33153	225527	;s col:
309835	182862	60124	66849	>r
292806	173229	57072	62505	r>
275656	28804	16214	230638	0=
251576	126970	68518	56088	user: @ ;s
248438	121046	70632	56760	col: user:
248104	120712	70632	56760	col: user: @
216244	105626	60494	50124	col: col: user: @
216244	105626	60494	50124	col: col: user:
212251	104129	58946	49176	col: user: @ ;s
203922	100088	56464	47370	col: col: user: @ ;s
199820	91949	8004	99867	col: var:
196434	55035	27799	113600	and
192467	68884	21938	101645	c@
187718	83969	57687	46062	!
182861	99558	41195	42108	over
170810	36514	22562	111734	col: lit
169028	44781	19153	105094	col: con:
167571	31201	41220	95150	cells
167474	57880	12340	97254	rot
165683	82438	47254	35991	2dup
164287	46640	18903	98744	lit col:
159526	63073	6175	90278	col: var: @
153550	49352	10997	93201	;s col: col:
149816	73999	49793	26024	dup ?branch
148765	42409	18509	87847	?branch lit
142644	66254	48157	28233	;s @
141586	55741	43102	42743	branch
139323	0	139323	0	@local1
135658	48991	394	86273	col: col: var:
132375	53809	51672	26894	;s dup
131373	46307	0	85066	col: col: var: @
129236	46217	24350	58669	+!
127031	61331	37581	28119	col: col: col:
124565	73765	22169	28631	r@
121258	19748	19543	81967	=
118775	18113	18986	81676	= ?branch
118088	21332	6278	90478	lit col: col:
116035	52796	35160	28079	! ;s
112276	20152	4945	87179	+ swap
111648	39594	17275	54779	+! ;s
111423	42444	34770	34209	defer:
109783	76322	17118	16343	con: col:
108908	55593	29618	23697	;s @ ;s
108895	55520	29678	23697	user: @ ;s @
108895	55520	29678	23697	col: user: @ ;s @
108895	55520	29678	23697	col: col: user: @ ;s @
108895	55520	29678	23697	@ ;s @
108835	55520	29618	23697	user: @ ;s @ ;s
108835	55520	29618	23697	col: user: @ ;s @ ;s
108835	55520	29618	23697	@ ;s @ ;s
108626	0	108626	0	>l
107819	47709	34723	25387	field:
106079	55162	25900	25017	col: dup
106058	43162	42530	20366	;s dup ?branch
103985	37694	18983	47308	<>
103908	47701	31113	25094	field: @
102930	50665	26789	25476	lit and
102443	12427	6036	83980	@ dup
102351	11144	4751	86456	rot + swap
102351	11144	4751	86456	rot +
101933	11014	4755	86164	c@ ;s
101841	74745	12327	14769	c!
101661	8350	5782	87529	;s swap
101650	36311	18325	47014	<> ?branch
101169	9853	5732	85584	and 0=
100983	9776	4751	86456	/mod
99120	47603	39014	12503	i
97022	38475	38079	20468	drop
96461	5054	5071	86336	col: col: con:
96125	33283	38718	24124	cell+
93268	44934	18542	29792	count
92563	2056	7533	82974	;s col: lit
92381	22723	8638	61020	0= ?branch
92040	41023	29797	21220	;s con:
89779	35869	33024	20886	-
88442	7667	43	80732	swap ;s
88331	7605	0	80726	+ swap ;s
87343	45645	21280	20418	?branch col:
87199	34933	18457	33809	;s lit
85910	0	0	85910	0= 0=
85420	4918	13	80489	@ =
85359	4918	13	80428	@ = ?branch
84258	249	2912	81097	dup var:
84132	43533	14258	26341	@ +
83734	43424	24082	16228	;s ;s ;s
83476	40655	24427	18394	defer: col:
83440	20	2905	80515	@ dup var:
83404	31647	32586	19171	+ ;s
83191	1162	568	81461	@ and
83013	0	2588	80425	0= ;s
82851	2043	51	80757	var: @ dup
82312	5	10	82297	lit swap
82288	0	0	82288	col: lit swap
81775	1246	51	80478	col: var: @ dup
81511	781	1	80729	lshift ;s
81511	781	1	80729	lshift
80781	0	360	80421	swap @
80747	13	4	80730	swap ;s col:
80726	0	0	80726	swap lshift ;s
80726	0	0	80726	swap lshift
80726	0	0	80726	swap ;s col: lit swap lshift
80726	0	0	80726	swap ;s col: lit swap
80726	0	0	80726	swap ;s col: lit
80726	0	0	80726	rot + swap ;s col: lit
80726	0	0	80726	rot + swap ;s col:
80726	0	0	80726	rot + swap ;s
80726	0	0	80726	lit swap lshift ;s
80726	0	0	80726	lit swap lshift
80726	0	0	80726	con: /mod cells rot + swap
80726	0	0	80726	con: /mod cells rot +
80726	0	0	80726	con: /mod cells rot
80726	0	0	80726	con: /mod cells
80726	0	0	80726	con: /mod
80726	0	0	80726	col: lit swap lshift ;s
80726	0	0	80726	col: lit swap lshift
80726	0	0	80726	col: con: /mod cells rot +
80726	0	0	80726	col: con: /mod cells rot
80726	0	0	80726	col: con: /mod cells
80726	0	0	80726	col: con: /mod
80726	0	0	80726	cells rot + swap ;s col:
80726	0	0	80726	cells rot + swap ;s
80726	0	0	80726	cells rot + swap
80726	0	0	80726	cells rot +
80726	0	0	80726	cells rot
80726	0	0	80726	;s col: lit swap lshift ;s
80726	0	0	80726	;s col: lit swap lshift
80726	0	0	80726	;s col: lit swap
80726	0	0	80726	/mod cells rot + swap ;s
80726	0	0	80726	/mod cells rot + swap
80726	0	0	80726	/mod cells rot +
80726	0	0	80726	/mod cells rot
80726	0	0	80726	/mod cells
80726	0	0	80726	+ swap ;s col: lit swap
80726	0	0	80726	+ swap ;s col: lit
80726	0	0	80726	+ swap ;s col:
80646	0	0	80646	and 0= 0=
80494	20	25	80449	var: @ dup var:
80494	20	25	80449	col: var: @ dup var:
80457	28	4	80425	c@ ;s col:
80448	20	0	80428	;s col: col: con:
80423	1	0	80422	var: @ = ?branch
80423	1	0	80422	var: @ =
80421	0	0	80421	var: @ dup var: @ =
80421	0	0	80421	var: @ dup var: @
80421	0	0	80421	swap lshift ;s swap @ and
80421	0	0	80421	swap lshift ;s swap @
80421	0	0	80421	swap lshift ;s swap
80421	0	0	80421	swap @ and 0= 0= ;s
80421	0	0	80421	swap @ and 0= 0=
80421	0	0	80421	swap @ and 0=
80421	0	0	80421	swap @ and
80421	0	0	80421	lshift ;s swap @ and 0=
80421	0	0	80421	lshift ;s swap @ and
80421	0	0	80421	lshift ;s swap @
80421	0	0	80421	lshift ;s swap
80421	0	0	80421	lit swap lshift ;s swap @
80421	0	0	80421	lit swap lshift ;s swap
80421	0	0	80421	lit col: col: var: @ dup
80421	0	0	80421	lit col: col: var: @
80421	0	0	80421	lit col: col: var:
80421	0	0	80421	dup var: @ = ?branch
80421	0	0	80421	dup var: @ =
80421	0	0	80421	dup var: @
80421	0	0	80421	col: var: @ dup var: @
80421	0	0	80421	col: lit swap lshift ;s swap
80421	0	0	80421	col: col: var: @ dup var:
80421	0	0	80421	col: col: var: @ dup
80421	0	0	80421	col: col: con: /mod cells rot
80421	0	0	80421	col: col: con: /mod cells
80421	0	0	80421	col: col: con: /mod
80421	0	0	80421	and 0= 0= ;s ;s
80421	0	0	80421	and 0= 0= ;s
80421	0	0	80421	@ dup var: @ = ?branch
80421	0	0	80421	@ dup var: @ =
80421	0	0	80421	@ dup var: @
80421	0	0	80421	@ and 0= 0= ;s ;s
80421	0	0	80421	@ and 0= 0= ;s
80421	0	0	80421	@ and 0= 0=
80421	0	0	80421	@ and 0=
80421	0	0	80421	;s swap @ and 0= 0=
80421	0	0	80421	;s swap @ and 0=
80421	0	0	80421	;s swap @ and
80421	0	0	80421	;s swap @
80421	0	0	80421	;s col: col: con: /mod cells
80421	0	0	80421	;s col: col: con: /mod
80421	0	0	80421	0= ;s ;s
80421	0	0	80421	0= 0= ;s ;s
80421	0	0	80421	0= 0= ;s
80415	0	0	80415	var: @ = ?branch c@ ;s
80415	0	0	80415	var: @ = ?branch c@
80415	0	0	80415	dup var: @ = ?branch c@
80415	0	0	80415	c@ ;s col: col: con: /mod
80415	0	0	80415	c@ ;s col: col: con:
80415	0	0	80415	c@ ;s col: col:
80415	0	0	80415	@ = ?branch c@ ;s col:
80415	0	0	80415	@ = ?branch c@ ;s
80415	0	0	80415	@ = ?branch c@
80415	0	0	80415	?branch c@ ;s col: col: con:
80415	0	0	80415	?branch c@ ;s col: col:
80415	0	0	80415	?branch c@ ;s col:
80415	0	0	80415	?branch c@ ;s
80415	0	0	80415	?branch c@
80415	0	0	80415	= ?branch c@ ;s col: col:
80415	0	0	80415	= ?branch c@ ;s col:
80415	0	0	80415	= ?branch c@ ;s
80415	0	0	80415	= ?branch c@
79644	27806	6564	45274	;s ;s col:
77857	28954	26630	22273	col: col: col: user: @
77857	28954	26630	22273	col: col: col: user:
75428	27788	26338	21302	col: col: col: user: @ ;s
75337	29745	20391	25201	execute
73426	45805	14153	13468	(loop)
72370	34611	19847	17912	?branch ;s
72307	29204	19793	23310	execute col:
71709	37584	18304	15821	;s ;s dup
69866	0	69866	0	lp-
69866	0	69866	0	>l lp-
67323	41492	12127	13704	c! ;s
67084	36015	14961	16108	con: col: col:
66208	0	66208	0	lp- @local1
66208	0	66208	0	>l lp- @local1
65843	36473	16730	12640	user: !
64719	20570	4649	39500	<> ?branch lit
64545	10365	12985	41195	;s ?branch
64364	31733	18226	14405	;s ;s dup ?branch
64291	41637	13568	9086	/string
64062	55618	7432	1012	um/mod r>
64062	55618	7432	1012	um/mod
63029	18001	12164	32864	;s branch
62005	31532	13185	17288	+ @
61810	26511	17978	17321	dup @
61274	40058	12291	8925	;s user:
60795	38684	10369	11742	swap >r
58376	26295	5655	26426	;s lit col:
57415	27612	17278	12525	nip
54990	25803	13836	15351	@ execute
54731	25595	13836	15300	@ execute col:
54454	20854	16872	16728	user: @ ;s +! ;s
54454	20854	16872	16728	user: @ ;s +!
54454	20854	16872	16728	col: user: @ ;s +! ;s
54454	20854	16872	16728	col: user: @ ;s +!
54454	20854	16872	16728	col: col: user: @ ;s +!
54454	20854	16872	16728	@ ;s +! ;s
54454	20854	16872	16728	@ ;s +!
54454	20854	16872	16728	;s +! ;s
54454	20854	16872	16728	;s +!
54054	40641	7753	5660	col: >r
54020	16742	49	37229	var: +!
53633	16720	0	36913	var: +! ;s
53200	23632	18660	10908	lit +
53097	38761	5904	8432	var: @ +
52903	25069	14406	13428	@ field: @
52903	25069	14406	13428	@ field:
52731	33460	10470	8801	over c@
52195	37663	9088	5444	lit r@
51761	34111	10362	7288	;s user: @
51209	6689	3259	41261	?branch lit col:
50862	30571	8969	11322	?dup
50600	0	50600	0	col: >l
50084	23847	13836	12401	field: @ field: @ execute col:
50084	23847	13836	12401	field: @ field: @ execute
50084	23847	13836	12401	field: @ field: @
50084	23847	13836	12401	field: @ field:
50084	23847	13836	12401	field: @ execute col:
50084	23847	13836	12401	field: @ execute
50084	23847	13836	12401	@ field: @ execute col:
50084	23847	13836	12401	@ field: @ execute
49909	21430	17484	10995	2drop
49863	0	49863	0	lp+
49069	26058	13229	9782	;s con: col:
48487	28685	11230	8572	@ ;s user:
48327	23345	12664	12318	and ?branch
48046	14221	22260	11565	;s !
47571	22632	13273	11666	dup field:
47486	19274	13675	14537	@ col:
47265	22625	13266	11374	dup field: @ field: @ execute
47265	22625	13266	11374	dup field: @ field: @
47265	22625	13266	11374	dup field: @ field:
47265	22625	13266	11374	dup field: @
47265	22625	13266	11374	col: dup field: @ field: @
47265	22625	13266	11374	col: dup field: @ field:
47265	22625	13266	11374	col: dup field: @
47265	22625	13266	11374	col: dup field:
47255	19538	16173	11544	>
47242	28570	11509	7163	min
46396	25860	4751	15785	@ + ;s
46212	22595	12490	11127	lit and ?branch
45858	18409	15910	11539	> ?branch
45833	5197	1081	39555	?branch var:
45832	18408	15886	11538	@ > ?branch
45832	18408	15886	11538	@ >
45816	18408	15870	11538	user: @ > ?branch
45816	18408	15870	11538	user: @ >
45767	27523	10669	7575	user: @ ;s user:
45568	28748	9751	7069	1+
44580	6548	14580	23452	does:
44366	36196	5473	2697	r> ;s
44254	20129	18125	6000	?branch drop
44216	14215	15931	14070	aligned
44096	24561	11289	8246	user: ! ;s
44001	21923	10450	11628	2dup col:
43364	3151	2070	38143	@ var:
43258	2716	1000	39542	?branch var: @
43181	26071	9975	7135	user: @ ;s user: @
43181	26071	9975	7135	@ ;s user: @
42348	24195	8562	9591	;s r>
42334	13102	4406	24826	;s lit col: col:
42008	0	42008	0	@local1 col:
41705	15690	10574	15441	2@
41573	20070	6876	14627	xor
41348	24003	10083	7262	defer: col: col:
41320	19138	11683	10499	unloop
41131	18615	12930	9586	;s con: col: col:
41026	25091	9281	6654	c! ;s ;s
40819	0	3904	36915	@ <> ?branch
40819	0	3904	36915	@ <>
40708	25807	8547	6354	1+ r>
40704	13011	15045	12648	+ aligned
40451	14186	15288	10977	@ ;s con:
40326	19706	10744	9876	r@ lit and
40326	19706	10744	9876	r@ lit
39794	17757	12843	9194	con: col: col: user: @ ;s
39794	17757	12843	9194	con: col: col: user: @
39794	17757	12843	9194	con: col: col: user:
39794	17757	12843	9194	;s con: col: col: user: @
39794	17757	12843	9194	;s con: col: col: user:
39604	20334	12227	7043	;s 2dup
39524	8	2588	36928	col: 0=
39505	1	2588	36916	;s col: 0=
39325	22841	9572	6912	user: @ ;s user: @ ;s
39325	22841	9572	6912	defer: col: col: user: @ ;s
39325	22841	9572	6912	defer: col: col: user: @
39325	22841	9572	6912	defer: col: col: user:
39325	22841	9572	6912	col: user: @ ;s user: @
39325	22841	9572	6912	col: user: @ ;s user:
39325	22841	9572	6912	col: col: user: @ ;s user:
39325	22841	9572	6912	@ ;s user: @ ;s
39325	22841	9572	6912	;s user: @ ;s
39143	21396	9818	7929	col: defer:
39083	1908	255	36920	@ var: @
39014	32375	203	6436	@ ;s ;s
38977	1098	369	37510	lit var:
38959	9236	3359	26364	branch lit
38709	1220	0	37489	var: @ var:
38345	0	38345	0	@local1 col: >l
38051	25064	6422	6565	?dup ?branch
37737	0	29	37708	?branch lit col: col:
37694	779	0	36915	var: @ var: @
37648	0	0	37648	?branch lit col: col: var: @
37648	0	0	37648	?branch lit col: col: var:
37543	630	0	36913	?branch lit var:
37300	22	49	37229	lit var: +!
37265	33	19	37213	0= ?branch var:
37237	322	0	36915	?branch var: @ var:
37229	5	19	37205	0= ?branch var: @
36936	8	0	36928	col: 0= ?branch
36929	6	0	36923	col: 0= ?branch var:
36917	1	0	36916	;s col: 0= ?branch var:
36917	1	0	36916	;s col: 0= ?branch
36915	0	0	36915	var: @ var: @ <> ?branch
36915	0	0	36915	var: @ var: @ <>
36915	0	0	36915	var: @ <> ?branch
36915	0	0	36915	var: @ <>
36915	0	0	36915	col: 0= ?branch var: @ var:
36915	0	0	36915	col: 0= ?branch var: @
36915	0	0	36915	and 0= 0= ;s ;s col:
36915	0	0	36915	@ var: @ <> ?branch
36915	0	0	36915	@ var: @ <>
36915	0	0	36915	?branch var: @ var: @ <>
36915	0	0	36915	?branch var: @ var: @
36915	0	0	36915	;s col: 0= ?branch var: @
36915	0	0	36915	;s ;s col: 0= ?branch var:
36915	0	0	36915	;s ;s col: 0= ?branch
36915	0	0	36915	;s ;s col: 0=
36915	0	0	36915	0= ?branch var: @ var: @
36915	0	0	36915	0= ?branch var: @ var:
36915	0	0	36915	0= ;s ;s col: 0= ?branch
36915	0	0	36915	0= ;s ;s col: 0=
36915	0	0	36915	0= ;s ;s col:
36915	0	0	36915	0= 0= ;s ;s col: 0=
36915	0	0	36915	0= 0= ;s ;s col:
36913	0	0	36913	var: @ <> ?branch lit var:
36913	0	0	36913	var: @ <> ?branch lit
36913	0	0	36913	lit var: +! ;s
36913	0	0	36913	@ var: @ <> ?branch lit
36913	0	0	36913	@ <> ?branch lit var: +!
36913	0	0	36913	@ <> ?branch lit var:
36913	0	0	36913	@ <> ?branch lit
36913	0	0	36913	?branch lit var: +! ;s
36913	0	0	36913	?branch lit var: +!
36913	0	0	36913	<> ?branch lit var: +! ;s
36913	0	0	36913	<> ?branch lit var: +!
36913	0	0	36913	<> ?branch lit var:
36850	0	36850	0	lp+ ;s
36117	13470	13481	9166	;s ! ;s
35811	19962	9143	6706	col: defer: col:
35269	19375	6914	8980	swap col:
35268	16464	5123	13681	execute col: lit
35059	19378	7622	8059	count lit
34859	19495	8914	6450	>r user:
34738	27900	5764	1074	;s rot
34283	0	0	34283	;s ;s ?branch
34259	16954	6212	11093	count +
33617	18694	8598	6325	>r user: @
33475	18619	8607	6249	col: defer: col: col:
33427	5539	27854	34	cells +
33365	5508	27835	22	cells + ;s
33343	18619	8475	6249	col: defer: col: col: user: @
33343	18619	8475	6249	col: defer: col: col: user:
33306	13312	11670	8324	@ ;s lit
33303	13312	11670	8321	user: @ ;s @ ;s lit
33303	13312	11670	8321	@ ;s @ ;s lit
33303	13312	11670	8321	;s @ ;s lit
33142	18271	8522	6349	>r >r
33093	0	0	33093	and 0= 0= ;s ;s ?branch
33093	0	0	33093	0= ;s ;s ?branch
33093	0	0	33093	0= 0= ;s ;s ?branch
32948	15749	8373	8826	@ + @
32943	18174	8493	6276	>r >r user: @
32943	18174	8493	6276	>r >r user:
32926	18186	8490	6250	r> -
32894	18160	8480	6254	2dup +
32883	18159	8475	6249	user: @ ;s 2dup >r >r
32883	18159	8475	6249	user: @ ;s 2dup >r
32883	18159	8475	6249	user: @ ;s 2dup
32883	18159	8475	6249	r> min user: ! ;s
32883	18159	8475	6249	r> min user: !
32883	18159	8475	6249	r> min user:
32883	18159	8475	6249	r> min
32883	18159	8475	6249	r> - 1+ r> min user:
32883	18159	8475	6249	r> - 1+ r> min
32883	18159	8475	6249	r> - 1+ r>
32883	18159	8475	6249	r> - 1+
32883	18159	8475	6249	min user: ! ;s
32883	18159	8475	6249	min user: !
32883	18159	8475	6249	min user:
32883	18159	8475	6249	@ ;s user: @ ;s 2dup
32883	18159	8475	6249	@ ;s 2dup >r >r user:
32883	18159	8475	6249	@ ;s 2dup >r >r
32883	18159	8475	6249	@ ;s 2dup >r
32883	18159	8475	6249	@ ;s 2dup
32883	18159	8475	6249	;s user: @ ;s 2dup >r
32883	18159	8475	6249	;s user: @ ;s 2dup
32883	18159	8475	6249	;s 2dup >r >r user: @
32883	18159	8475	6249	;s 2dup >r >r user:
32883	18159	8475	6249	;s 2dup >r >r
32883	18159	8475	6249	;s 2dup >r
32883	18159	8475	6249	2dup >r >r user: @
32883	18159	8475	6249	2dup >r >r user:
32883	18159	8475	6249	2dup >r >r
32883	18159	8475	6249	2dup >r
32883	18159	8475	6249	2dup + r> - 1+ r>
32883	18159	8475	6249	2dup + r> - 1+
32883	18159	8475	6249	2dup + r> -
32883	18159	8475	6249	2dup + r>
32883	18159	8475	6249	1+ r> min user: ! ;s
32883	18159	8475	6249	1+ r> min user: !
32883	18159	8475	6249	1+ r> min user:
32883	18159	8475	6249	1+ r> min
32883	18159	8475	6249	- 1+ r> min user: !
32883	18159	8475	6249	- 1+ r> min user:
32883	18159	8475	6249	- 1+ r> min
32883	18159	8475	6249	- 1+ r>
32883	18159	8475	6249	- 1+
32883	18159	8475	6249	+ r> - 1+ r> min
32883	18159	8475	6249	+ r> - 1+ r>
32883	18159	8475	6249	+ r> - 1+
32883	18159	8475	6249	+ r> -
32883	18159	8475	6249	+ r>
32883	18159	8475	6249	(parse-white)
32569	21646	4882	6041	+! ;s col:
32434	28166	3737	531	>r lit
32373	28151	3716	506	col: >r lit
32370	13593	10169	8608	dup col:
32279	0	32279	0	col: >l lp-
32186	27924	3743	519	r> swap
32184	10145	12868	9171	user: @ ;s @ ;s con:
32184	10145	12868	9171	@ ;s con: col: col:
32184	10145	12868	9171	@ ;s con: col:
32184	10145	12868	9171	@ ;s @ ;s con: col:
32184	10145	12868	9171	@ ;s @ ;s con:
32184	10145	12868	9171	;s @ ;s con: col: col:
32184	10145	12868	9171	;s @ ;s con: col:
32184	10145	12868	9171	;s @ ;s con:
32159	27897	3743	519	r> swap >r
32155	10145	12839	9171	@ ;s con: col: col: user:
32031	27809	3716	506	um/mod r> swap >r um/mod r>
32031	27809	3716	506	um/mod r> swap >r um/mod
32031	27809	3716	506	um/mod r> swap >r
32031	27809	3716	506	um/mod r> swap
32031	27809	3716	506	um/mod r> ;s rot
32031	27809	3716	506	um/mod r> ;s
32031	27809	3716	506	swap >r um/mod r> ;s rot
32031	27809	3716	506	swap >r um/mod r> ;s
32031	27809	3716	506	swap >r um/mod r>
32031	27809	3716	506	swap >r um/mod
32031	27809	3716	506	r@ um/mod r> swap >r um/mod
32031	27809	3716	506	r@ um/mod r> swap >r
32031	27809	3716	506	r@ um/mod r> swap
32031	27809	3716	506	r@ um/mod r>
32031	27809	3716	506	r@ um/mod
32031	27809	3716	506	r> swap >r um/mod r> ;s
32031	27809	3716	506	r> swap >r um/mod r>
32031	27809	3716	506	r> swap >r um/mod
32031	27809	3716	506	r> ;s rot
32031	27809	3716	506	lit r@ um/mod r> swap >r
32031	27809	3716	506	lit r@ um/mod r> swap
32031	27809	3716	506	lit r@ um/mod r>
32031	27809	3716	506	lit r@ um/mod
32031	27809	3716	506	col: >r lit r@ um/mod r>
32031	27809	3716	506	col: >r lit r@ um/mod
32031	27809	3716	506	col: >r lit r@
32031	27809	3716	506	>r um/mod r> ;s rot
32031	27809	3716	506	>r um/mod r> ;s
32031	27809	3716	506	>r um/mod r>
32031	27809	3716	506	>r um/mod
32031	27809	3716	506	>r lit r@ um/mod r> swap
32031	27809	3716	506	>r lit r@ um/mod r>
32031	27809	3716	506	>r lit r@ um/mod
32031	27809	3716	506	>r lit r@
32002	12427	7911	11664	! ;s ;s
31970	17641	5900	8429	xor cells
31970	17641	5900	8429	con: (hashkey1) ;s
31970	17641	5900	8429	con: (hashkey1)
31970	17641	5900	8429	col: lit +
31970	17641	5900	8429	col: con: (hashkey1) ;s
31970	17641	5900	8429	col: con: (hashkey1)
31970	17641	5900	8429	(hashkey1) ;s
31970	17641	5900	8429	(hashkey1)
31728	14446	6208	11074	dup count
31550	26409	1482	3659	(loop) con: col:
31550	26409	1482	3659	(loop) con:
31427	18869	6332	6226	col: cell+
31040	17449	4024	9567	;s var:
30825	10926	8101	11798	col: r>
30667	15414	7915	7338	col: col: dup
30442	22079	5480	2883	?branch over
30322	18383	6268	5671	>r col:
30077	8614	13855	7608	con: -
29969	16909	5363	7697	>r 2dup
29959	22073	5068	2818	r@ <> ?branch
29959	22073	5068	2818	r@ <>
29959	22073	5068	2818	over c@ r@ <> ?branch
29959	22073	5068	2818	over c@ r@ <>
29959	22073	5068	2818	over c@ r@
29959	22073	5068	2818	dup ?branch over c@ r@ <>
29959	22073	5068	2818	dup ?branch over c@ r@
29959	22073	5068	2818	dup ?branch over c@
29959	22073	5068	2818	dup ?branch over
29959	22073	5068	2818	c@ r@ <> ?branch
29959	22073	5068	2818	c@ r@ <>
29959	22073	5068	2818	c@ r@
29959	22073	5068	2818	?branch over c@ r@ <> ?branch
29959	22073	5068	2818	?branch over c@ r@ <>
29959	22073	5068	2818	?branch over c@ r@
29959	22073	5068	2818	?branch over c@
29957	14276	7622	8059	count lit and
29945	20674	2583	6688	;s c!
29944	13360	9320	7264	over <> ?branch
29944	13360	9320	7264	over <>
29944	13360	9320	7264	i 2@ over <> ?branch
29944	13360	9320	7264	i 2@ over <>
29944	13360	9320	7264	i 2@ over
29944	13360	9320	7264	i 2@
29944	13360	9320	7264	2dup i 2@ over <> ?branch
29944	13360	9320	7264	2dup i 2@ over <>
29944	13360	9320	7264	2dup i 2@ over
29944	13360	9320	7264	2dup i 2@
29944	13360	9320	7264	2dup i
29944	13360	9320	7264	2@ over <> ?branch
29944	13360	9320	7264	2@ over <>
29944	13360	9320	7264	2@ over
29926	12201	10045	7680	;s ;s ;s dup
29805	0	0	29805	;s ?branch lit
29610	9981	7870	11759	r> dup
29584	17160	5248	7176	@ >r
29555	20674	2583	6298	;s c! ;s
29381	11828	9791	7762	col: drop
29274	10772	6577	11925	>r swap
29174	4366	2420	22388	;s branch lit
29168	16092	4795	8281	@ execute col: lit
29128	11489	9989	7650	;s ;s ;s dup ?branch
29044	26583	124	2337	var: @ ;s
29043	26583	124	2336	col: var: @ ;s
28977	0	28977	0	@local1 col: >l lp-
28872	0	0	28872	;s ;s ?branch lit
28872	0	0	28872	0= ;s ;s ?branch lit
28872	0	0	28872	0= 0= ;s ;s ?branch lit
28849	0	28849	0	col: >l lp- @local1
28839	2	26711	2126	i col:
28701	20925	5027	2749	branch dup
28617	10704	10764	7149	;s defer:
28534	13957	8643	5934	?branch nip
28485	0	0	28485	;s ?branch lit col: col: var:
28485	0	0	28485	;s ?branch lit col: col:
28485	0	0	28485	;s ?branch lit col:
28485	0	0	28485	;s ;s ?branch lit col: col:
28485	0	0	28485	;s ;s ?branch lit col:
28485	0	0	28485	0= ;s ;s ?branch lit col:
28289	20994	4685	2610	lit /string
28229	20957	4668	2604	?branch lit /string
28092	20650	4850	2592	branch dup ?branch
27883	20607	4678	2598	lit /string branch
27883	20607	4678	2598	/string branch
27823	20570	4661	2592	?branch lit /string branch
27815	20570	4657	2588	lit /string branch dup
27815	20570	4657	2588	?branch lit /string branch dup
27815	20570	4657	2588	/string branch dup
27806	20570	4649	2587	r@ <> ?branch lit /string branch
27806	20570	4649	2587	r@ <> ?branch lit /string
27806	20570	4649	2587	r@ <> ?branch lit
27806	20570	4649	2587	over c@ r@ <> ?branch lit
27806	20570	4649	2587	lit /string branch dup ?branch
27806	20570	4649	2587	c@ r@ <> ?branch lit /string
27806	20570	4649	2587	c@ r@ <> ?branch lit
27806	20570	4649	2587	?branch lit /string branch dup ?branch
27806	20570	4649	2587	<> ?branch lit /string branch dup
27806	20570	4649	2587	<> ?branch lit /string branch
27806	20570	4649	2587	<> ?branch lit /string
27806	20570	4649	2587	/string branch dup ?branch
27653	20440	4632	2581	lit /string branch dup ?branch over
27653	20440	4632	2581	branch dup ?branch over c@ r@
27653	20440	4632	2581	branch dup ?branch over c@
27653	20440	4632	2581	branch dup ?branch over
27653	20440	4632	2581	/string branch dup ?branch over c@
27653	20440	4632	2581	/string branch dup ?branch over
27492	25311	0	2181	col: col: var: @ ;s
27397	9835	9174	8388	dup col: col:
27310	15786	4816	6708	cells var:
27250	15749	4799	6702	var: @ + @
27250	15749	4799	6702	cells var: @ + @
27250	15749	4799	6702	cells var: @ +
27250	15749	4799	6702	cells var: @
27242	15747	4795	6700	>r 2dup col:
27240	15746	4795	6699	xor cells var: @ + @
27240	15746	4795	6699	xor cells var: @ +
27240	15746	4795	6699	xor cells var: @
27240	15746	4795	6699	xor cells var:
27240	15746	4795	6699	var: @ + @ (hashfind) ;s
27240	15746	4795	6699	var: @ + @ (hashfind)
27240	15746	4795	6699	r> xor cells var: @ +
27240	15746	4795	6699	r> xor cells var: @
27240	15746	4795	6699	r> xor cells var:
27240	15746	4795	6699	r> xor cells
27240	15746	4795	6699	r> xor
27240	15746	4795	6699	lit + @ >r 2dup col:
27240	15746	4795	6699	lit + @ >r 2dup
27240	15746	4795	6699	lit + @ >r
27240	15746	4795	6699	lit + @
27240	15746	4795	6699	field: @ execute col: lit +
27240	15746	4795	6699	field: @ execute col: lit
27240	15746	4795	6699	execute col: lit + @ >r
27240	15746	4795	6699	execute col: lit + @
27240	15746	4795	6699	execute col: lit +
27240	15746	4795	6699	con: (hashkey1) ;s r> xor cells
27240	15746	4795	6699	con: (hashkey1) ;s r> xor
27240	15746	4795	6699	con: (hashkey1) ;s r>
27240	15746	4795	6699	col: lit + @ >r 2dup
27240	15746	4795	6699	col: lit + @ >r
27240	15746	4795	6699	col: lit + @
27240	15746	4795	6699	col: con: (hashkey1) ;s r> xor
27240	15746	4795	6699	col: con: (hashkey1) ;s r>
27240	15746	4795	6699	cells var: @ + @ (hashfind)
27240	15746	4795	6699	@ field: @ execute col: lit
27240	15746	4795	6699	@ execute col: lit + @
27240	15746	4795	6699	@ execute col: lit +
27240	15746	4795	6699	@ >r 2dup col: con: (hashkey1)
27240	15746	4795	6699	@ >r 2dup col: con:
27240	15746	4795	6699	@ >r 2dup col:
27240	15746	4795	6699	@ >r 2dup
27240	15746	4795	6699	@ + @ (hashfind) ;s ;s
27240	15746	4795	6699	@ + @ (hashfind) ;s
27240	15746	4795	6699	@ + @ (hashfind)
27240	15746	4795	6699	@ (hashfind) ;s ;s
27240	15746	4795	6699	@ (hashfind) ;s
27240	15746	4795	6699	@ (hashfind)
27240	15746	4795	6699	>r 2dup col: con: (hashkey1) ;s
27240	15746	4795	6699	>r 2dup col: con: (hashkey1)
27240	15746	4795	6699	>r 2dup col: con:
27240	15746	4795	6699	;s r> xor cells var: @
27240	15746	4795	6699	;s r> xor cells var:
27240	15746	4795	6699	;s r> xor cells
27240	15746	4795	6699	;s r> xor
27240	15746	4795	6699	2dup col: con: (hashkey1) ;s r>
27240	15746	4795	6699	2dup col: con: (hashkey1) ;s
27240	15746	4795	6699	2dup col: con: (hashkey1)
27240	15746	4795	6699	2dup col: con:
27240	15746	4795	6699	+ @ >r 2dup col: con:
27240	15746	4795	6699	+ @ >r 2dup col:
27240	15746	4795	6699	+ @ >r 2dup
27240	15746	4795	6699	+ @ >r
27240	15746	4795	6699	+ @ (hashfind) ;s ;s
27240	15746	4795	6699	+ @ (hashfind) ;s
27240	15746	4795	6699	+ @ (hashfind)
27240	15746	4795	6699	(hashkey1) ;s r> xor cells var:
27240	15746	4795	6699	(hashkey1) ;s r> xor cells
27240	15746	4795	6699	(hashkey1) ;s r> xor
27240	15746	4795	6699	(hashkey1) ;s r>
27240	15746	4795	6699	(hashfind) ;s ;s
27240	15746	4795	6699	(hashfind) ;s
27240	15746	4795	6699	(hashfind)
27199	9553	6413	11233	col: col: r>
27179	0	27179	0	@local1 col: >l lp- @local1
27060	9489	6486	11085	>r ;s
27012	12115	7729	7168	@ col: col:
26989	9351	7825	9813	pick
26863	3	26857	3	col: cells
26853	18527	5474	2852	;s ;s ;s ;s
26816	9438	6236	11142	r> r>
26809	0	26809	0	col: cells + ;s
26809	0	26809	0	col: cells +
26786	0	26786	0	lp- @local1 col: >l lp-
26786	0	26786	0	lp- @local1 col: >l
26786	0	26786	0	lp- @local1 col:
26786	0	26786	0	>l lp- @local1 col: >l lp-
26786	0	26786	0	>l lp- @local1 col: >l
26786	0	26786	0	>l lp- @local1 col:
26751	11290	6636	8825	var: @ col:
26735	24575	0	2160	var: @ ;s ;s
26734	24575	0	2159	col: var: @ ;s ;s
26734	0	26734	0	@local1 @
26733	24575	0	2158	col: col: var: @ ;s ;s
26662	0	26662	0	lp- @local1 cell+ @local1 @ lp+
26662	0	26662	0	lp- @local1 cell+ @local1 @
26662	0	26662	0	lp- @local1 cell+ @local1
26662	0	26662	0	lp- @local1 cell+
26662	0	26662	0	col: >l lp- @local1 cell+ @local1
26662	0	26662	0	col: >l lp- @local1 cell+
26662	0	26662	0	cell+ @local1 @ lp+ ;s
26662	0	26662	0	cell+ @local1 @ lp+
26662	0	26662	0	cell+ @local1 @
26662	0	26662	0	cell+ @local1
26662	0	26662	0	@local1 col: >l lp- @local1 cell+
26662	0	26662	0	@local1 cell+ @local1 @ lp+ ;s
26662	0	26662	0	@local1 cell+ @local1 @ lp+
26662	0	26662	0	@local1 cell+ @local1 @
26662	0	26662	0	@local1 cell+ @local1
26662	0	26662	0	@local1 cell+
26662	0	26662	0	@local1 @ lp+ ;s
26662	0	26662	0	@local1 @ lp+
26662	0	26662	0	@ lp+ ;s
26662	0	26662	0	@ lp+
26662	0	26662	0	>l lp- @local1 cell+ @local1 @
26662	0	26662	0	>l lp- @local1 cell+ @local1
26662	0	26662	0	>l lp- @local1 cell+
26620	9342	6208	11070	swap >r ;s
26620	9342	6208	11070	r> r> dup count + aligned
26620	9342	6208	11070	r> r> dup count +
26620	9342	6208	11070	r> r> dup count
26620	9342	6208	11070	r> r> dup
26620	9342	6208	11070	r> dup count + aligned >r
26620	9342	6208	11070	r> dup count + aligned
26620	9342	6208	11070	r> dup count +
26620	9342	6208	11070	r> dup count
26620	9342	6208	11070	dup count + aligned >r swap
26620	9342	6208	11070	dup count + aligned >r
26620	9342	6208	11070	dup count + aligned
26620	9342	6208	11070	dup count +
26620	9342	6208	11070	count + aligned >r swap >r
26620	9342	6208	11070	count + aligned >r swap
26620	9342	6208	11070	count + aligned >r
26620	9342	6208	11070	count + aligned
26620	9342	6208	11070	col: r> r> dup count +
26620	9342	6208	11070	col: r> r> dup count
26620	9342	6208	11070	col: r> r> dup
26620	9342	6208	11070	col: r> r>
26620	9342	6208	11070	col: col: r> r> dup count
26620	9342	6208	11070	col: col: r> r> dup
26620	9342	6208	11070	col: col: r> r>
26620	9342	6208	11070	aligned >r swap >r ;s
26620	9342	6208	11070	aligned >r swap >r
26620	9342	6208	11070	aligned >r swap
26620	9342	6208	11070	aligned >r
26620	9342	6208	11070	>r swap >r ;s
26620	9342	6208	11070	>r swap >r
26620	9342	6208	11070	+ aligned >r swap >r ;s
26620	9342	6208	11070	+ aligned >r swap >r
26620	9342	6208	11070	+ aligned >r swap
26620	9342	6208	11070	+ aligned >r
26601	2	26597	2	i col: cells
26593	0	26593	0	i col: cells + ;s
26593	0	26593	0	i col: cells +
26567	0	26567	0	lp- @local1 col: >l lp- @local1
26423	8997	4282	13144	0= ?branch lit
26266	9162	7552	9552	lit pick
26072	12695	2078	11299	@ over
25869	18117	2402	5350	;s (loop)
25704	11007	8471	6226	user: @ /string
25704	11007	8471	6226	@ /string
25703	12540	3946	9217	;s count
25641	25641	0	0	con: col: >r
25640	25640	0	0	um/mod r> ;s rot i c!
25640	25640	0	0	um/mod r> ;s rot i
25640	25640	0	0	rot i c! (loop)
25640	25640	0	0	rot i c!
25640	25640	0	0	rot i
25640	25640	0	0	r> ;s rot i c! (loop)
25640	25640	0	0	r> ;s rot i c!
25640	25640	0	0	r> ;s rot i
25640	25640	0	0	i c! (loop)
25640	25640	0	0	i c!
25640	25640	0	0	con: col: >r lit r@ um/mod
25640	25640	0	0	con: col: >r lit r@
25640	25640	0	0	con: col: >r lit
25640	25640	0	0	c! (loop)
25640	25640	0	0	>r um/mod r> ;s rot i
25640	25640	0	0	;s rot i c! (loop)
25640	25640	0	0	;s rot i c!
25640	25640	0	0	;s rot i
25312	11996	6845	6471	faligned
25268	14315	4334	6619	?branch col: col:
25244	10547	8471	6226	user: @ /string (parse-white) 2dup +
25244	10547	8471	6226	user: @ /string (parse-white) 2dup
25244	10547	8471	6226	user: @ /string (parse-white)
25244	10547	8471	6226	defer: col: defer: col: col: user:
25244	10547	8471	6226	defer: col: defer: col: col:
25244	10547	8471	6226	defer: col: defer: col:
25244	10547	8471	6226	defer: col: defer:
25244	10547	8471	6226	@ /string (parse-white) 2dup + r>
25244	10547	8471	6226	@ /string (parse-white) 2dup +
25244	10547	8471	6226	@ /string (parse-white) 2dup
25244	10547	8471	6226	@ /string (parse-white)
25244	10547	8471	6226	>r user: @ /string (parse-white) 2dup
25244	10547	8471	6226	>r user: @ /string (parse-white)
25244	10547	8471	6226	>r user: @ /string
25244	10547	8471	6226	>r >r user: @ /string (parse-white)
25244	10547	8471	6226	>r >r user: @ /string
25244	10547	8471	6226	2dup >r >r user: @ /string
25244	10547	8471	6226	/string (parse-white) 2dup + r> -
25244	10547	8471	6226	/string (parse-white) 2dup + r>
25244	10547	8471	6226	/string (parse-white) 2dup +
25244	10547	8471	6226	/string (parse-white) 2dup
25244	10547	8471	6226	/string (parse-white)
25244	10547	8471	6226	(parse-white) 2dup + r> - 1+
25244	10547	8471	6226	(parse-white) 2dup + r> -
25244	10547	8471	6226	(parse-white) 2dup + r>
25244	10547	8471	6226	(parse-white) 2dup +
25244	10547	8471	6226	(parse-white) 2dup
25195	10995	5767	8433	unloop ;s
25186	2172	18478	4536	+ ;s @
25176	14866	5372	4938	dup c@
24910	14640	4512	5758	@ (hashfind) ;s ;s dup ?branch
24910	14640	4512	5758	@ (hashfind) ;s ;s dup
24910	14640	4512	5758	+ @ (hashfind) ;s ;s dup
24910	14640	4512	5758	(hashfind) ;s ;s dup ?branch
24910	14640	4512	5758	(hashfind) ;s ;s dup
24717	445	0	24272	branch lit col:
24280	10093	8200	5987	sp@
24272	0	0	24272	branch lit col: col: var: @
24272	0	0	24272	branch lit col: col: var:
24272	0	0	24272	branch lit col: col:
24256	10414	8073	5769	;s defer: col:
24108	10404	7935	5769	?branch ;s defer: col:
24108	10404	7935	5769	?branch ;s defer:
24051	23815	0	236	col: col: col: var:
23886	9496	7604	6786	(+loop)
23869	12065	5350	6454	;s over
23774	23774	0	0	col: col: col: var: @ ;s
23774	23774	0	0	col: col: col: var: @
23715	11381	5688	6646	col: col: dup field: @ field:
23715	11381	5688	6646	col: col: dup field: @
23715	11381	5688	6646	col: col: dup field:
23606	9936	6162	7508	;s col: dup
23570	9854	7947	5769	sp@ user: @
23570	9854	7947	5769	sp@ user:
23570	9854	7947	5769	col: sp@ user: @
23570	9854	7947	5769	col: sp@ user:
23570	9854	7947	5769	col: sp@
23555	9204	7935	6416	! ;s dup
23473	11001	5732	6740	swap c!
23463	0	0	23463	var: +! ;s branch
23463	0	0	23463	lit var: +! ;s branch
23463	0	0	23463	?branch lit var: +! ;s branch
23463	0	0	23463	+! ;s branch
23462	11000	5727	6735	swap c! ;s
23259	0	23259	0	@local0
23174	12828	5032	5314	2drop ;s
23096	0	23096	0	lp+ ;s dup
23039	9293	7963	5783	fp@
23025	9152	7949	5924	branch col:
23024	9152	7948	5924	;s branch col:
23016	9202	8160	5654	nip nip
23016	9202	8160	5654	?branch nip nip
22981	71	9136	13774	defer: (type)
22981	71	9136	13774	(type)
22924	9204	7951	5769	@ > ?branch ;s
22924	9204	7951	5769	> ?branch ;s
22911	9205	7936	5770	fp@ user:
22908	9204	7935	5769	user: @ > ?branch fp@ user:
22908	9204	7935	5769	user: @ > ?branch fp@
22908	9204	7935	5769	user: @ > ?branch ;s defer:
22908	9204	7935	5769	user: @ > ?branch ;s
22908	9204	7935	5769	user: ! ;s dup ?branch
22908	9204	7935	5769	user: ! ;s dup
22908	9204	7935	5769	sp@ user: @ > ?branch fp@
22908	9204	7935	5769	sp@ user: @ > ?branch
22908	9204	7935	5769	sp@ user: @ >
22908	9204	7935	5769	r> min user: ! ;s dup
22908	9204	7935	5769	min user: ! ;s dup ?branch
22908	9204	7935	5769	min user: ! ;s dup
22908	9204	7935	5769	fp@ user: @ > ?branch ;s
22908	9204	7935	5769	fp@ user: @ > ?branch
22908	9204	7935	5769	fp@ user: @ >
22908	9204	7935	5769	fp@ user: @
22908	9204	7935	5769	col: sp@ user: @ > ?branch
22908	9204	7935	5769	col: sp@ user: @ >
22908	9204	7935	5769	@ > ?branch fp@ user: @
22908	9204	7935	5769	@ > ?branch fp@ user:
22908	9204	7935	5769	@ > ?branch fp@
22908	9204	7935	5769	@ > ?branch ;s defer: col:
22908	9204	7935	5769	@ > ?branch ;s defer:
22908	9204	7935	5769	?branch fp@ user: @ > ?branch
22908	9204	7935	5769	?branch fp@ user: @ >
22908	9204	7935	5769	?branch fp@ user: @
22908	9204	7935	5769	?branch fp@ user:
22908	9204	7935	5769	?branch fp@
22908	9204	7935	5769	?branch ;s defer: col: defer: col:
22908	9204	7935	5769	?branch ;s defer: col: defer:
22908	9204	7935	5769	> ?branch fp@ user: @ >
22908	9204	7935	5769	> ?branch fp@ user: @
22908	9204	7935	5769	> ?branch fp@ user:
22908	9204	7935	5769	> ?branch fp@
22908	9204	7935	5769	> ?branch ;s defer: col: defer:
22908	9204	7935	5769	> ?branch ;s defer: col:
22908	9204	7935	5769	> ?branch ;s defer:
22908	9204	7935	5769	;s defer: col: defer: col: col:
22908	9204	7935	5769	;s defer: col: defer: col:
22908	9204	7935	5769	;s defer: col: defer:
22908	9204	7935	5769	! ;s dup ?branch
22898	11023	5940	5935	?branch col: cell+
22624	11000	5536	6088	swap c! ;s ;s
22591	9606	7673	5312	@ lit
22564	5951	11199	5414	drop con:
22338	7612	10144	4582	col: col: col: col:
22072	12735	4909	4428	(do)
21740	11138	6073	4529	?branch col: dup
21723	1234	4314	16175	;s 0=
21661	13512	4586	3563	over +
21638	10033	5522	6083	;s r@
21625	5526	7705	8394	- ;s
21608	10009	6166	5433	cell+ dup
21600	18521	251	2828	;s col: col: var:
21577	0	21577	0	>l >l
21504	10576	5071	5857	;s over c@
21403	9788	4952	6663	or
21260	10005	5923	5332	lit and + faligned
21260	10005	5923	5332	lit and +
21260	10005	5923	5332	count lit and + faligned
21260	10005	5923	5332	count lit and +
21260	10005	5923	5332	and + faligned
21260	10005	5923	5332	and +
21260	10005	5923	5332	+ faligned
21253	12947	4590	3716	;s col: col: user: @
21253	12947	4590	3716	;s col: col: user:
21088	21088	0	0	var: @ + ;s
21079	9549	4967	6563	@ ?dup
21073	21073	0	0	col: var: @ + ;s
21073	21073	0	0	col: var: @ +
20931	10364	4782	5785	;s ;s over
20907	325	0	20582	;s branch lit col:
20835	6414	10135	4286	col: col: col: col: user: @
20835	6414	10135	4286	col: col: col: col: user:
20827	9873	6082	4872	1-
20826	9859	5738	5229	col: cell+ dup
20778	208	4010	16560	does: @
20709	8397	5464	6848	col: dup col:
20680	13811	3434	3435	?dup ?branch ;s
20661	2172	18478	11	cells + ;s @
20611	9960	4891	5760	col: col: lit
20582	0	0	20582	;s branch lit col: col: var:
20582	0	0	20582	;s branch lit col: col:
20562	9776	4751	6035	swap col: con:
20559	9773	4751	6035	or swap
20523	9853	5732	4938	lit and 0= ?branch
20523	9853	5732	4938	lit and 0=
20523	9853	5732	4938	lit and + faligned ;s
20523	9853	5732	4938	faligned ;s
20523	9853	5732	4938	count lit and + faligned ;s
20523	9853	5732	4938	col: count lit and + faligned
20523	9853	5732	4938	col: count lit and +
20523	9853	5732	4938	col: count lit and
20523	9853	5732	4938	col: count lit
20523	9853	5732	4938	col: count
20523	9853	5732	4938	and 0= ?branch
20523	9853	5732	4938	and + faligned ;s
20523	9853	5732	4938	+ faligned ;s
20457	9853	5372	5232	dup ?branch col:
20426	13805	3434	3187	col: ?dup ?branch ;s
20426	13805	3434	3187	col: ?dup ?branch
20426	13805	3434	3187	col: ?dup
20295	0	0	20295	var: +! ;s branch lit col:
20295	0	0	20295	var: +! ;s branch lit
20295	0	0	20295	lit var: +! ;s branch lit
20295	0	0	20295	+! ;s branch lit col: col:
20295	0	0	20295	+! ;s branch lit col:
20295	0	0	20295	+! ;s branch lit
20271	9781	4751	5739	c@ ;s ;s
20268	9777	4756	5735	+ c@
20262	9775	4755	5732	;s ;s over c@
20257	9776	4751	5730	lit /mod rot + swap
20257	9776	4751	5730	lit /mod rot +
20257	9776	4751	5730	lit /mod rot
20257	9776	4751	5730	lit /mod
20257	9776	4751	5730	col: lit /mod rot + swap
20257	9776	4751	5730	col: lit /mod rot +
20257	9776	4751	5730	col: lit /mod rot
20257	9776	4751	5730	col: lit /mod
20257	9776	4751	5730	col: col: lit /mod rot +
20257	9776	4751	5730	col: col: lit /mod rot
20257	9776	4751	5730	col: col: lit /mod
20257	9776	4751	5730	/mod rot + swap
20257	9776	4751	5730	/mod rot +
20257	9776	4751	5730	/mod rot
20257	9776	4751	5730	+ c@ ;s ;s
20257	9776	4751	5730	+ c@ ;s
20254	9773	4751	5730	over c@ or swap c! ;s
20254	9773	4751	5730	over c@ or swap c!
20254	9773	4751	5730	over c@ or swap
20254	9773	4751	5730	over c@ or
20254	9773	4751	5730	or swap c! ;s ;s
20254	9773	4751	5730	or swap c! ;s
20254	9773	4751	5730	or swap c!
20254	9773	4751	5730	c@ or swap c! ;s ;s
20254	9773	4751	5730	c@ or swap c! ;s
20254	9773	4751	5730	c@ or swap c!
20254	9773	4751	5730	c@ or swap
20254	9773	4751	5730	c@ or
20254	9773	4751	5730	c@ ;s ;s over c@ or
20254	9773	4751	5730	c@ ;s ;s over c@
20254	9773	4751	5730	c@ ;s ;s over
20254	9773	4751	5730	;s over c@ or swap c!
20254	9773	4751	5730	;s over c@ or swap
20254	9773	4751	5730	;s over c@ or
20254	9773	4751	5730	;s ;s over c@ or swap
20254	9773	4751	5730	;s ;s over c@ or
20254	9773	4751	5730	+ c@ ;s ;s over c@
20254	9773	4751	5730	+ c@ ;s ;s over
20169	9853	5378	4938	r> lit
20163	9853	5372	4938	r@ lit and ?branch
20163	9853	5372	4938	r@ lit and 0= ?branch
20163	9853	5372	4938	r@ lit and 0=
20163	9853	5372	4938	r> lit and ?branch
20163	9853	5372	4938	r> lit and
20163	9853	5372	4938	lit r@ lit and ?branch
20163	9853	5372	4938	lit r@ lit and
20163	9853	5372	4938	lit r@ lit
20163	9853	5372	4938	lit and + faligned ;s r@
20163	9853	5372	4938	faligned ;s r@ lit and 0=
20163	9853	5372	4938	faligned ;s r@ lit and
20163	9853	5372	4938	faligned ;s r@ lit
20163	9853	5372	4938	faligned ;s r@
20163	9853	5372	4938	dup c@ >r col: count lit
20163	9853	5372	4938	dup c@ >r col: count
20163	9853	5372	4938	dup c@ >r col:
20163	9853	5372	4938	dup c@ >r
20163	9853	5372	4938	dup ?branch col: cell+ dup c@
20163	9853	5372	4938	dup ?branch col: cell+ dup
20163	9853	5372	4938	dup ?branch col: cell+
20163	9853	5372	4938	col: cell+ dup c@ >r col:
20163	9853	5372	4938	col: cell+ dup c@ >r
20163	9853	5372	4938	col: cell+ dup c@
20163	9853	5372	4938	cell+ dup c@ >r col: count
20163	9853	5372	4938	cell+ dup c@ >r col:
20163	9853	5372	4938	cell+ dup c@ >r
20163	9853	5372	4938	cell+ dup c@
20163	9853	5372	4938	c@ >r col: count lit and
20163	9853	5372	4938	c@ >r col: count lit
20163	9853	5372	4938	c@ >r col: count
20163	9853	5372	4938	c@ >r col:
20163	9853	5372	4938	c@ >r
20163	9853	5372	4938	and + faligned ;s r@ lit
20163	9853	5372	4938	and + faligned ;s r@
20163	9853	5372	4938	?branch col: cell+ dup c@ >r
20163	9853	5372	4938	?branch col: cell+ dup c@
20163	9853	5372	4938	?branch col: cell+ dup
20163	9853	5372	4938	>r col: count lit and +
20163	9853	5372	4938	>r col: count lit and
20163	9853	5372	4938	>r col: count lit
20163	9853	5372	4938	>r col: count
20163	9853	5372	4938	;s r@ lit and 0= ?branch
20163	9853	5372	4938	;s r@ lit and 0=
20163	9853	5372	4938	;s r@ lit and
20163	9853	5372	4938	;s r@ lit
20163	9853	5372	4938	;s dup ?branch col: cell+ dup
20163	9853	5372	4938	;s dup ?branch col: cell+
20163	9853	5372	4938	;s dup ?branch col:
20163	9853	5372	4938	;s ;s dup ?branch col: cell+
20163	9853	5372	4938	;s ;s dup ?branch col:
20163	9853	5372	4938	+ faligned ;s r@ lit and
20163	9853	5372	4938	+ faligned ;s r@ lit
20163	9853	5372	4938	+ faligned ;s r@
19953	10420	4384	5149	?branch ;s ;s
19863	19863	0	0	col: col: var: @ + ;s
19863	19863	0	0	col: col: var: @ +
19826	10839	5255	3732	<> ?branch col:
19748	9917	5775	4056	0<
19715	17524	0	2191	;s col: col: var: @
19584	7545	5312	6727	col: dup col: col:
19473	10286	5612	3575	var: dup @
19473	10286	5612	3575	var: dup
19451	9856	4962	4633	?branch r>
19403	14438	1341	3624	;s ;s lit
19302	9902	4911	4489	@ ?branch
19250	6404	6775	6071	(?do)
19230	19230	0	0	rot i c! (loop) con: col:
19230	19230	0	0	rot i c! (loop) con:
19230	19230	0	0	i c! (loop) con: col: >r
19230	19230	0	0	i c! (loop) con: col:
19230	19230	0	0	i c! (loop) con:
19230	19230	0	0	c! (loop) con: col: >r lit
19230	19230	0	0	c! (loop) con: col: >r
19230	19230	0	0	c! (loop) con: col:
19230	19230	0	0	c! (loop) con:
19230	19230	0	0	;s rot i c! (loop) con:
19230	19230	0	0	(loop) con: col: >r lit r@
19230	19230	0	0	(loop) con: col: >r lit
19230	19230	0	0	(loop) con: col: >r
19187	0	19187	0	cell+ @local1 @ lp+ ;s dup
19187	0	19187	0	@local1 @ lp+ ;s dup
19187	0	19187	0	@ lp+ ;s dup
19055	10082	5242	3731	over <> ?branch col: dup field:
19055	10082	5242	3731	over <> ?branch col: dup
19055	10082	5242	3731	over <> ?branch col:
19055	10082	5242	3731	i 2@ over <> ?branch col:
19055	10082	5242	3731	?branch col: dup field: @ field:
19055	10082	5242	3731	?branch col: dup field: @
19055	10082	5242	3731	?branch col: dup field:
19055	10082	5242	3731	<> ?branch col: dup field: @
19055	10082	5242	3731	<> ?branch col: dup field:
19055	10082	5242	3731	<> ?branch col: dup
19055	10082	5242	3731	2@ over <> ?branch col: dup
19055	10082	5242	3731	2@ over <> ?branch col:
19021	9642	2786	6593	@ ;s lit col: col:
19021	9642	2786	6593	@ ;s lit col:
19018	9642	2786	6590	@ ;s @ ;s lit col:
19018	9642	2786	6590	;s @ ;s lit col: col:
19018	9642	2786	6590	;s @ ;s lit col:
18675	6402	5367	6906	;s ! ;s ;s
18477	7047	5726	5704	var: @ col: col:
18321	0	18321	0	col: >l >l
18250	9370	4366	4514	r@ lit and ?branch r> lit
18250	9370	4366	4514	r@ lit and ?branch r>
18250	9370	4366	4514	lit r@ lit and ?branch r>
18250	9370	4366	4514	lit and ?branch r> lit and
18250	9370	4366	4514	lit and ?branch r> lit
18250	9370	4366	4514	lit and ?branch r>
18250	9370	4366	4514	and ?branch r> lit and ?branch
18250	9370	4366	4514	and ?branch r> lit and
18250	9370	4366	4514	and ?branch r> lit
18250	9370	4366	4514	and ?branch r>
18250	9370	4366	4514	?branch r> lit and ?branch
18250	9370	4366	4514	?branch r> lit and
18250	9370	4366	4514	?branch r> lit
18238	6099	5366	6773	;s col: dup col:
18226	9394	5015	3817	lit (+loop)
18090	10485	3249	4356	rdrop
18090	0	18090	0	col: cells + ;s @
18088	6056	5308	6724	;s col: dup col: col:
18056	10646	2109	5301	con: col: col: col:
17920	0	17920	0	i col: cells + ;s @
17746	7095	6236	4415	?branch defer:
17742	8975	4990	3777	lit user:
17724	7091	6225	4408	?branch defer: col:
17649	8768	2583	6298	user: @ ;s +! ;s c!
17649	8768	2583	6298	lit col: col: user: @ ;s
17649	8768	2583	6298	lit col: col: user: @
17649	8768	2583	6298	lit col: col: user:
17649	8768	2583	6298	@ ;s lit col: col: user:
17649	8768	2583	6298	@ ;s +! ;s c! ;s
17649	8768	2583	6298	@ ;s +! ;s c!
17649	8768	2583	6298	;s lit col: col: user: @
17649	8768	2583	6298	;s lit col: col: user:
17649	8768	2583	6298	;s +! ;s c! ;s
17649	8768	2583	6298	;s +! ;s c!
17649	8768	2583	6298	+! ;s c! ;s
17649	8768	2583	6298	+! ;s c!
17503	8197	4937	4369	unloop ;s ;s
17480	14436	1198	1846	;s ;s lit col:
17476	16827	419	230	col: over
17257	8996	4281	3980	r@ lit and 0= ?branch lit
17257	8996	4281	3980	lit and 0= ?branch lit r@
17257	8996	4281	3980	lit and 0= ?branch lit
17257	8996	4281	3980	and 0= ?branch lit r@ lit
17257	8996	4281	3980	and 0= ?branch lit r@
17257	8996	4281	3980	and 0= ?branch lit
17257	8996	4281	3980	?branch lit r@ lit and ?branch
17257	8996	4281	3980	?branch lit r@ lit and
17257	8996	4281	3980	?branch lit r@ lit
17257	8996	4281	3980	?branch lit r@
17257	8996	4281	3980	0= ?branch lit r@ lit and
17257	8996	4281	3980	0= ?branch lit r@ lit
17257	8996	4281	3980	0= ?branch lit r@
17188	11129	1999	4060	;s col: col: col:
17185	6110	7834	3241	?branch 2drop
17112	6279	5771	5062	@ col: col: dup
17112	11939	3801	1372	! ;s col:
17030	6303	6885	3842	tuck
17024	6279	5683	5062	var: @ col: col: dup field:
17024	6279	5683	5062	var: @ col: col: dup
17024	6279	5683	5062	@ col: col: dup field: @
17024	6279	5683	5062	@ col: col: dup field:
17013	16738	67	208	+! ;s col: col:
16918	0	0	16918	;s lit col: col: var: @
16918	0	0	16918	;s lit col: col: var:
16888	5376	8092	3420	user: @ ;s +! ;s !
16888	5376	8092	3420	@ ;s +! ;s ! ;s
16888	5376	8092	3420	@ ;s +! ;s !
16888	5376	8092	3420	;s +! ;s ! ;s
16888	5376	8092	3420	;s +! ;s !
16888	5376	8092	3420	+! ;s ! ;s
16888	5376	8092	3420	+! ;s !
16839	16712	0	127	var: +! ;s col: col: var:
16839	16712	0	127	var: +! ;s col: col:
16839	16712	0	127	var: +! ;s col:
16839	16712	0	127	+! ;s col: col: var: @
16839	16712	0	127	+! ;s col: col: var:
16742	16742	0	0	;s col: col: var: @ +
16723	0	16723	0	@local3
16720	16720	0	0	col: var: +! ;s
16720	16720	0	0	col: var: +!
16712	16712	0	0	col: var: +! ;s col: col:
16712	16712	0	0	col: var: +! ;s col:
16327	7651	3845	4831	user: @ ?dup
16081	6151	5647	4283	col: 2dup
16038	6279	5684	4075	col: var: @ col:
16037	6279	5683	4075	col: var: @ col: col: dup
16037	6279	5683	4075	col: var: @ col: col:
16003	5522	4751	5730	- ;s con:
16001	0	16001	0	>l @local0
16001	0	16001	0	>l >l @local0
15988	9171	2718	4099	rdrop ;s
15928	0	15928	0	lp+ ;s dup ?branch
15928	0	15928	0	@local1 @ lp+ ;s dup ?branch
15928	0	15928	0	@ lp+ ;s dup ?branch
15919	5423	4764	5732	/
15918	8761	3581	3576	swap !
15916	5422	4763	5731	con: /
15898	7453	4734	3711	lit (+loop) 2dup i 2@ over
15898	7453	4734	3711	lit (+loop) 2dup i 2@
15898	7453	4734	3711	lit (+loop) 2dup i
15898	7453	4734	3711	lit (+loop) 2dup
15898	7453	4734	3711	(+loop) 2dup i 2@ over <>
15898	7453	4734	3711	(+loop) 2dup i 2@ over
15898	7453	4734	3711	(+loop) 2dup i 2@
15898	7453	4734	3711	(+loop) 2dup i
15898	7453	4734	3711	(+loop) 2dup
15840	6099	5528	4213	col: 2dup col:
15782	0	3603	12179	does: @ +
15636	24	6488	9124	defer: (type) ;s
15636	24	6488	9124	(type) ;s
15633	4888	4783	5962	;s swap col:
15607	6100	5538	3969	2dup col: var:
15602	6099	5535	3968	defer: col: 2dup
15595	6099	5528	3968	user: ! ;s dup ?branch defer:
15595	6099	5528	3968	dup ?branch defer: col: 2dup col:
15595	6099	5528	3968	dup ?branch defer: col: 2dup
15595	6099	5528	3968	dup ?branch defer: col:
15595	6099	5528	3968	dup ?branch defer:
15595	6099	5528	3968	defer: col: 2dup col: var: @
15595	6099	5528	3968	defer: col: 2dup col: var:
15595	6099	5528	3968	defer: col: 2dup col:
15595	6099	5528	3968	col: 2dup col: var: @ col:
15595	6099	5528	3968	col: 2dup col: var: @
15595	6099	5528	3968	col: 2dup col: var:
15595	6099	5528	3968	?branch defer: col: 2dup col: var:
15595	6099	5528	3968	?branch defer: col: 2dup col:
15595	6099	5528	3968	?branch defer: col: 2dup
15595	6099	5528	3968	;s dup ?branch defer: col: 2dup
15595	6099	5528	3968	;s dup ?branch defer: col:
15595	6099	5528	3968	;s dup ?branch defer:
15595	6099	5528	3968	2dup col: var: @ col: col:
15595	6099	5528	3968	2dup col: var: @ col:
15595	6099	5528	3968	2dup col: var: @
15595	6099	5528	3968	! ;s dup ?branch defer: col:
15595	6099	5528	3968	! ;s dup ?branch defer:
15592	6098	5527	3967	branch col: sp@ user: @ >
15592	6098	5527	3967	branch col: sp@ user: @
15592	6098	5527	3967	branch col: sp@ user:
15592	6098	5527	3967	branch col: sp@
15592	6098	5527	3967	;s branch col: sp@ user: @
15592	6098	5527	3967	;s branch col: sp@ user:
15592	6098	5527	3967	;s branch col: sp@
15499	0	15499	0	?branch @local1
15454	4805	4815	5834	user: @ ;s +! ;s col:
15454	4805	4815	5834	@ ;s +! ;s col:
15454	4805	4815	5834	;s +! ;s col:
15386	6996	4836	3554	@ 1-
15359	2223	3942	9194	swap >r ;s count
15359	2223	3942	9194	aligned >r swap >r ;s count
15359	2223	3942	9194	>r swap >r ;s count
15359	2223	3942	9194	>r ;s count
15356	7180	4040	4136	! lit
15346	4872	4747	5727	+! ;s col: dup col: col:
15346	4872	4747	5727	+! ;s col: dup col:
15346	4872	4747	5727	+! ;s col: dup
15314	4772	4751	5791	swap does:
15253	4772	4751	5730	swap does: + c@ ;s ;s
15253	4772	4751	5730	swap does: + c@ ;s
15253	4772	4751	5730	swap does: + c@
15253	4772	4751	5730	swap does: +
15253	4772	4751	5730	swap col: con: - ;s con:
15253	4772	4751	5730	swap col: con: - ;s
15253	4772	4751	5730	swap col: con: -
15253	4772	4751	5730	swap c! ;s ;s ! ;s
15253	4772	4751	5730	swap c! ;s ;s !
15253	4772	4751	5730	rot + swap does: + c@
15253	4772	4751	5730	rot + swap does: +
15253	4772	4751	5730	rot + swap does:
15253	4772	4751	5730	or swap c! ;s ;s !
15253	4772	4751	5730	lit /mod rot + swap does:
15253	4772	4751	5730	dup col: col: con: dup @
15253	4772	4751	5730	dup col: col: con: dup
15253	4772	4751	5730	dup col: col: con:
15253	4772	4751	5730	dup @ + ;s swap col:
15253	4772	4751	5730	dup @ + ;s swap
15253	4772	4751	5730	dup @ + ;s
15253	4772	4751	5730	dup @ +
15253	4772	4751	5730	does: + c@ ;s ;s over
15253	4772	4751	5730	does: + c@ ;s ;s
15253	4772	4751	5730	does: + c@ ;s
15253	4772	4751	5730	does: + c@
15253	4772	4751	5730	does: +
15253	4772	4751	5730	con: dup @ + ;s swap
15253	4772	4751	5730	con: dup @ + ;s
15253	4772	4751	5730	con: dup @ +
15253	4772	4751	5730	con: dup @
15253	4772	4751	5730	con: dup
15253	4772	4751	5730	con: / col: col: lit /mod
15253	4772	4751	5730	con: / col: col: lit
15253	4772	4751	5730	con: / col: col:
15253	4772	4751	5730	con: / col:
15253	4772	4751	5730	con: - ;s con: / col:
15253	4772	4751	5730	con: - ;s con: /
15253	4772	4751	5730	con: - ;s con:
15253	4772	4751	5730	con: - ;s
15253	4772	4751	5730	col: dup col: col: con: dup
15253	4772	4751	5730	col: dup col: col: con:
15253	4772	4751	5730	col: con: dup @ + ;s
15253	4772	4751	5730	col: con: dup @ +
15253	4772	4751	5730	col: con: dup @
15253	4772	4751	5730	col: con: dup
15253	4772	4751	5730	col: con: - ;s con: /
15253	4772	4751	5730	col: con: - ;s con:
15253	4772	4751	5730	col: con: - ;s
15253	4772	4751	5730	col: con: -
15253	4772	4751	5730	col: col: con: dup @ +
15253	4772	4751	5730	col: col: con: dup @
15253	4772	4751	5730	col: col: con: dup
15253	4772	4751	5730	c! ;s ;s ! ;s ;s
15253	4772	4751	5730	c! ;s ;s ! ;s
15253	4772	4751	5730	c! ;s ;s !
15253	4772	4751	5730	@ + ;s swap col: con:
15253	4772	4751	5730	@ + ;s swap col:
15253	4772	4751	5730	@ + ;s swap
15253	4772	4751	5730	;s swap col: con: - ;s
15253	4772	4751	5730	;s swap col: con: -
15253	4772	4751	5730	;s swap col: con:
15253	4772	4751	5730	;s con: / col: col: lit
15253	4772	4751	5730	;s con: / col: col:
15253	4772	4751	5730	;s con: / col:
15253	4772	4751	5730	;s con: /
15253	4772	4751	5730	;s ;s ! ;s ;s
15253	4772	4751	5730	;s ;s ! ;s
15253	4772	4751	5730	;s ;s !
15253	4772	4751	5730	/mod rot + swap does: +
15253	4772	4751	5730	/mod rot + swap does:
15253	4772	4751	5730	/ col: col: lit /mod rot
15253	4772	4751	5730	/ col: col: lit /mod
15253	4772	4751	5730	/ col: col: lit
15253	4772	4751	5730	/ col: col:
15253	4772	4751	5730	/ col:
15253	4772	4751	5730	- ;s con: / col: col:
15253	4772	4751	5730	- ;s con: / col:
15253	4772	4751	5730	- ;s con: /
15253	4772	4751	5730	+ swap does: + c@ ;s
15253	4772	4751	5730	+ swap does: + c@
15253	4772	4751	5730	+ swap does: +
15253	4772	4751	5730	+ swap does:
15253	4772	4751	5730	+ ;s swap col: con: -
15253	4772	4751	5730	+ ;s swap col: con:
15253	4772	4751	5730	+ ;s swap col:
15253	4772	4751	5730	+ ;s swap
15243	4769	4747	5727	@ ;s +! ;s col: dup
15243	4769	4747	5727	;s col: dup col: col: con:
15243	4769	4747	5727	;s +! ;s col: dup col:
15243	4769	4747	5727	;s +! ;s col: dup
15219	0	15219	0	col: >l >l @local0
15188	4750	8943	1495	lit over
15101	8364	3929	2808	0>
15042	8440	2906	3696	;s ;s col: col:
15006	7596	2109	5301	con: col: col: col: user: @
15006	7596	2109	5301	con: col: col: col: user:
14981	4702	1842	8437	var: col:
14906	7462	3695	3749	lit col: col: col:
14867	7906	3385	3576	swap ! ;s
14858	8489	3233	3136	con: swap
14817	0	14817	0	@local1 i col: cells + ;s
14817	0	14817	0	@local1 i col: cells +
14817	0	14817	0	@local1 i col: cells
14817	0	14817	0	@local1 i col:
14817	0	14817	0	@local1 i
14709	5907	5249	3553	cells over
14650	5908	5189	3553	execute col: drop
14649	5907	5189	3553	field: @ execute col: drop
14649	5907	5189	3553	@ field: @ execute col: drop
14649	5907	5189	3553	@ execute col: drop
14624	5659	3353	5612	;s ?branch col:
14490	10884	1481	2125	;s col: col: user: @ ;s
14458	5907	4998	3553	field: @ execute col: drop con:
14458	5907	4998	3553	execute col: drop con: ?branch
14458	5907	4998	3553	execute col: drop con:
14458	5907	4998	3553	drop con: ?branch
14458	5907	4998	3553	con: ?branch
14458	5907	4998	3553	col: drop con: ?branch
14458	5907	4998	3553	col: drop con:
14458	5907	4998	3553	@ execute col: drop con: ?branch
14458	5907	4998	3553	@ execute col: drop con:
14302	9355	2731	2216	;s >r
14228	2456	9357	2415	+ ;s !
14200	9339	2738	2123	?branch rdrop
14149	8293	2077	3779	;s var: @
14109	7750	3233	3126	con: swap ! ;s
14109	7750	3233	3126	con: swap !
14109	7750	3233	3126	col: con: swap ! ;s
14109	7750	3233	3126	col: con: swap !
14109	7750	3233	3126	col: con: swap
14108	3693	8837	1578	;s con: -
14090	3669	8837	1584	aligned ;s
14084	3669	8837	1578	lit + aligned ;s con: -
14084	3669	8837	1578	lit + aligned ;s con:
14084	3669	8837	1578	lit + aligned ;s
14084	3669	8837	1578	lit + aligned
14084	3669	8837	1578	aligned ;s con: -
14084	3669	8837	1578	aligned ;s con:
14084	3669	8837	1578	@ ;s lit + aligned ;s
14084	3669	8837	1578	@ ;s lit + aligned
14084	3669	8837	1578	@ ;s lit +
14084	3669	8837	1578	@ ;s @ ;s lit +
14084	3669	8837	1578	;s lit + aligned ;s con:
14084	3669	8837	1578	;s lit + aligned ;s
14084	3669	8837	1578	;s lit + aligned
14084	3669	8837	1578	;s lit +
14084	3669	8837	1578	;s @ ;s lit + aligned
14084	3669	8837	1578	;s @ ;s lit +
14084	3669	8837	1578	+ aligned ;s con: -
14084	3669	8837	1578	+ aligned ;s con:
14084	3669	8837	1578	+ aligned ;s
14050	5909	4587	3554	drop var:
14046	5907	4586	3553	var: dup @ 1- cells over
14046	5907	4586	3553	var: dup @ 1- cells
14046	5907	4586	3553	var: dup @ 1-
14046	5907	4586	3553	over + (do) 2dup i 2@
14046	5907	4586	3553	over + (do) 2dup i
14046	5907	4586	3553	over + (do) 2dup
14046	5907	4586	3553	over + (do)
14046	5907	4586	3553	lit col: drop var: dup @
14046	5907	4586	3553	lit col: drop var: dup
14046	5907	4586	3553	lit col: drop var:
14046	5907	4586	3553	lit col: drop
14046	5907	4586	3553	dup @ 1- cells over +
14046	5907	4586	3553	dup @ 1- cells over
14046	5907	4586	3553	dup @ 1- cells
14046	5907	4586	3553	dup @ 1-
14046	5907	4586	3553	drop var: dup @ 1- cells
14046	5907	4586	3553	drop var: dup @ 1-
14046	5907	4586	3553	drop var: dup @
14046	5907	4586	3553	drop var: dup
14046	5907	4586	3553	col: drop var: dup @ 1-
14046	5907	4586	3553	col: drop var: dup @
14046	5907	4586	3553	col: drop var: dup
14046	5907	4586	3553	col: drop var:
14046	5907	4586	3553	cells over + (do) 2dup i
14046	5907	4586	3553	cells over + (do) 2dup
14046	5907	4586	3553	cells over + (do)
14046	5907	4586	3553	cells over +
14046	5907	4586	3553	@ 1- cells over + (do)
14046	5907	4586	3553	@ 1- cells over +
14046	5907	4586	3553	@ 1- cells over
14046	5907	4586	3553	@ 1- cells
14046	5907	4586	3553	1- cells over + (do) 2dup
14046	5907	4586	3553	1- cells over + (do)
14046	5907	4586	3553	1- cells over +
14046	5907	4586	3553	1- cells over
14046	5907	4586	3553	1- cells
14046	5907	4586	3553	+ (do) 2dup i 2@ over
14046	5907	4586	3553	+ (do) 2dup i 2@
14046	5907	4586	3553	+ (do) 2dup i
14046	5907	4586	3553	+ (do) 2dup
14046	5907	4586	3553	+ (do)
14046	5907	4586	3553	(do) 2dup i 2@ over <>
14046	5907	4586	3553	(do) 2dup i 2@ over
14046	5907	4586	3553	(do) 2dup i 2@
14046	5907	4586	3553	(do) 2dup i
14046	5907	4586	3553	(do) 2dup
13979	5490	4886	3603	dup ?branch nip
13973	9158	2702	2113	?branch rdrop ;s
13967	6543	3581	3843	user: ! lit
13944	0	13944	0	branch >l
13926	5656	4873	3397	;s ;s branch
13898	6869	3039	3990	and ?branch ;s
13893	7590	3620	2683	0> ?branch
13851	0	13851	0	branch >l lp- @local1
13851	0	13851	0	branch >l lp-
13819	5906	6286	1627	- dup
13785	6854	2022	4909	c! ;s (loop)
13785	6854	2022	4909	;s c! ;s (loop)
13785	6854	2022	4909	;s +! ;s c! ;s (loop)
13785	6854	2022	4909	+! ;s c! ;s (loop)
13733	5334	4305	4094	nip unloop ;s
13733	5334	4305	4094	nip unloop
13686	5533	4501	3652	unloop ;s ;s ;s
13554	10190	2812	552	! ;s col: col:
13550	5410	4496	3644	unloop ;s ;s ;s dup ?branch
13550	5410	4496	3644	unloop ;s ;s ;s dup
13514	10437	1022	2055	(loop) unloop
13498	5334	4717	3447	dup ?branch nip nip
13498	5334	4717	3447	;s dup ?branch nip nip
13498	5334	4717	3447	;s dup ?branch nip
13498	5334	4717	3447	;s ;s dup ?branch nip nip
13498	5334	4717	3447	;s ;s dup ?branch nip
13439	6084	3666	3689	lit col: col: col: user: @
13439	6084	3666	3689	lit col: col: col: user:
13409	6869	3039	3501	r> lit and ?branch ;s ;s
13409	6869	3039	3501	r> lit and ?branch ;s
13409	6869	3039	3501	lit and ?branch ;s ;s
13409	6869	3039	3501	lit and ?branch ;s
13409	6869	3039	3501	and ?branch ;s ;s
13409	6869	3039	3501	?branch r> lit and ?branch ;s
13372	3913	7241	2218	dup ?branch 2drop
13359	5410	4305	3644	;s ;s ;s dup ?branch col:
13278	12052	1082	144	con: =
13223	0	0	13223	var: +! ;s lit col: col:
13223	0	0	13223	var: +! ;s lit col:
13223	0	0	13223	var: +! ;s lit
13223	0	0	13223	lit var: +! ;s lit col:
13223	0	0	13223	lit var: +! ;s lit
13223	0	0	13223	?branch lit var: +! ;s lit
13223	0	0	13223	+! ;s lit col: col: var:
13223	0	0	13223	+! ;s lit col: col:
13223	0	0	13223	+! ;s lit col:
13223	0	0	13223	+! ;s lit
13086	5334	4305	3447	nip unloop ;s ;s ;s dup
13086	5334	4305	3447	nip unloop ;s ;s ;s
13086	5334	4305	3447	nip unloop ;s ;s
13086	5334	4305	3447	nip nip unloop ;s ;s ;s
13086	5334	4305	3447	nip nip unloop ;s ;s
13086	5334	4305	3447	nip nip unloop ;s
13086	5334	4305	3447	nip nip unloop
13086	5334	4305	3447	dup ?branch nip nip unloop ;s
13086	5334	4305	3447	dup ?branch nip nip unloop
13086	5334	4305	3447	?branch nip nip unloop ;s ;s
13086	5334	4305	3447	?branch nip nip unloop ;s
13086	5334	4305	3447	?branch nip nip unloop
13086	5334	4305	3447	;s dup ?branch nip nip unloop
13067	3906	7235	1926	;s dup ?branch 2drop
13067	2194	9214	1659	max
13028	10870	0	2158	var: @ ;s ;s lit
13028	10870	0	2158	col: var: @ ;s ;s lit
13028	10870	0	2158	@ ;s ;s lit
13022	9347	1567	2108	var: !
13013	0	13013	0	lp+ branch >l
13013	0	13013	0	lp+ branch
12934	6698	3578	2658	?branch 0> ?branch
12934	6698	3578	2658	?branch 0>
12920	0	12920	0	lp+ branch >l lp- @local1
12920	0	12920	0	lp+ branch >l lp-
12846	3472	7125	2249	drop ;s
12843	4222	4548	4073	! ;s ;s ;s
12825	6363	3588	2874	@ ?branch col:
12800	9712	1113	1975	move
12707	2194	8854	1659	lit max
12690	5907	3230	3553	execute col: drop con: ?branch lit
12690	5907	3230	3553	drop con: ?branch lit col: drop
12690	5907	3230	3553	drop con: ?branch lit col:
12690	5907	3230	3553	drop con: ?branch lit
12690	5907	3230	3553	con: ?branch lit col: drop var:
12690	5907	3230	3553	con: ?branch lit col: drop
12690	5907	3230	3553	con: ?branch lit col:
12690	5907	3230	3553	con: ?branch lit
12690	5907	3230	3553	col: drop con: ?branch lit col:
12690	5907	3230	3553	col: drop con: ?branch lit
12690	5907	3230	3553	?branch lit col: drop var: dup
12690	5907	3230	3553	?branch lit col: drop var:
12690	5907	3230	3553	?branch lit col: drop
12656	5021	4190	3445	2drop ;s branch
12584	24	3942	8618	swap >r ;s count defer: (type)
12584	24	3942	8618	swap >r ;s count defer:
12584	24	3942	8618	count defer: (type) ;s
12584	24	3942	8618	count defer: (type)
12584	24	3942	8618	count defer:
12584	24	3942	8618	>r swap >r ;s count defer:
12584	24	3942	8618	>r ;s count defer: (type) ;s
12584	24	3942	8618	>r ;s count defer: (type)
12584	24	3942	8618	>r ;s count defer:
12584	24	3942	8618	;s count defer: (type) ;s
12584	24	3942	8618	;s count defer: (type)
12584	24	3942	8618	;s count defer:
12503	7920	2582	2001	>r ?branch
12482	7581	2213	2688	?branch @
12458	11254	1060	144	con: = ?branch
12452	6452	3684	2316	user: +!
12341	4706	4190	3445	2drop ;s branch col:
12320	7179	1482	3659	;s (loop) con: col: col: col:
12320	7179	1482	3659	;s (loop) con: col: col:
12320	7179	1482	3659	;s (loop) con: col:
12320	7179	1482	3659	;s (loop) con:
12320	7179	1482	3659	(loop) con: col: col: col:
12320	7179	1482	3659	(loop) con: col: col:
12296	11906	0	390	+ ;s c!
12244	5546	3348	3350	dup lit
12192	6885	3577	1730	dup ?branch drop
12059	0	0	12059	over @
11986	4918	4173	2895	! ;s lit
11959	11935	16	8	lit col: var:
11937	6230	2870	2837	col: dup @
11922	11922	0	0	;s c! ;s ;s
11906	11906	0	0	var: @ + ;s c! ;s
11906	11906	0	0	var: @ + ;s c!
11906	11906	0	0	col: var: @ + ;s c!
11906	11906	0	0	@ + ;s c! ;s ;s
11906	11906	0	0	@ + ;s c! ;s
11906	11906	0	0	@ + ;s c!
11906	11906	0	0	+ ;s c! ;s ;s
11906	11906	0	0	+ ;s c! ;s
11904	8061	1818	2025	@ dup ?branch
11878	0	11878	0	branch >l lp- @local1 col: >l
11878	0	11878	0	branch >l lp- @local1 col:
11824	2456	9357	11	cells + ;s !
11789	191	1055	10543	;s 0= ?branch
11754	0	0	11754	cell+ swap
11645	7817	2885	943	@ ;s col:
11555	0	11555	0	@local0 >l lp- @local1
11555	0	11555	0	@local0 >l lp-
11555	0	11555	0	@local0 >l
11542	3278	4078	4186	drop 2drop
11486	7629	3610	247	= ?branch drop
11485	8406	2550	529	! ;s col: col: user: @
11485	8406	2550	529	! ;s col: col: user:
11479	4862	3642	2975	(hashfind) ;s ;s dup ?branch nip
11380	0	11380	0	?branch @local3
11349	3738	4078	3533	2drop lit
11344	3798	6332	1214	- lit
11312	8039	890	2383	;s col: var:
11312	11014	6	292	@ con:
11261	7119	2266	1876	swap >r ;s >r ?branch rdrop
11261	7119	2266	1876	swap >r ;s >r ?branch
11261	7119	2266	1876	swap >r ;s >r
11261	7119	2266	1876	aligned >r swap >r ;s >r
11261	7119	2266	1876	>r swap >r ;s >r ?branch
11261	7119	2266	1876	>r swap >r ;s >r
11261	7119	2266	1876	>r ?branch rdrop ;s
11261	7119	2266	1876	>r ?branch rdrop
11261	7119	2266	1876	>r ;s >r ?branch rdrop ;s
11261	7119	2266	1876	>r ;s >r ?branch rdrop
11261	7119	2266	1876	>r ;s >r ?branch
11261	7119	2266	1876	>r ;s >r
11261	7119	2266	1876	;s >r ?branch rdrop ;s
11261	7119	2266	1876	;s >r ?branch rdrop
11261	7119	2266	1876	;s >r ?branch
11259	10870	0	389	var: @ ;s ;s lit col:
11259	10870	0	389	@ ;s ;s lit col:
11256	0	11256	0	@local0 >l lp- @local1 col: >l
11256	0	11256	0	@local0 >l lp- @local1 col:
11238	5280	3442	2516	user: @ ?branch
11231	158	118	10955	;s ;s 0=
11214	0	11214	0	lp+ ;s dup ?branch @local3
11214	0	11214	0	dup ?branch @local3
11214	0	11214	0	@ lp+ ;s dup ?branch @local3
11214	0	11214	0	;s dup ?branch @local3
11189	6447	2789	1953	swap user:
11157	5567	3715	1875	?branch col: user: @
11157	5567	3715	1875	?branch col: user:
11047	11039	0	8	;s lit col: var:
11034	5163	3383	2488	col: user: @ ?branch
11019	11011	0	8	;s ;s lit col: var:
10947	0	10947	0	lp+ branch >l lp- @local1 col:
10890	3278	4078	3534	<> ?branch drop
10889	3278	4078	3533	over <> ?branch drop 2drop lit
10889	3278	4078	3533	over <> ?branch drop 2drop
10889	3278	4078	3533	over <> ?branch drop
10889	3278	4078	3533	i 2@ over <> ?branch drop
10889	3278	4078	3533	drop 2drop lit (+loop) 2dup i
10889	3278	4078	3533	drop 2drop lit (+loop) 2dup
10889	3278	4078	3533	drop 2drop lit (+loop)
10889	3278	4078	3533	drop 2drop lit
10889	3278	4078	3533	?branch drop 2drop lit (+loop) 2dup
10889	3278	4078	3533	?branch drop 2drop lit (+loop)
10889	3278	4078	3533	?branch drop 2drop lit
10889	3278	4078	3533	?branch drop 2drop
10889	3278	4078	3533	<> ?branch drop 2drop lit (+loop)
10889	3278	4078	3533	<> ?branch drop 2drop lit
10889	3278	4078	3533	<> ?branch drop 2drop
10889	3278	4078	3533	2drop lit (+loop) 2dup i 2@
10889	3278	4078	3533	2drop lit (+loop) 2dup i
10889	3278	4078	3533	2drop lit (+loop) 2dup
10889	3278	4078	3533	2drop lit (+loop)
10889	3278	4078	3533	2@ over <> ?branch drop 2drop
10889	3278	4078	3533	2@ over <> ?branch drop
10829	0	10829	0	>l @local0 >l lp- @local1
10829	0	10829	0	>l @local0 >l lp-
10829	0	10829	0	>l @local0 >l
10829	0	10829	0	>l >l @local0 >l lp- @local1
10829	0	10829	0	>l >l @local0 >l lp-
10829	0	10829	0	>l >l @local0 >l
10783	3507	3727	3549	0< ?branch
10767	158	118	10491	;s ;s 0= ?branch
10705	9889	344	472	;s ;s ;s ;s ;s
10701	10701	0	0	lit col: var: +! ;s col:
10701	10701	0	0	lit col: var: +! ;s
10701	10701	0	0	lit col: var: +!
10701	10701	0	0	@ ;s ;s lit col: var:
10701	10701	0	0	;s lit col: var: +! ;s
10701	10701	0	0	;s lit col: var: +!
10701	10701	0	0	;s ;s lit col: var: +!
10679	0	10679	0	@local3 = ?branch
10679	0	10679	0	@local3 =
10530	0	10530	0	>l @local0 >l lp- @local1 col:
10413	0	0	10413	and 0= 0= ;s ;s 0=
10413	0	0	10413	0= ;s ;s 0= ?branch
10413	0	0	10413	0= ;s ;s 0=
10413	0	0	10413	0= 0= ;s ;s 0= ?branch
10413	0	0	10413	0= 0= ;s ;s 0=
10392	3519	710	6163	and ;s
10385	4781	3064	2540	?branch ;s ;s ;s
10354	5213	1482	3659	c! ;s (loop) con: col: col:
10354	5213	1482	3659	c! ;s (loop) con: col:
10354	5213	1482	3659	c! ;s (loop) con:
10354	5213	1482	3659	;s c! ;s (loop) con: col:
10354	5213	1482	3659	;s c! ;s (loop) con:
10354	5213	1482	3659	+! ;s c! ;s (loop) con:
10354	5213	1482	3659	(loop) con: col: col: col: user:
10285	9632	407	246	user: @ over min /string
10285	9632	407	246	user: @ over min
10285	9632	407	246	user: @ over
10285	9632	407	246	over min /string
10285	9632	407	246	over min
10285	9632	407	246	min /string
10285	9632	407	246	@ over min /string
10285	9632	407	246	@ over min
10059	8982	562	515	user: ! ;s col:
10057	0	10057	0	col: >l >l @local0 >l lp-
10057	0	10057	0	col: >l >l @local0 >l
10055	0	0	10055	does: @ + ;s
9975	8955	540	480	r> min user: ! ;s col:
9975	8955	540	480	min user: ! ;s col:
9892	4348	3034	2510	lit and ?branch ;s ;s ;s
9892	4348	3034	2510	and ?branch ;s ;s ;s
9833	9833	0	0	c! ;s ;s (loop)
9833	9833	0	0	;s c! ;s ;s (loop)
9833	9833	0	0	;s ;s (loop)
9833	9833	0	0	+ ;s c! ;s ;s (loop)
9790	4702	1779	3309	var: col: con:
9740	4335	2202	3203	and col:
9730	0	9730	0	@local1 ?branch
9699	8995	489	215	dup con:
9672	0	9672	0	lp- @local1 ?branch
9672	0	9672	0	>l lp- @local1 ?branch
9650	4851	4118	681	user: @ lit
9562	4318	1809	3435	user: @ ;s @ ;s dup
9562	4318	1809	3435	@ ;s dup
9562	4318	1809	3435	@ ;s @ ;s dup
9562	4318	1809	3435	;s @ ;s dup
9552	4192	2927	2433	and ?branch ;s ;s ;s dup
9552	4192	2927	2433	?branch ;s ;s ;s dup
9509	4189	2891	2429	?branch ;s ;s ;s dup ?branch
9485	3854	3429	2202	nip nip execute
9485	3854	3429	2202	nip execute
9485	3854	3429	2202	?branch nip nip execute
9456	972	3282	5202	col: @
9392	6838	2048	506	dup 0<
9387	2740	3808	2839	;s ! ;s ;s ;s
9368	0	9368	0	@local1 col: >l >l
9365	4233	2050	3082	lit and col:
9346	4934	2570	1842	lit user: !
9287	5005	3749	533	drop branch
9273	6719	2048	506	col: dup 0<
9260	2449	5522	1289	lit (?do)
9252	5638	2610	1004	?branch 2dup
9243	5017	2420	1806	swap user: !
9166	5473	1760	1933	@ col: col: col:
9163	0	0	9163	;s ;s 0= ?branch lit col:
9163	0	0	9163	;s ;s 0= ?branch lit
9163	0	0	9163	;s 0= ?branch lit col: col:
9163	0	0	9163	;s 0= ?branch lit col:
9163	0	0	9163	;s 0= ?branch lit
9163	0	0	9163	0= ?branch lit col: col: var:
9163	0	0	9163	0= ?branch lit col: col:
9163	0	0	9163	0= ?branch lit col:
9163	0	0	9163	0= ;s ;s 0= ?branch lit
9156	3750	3269	2137	;s ;s branch col:
9126	0	9126	0	;s lp+
9109	2873	3578	2658	dup ?branch 0> ?branch
9109	2873	3578	2658	dup ?branch 0>
9109	2873	3578	2658	;s dup ?branch 0> ?branch
9109	2873	3578	2658	;s dup ?branch 0>
9096	7867	360	869	col: col: defer:
9056	3750	3265	2041	;s ;s branch col: sp@ user:
9056	3750	3265	2041	;s ;s branch col: sp@
9033	7613	557	863	;s col: var: @
9028	4802	2420	1806	lit user: ! ;s
9026	3066	2408	3552	;s ?branch col: col:
9020	0	9020	0	lp+ ;s dup ?branch @local3 =
9020	0	9020	0	dup ?branch @local3 = ?branch
9020	0	9020	0	dup ?branch @local3 =
9020	0	9020	0	?branch @local3 = ?branch
9020	0	9020	0	?branch @local3 =
9020	0	9020	0	;s dup ?branch @local3 = ?branch
9020	0	9020	0	;s dup ?branch @local3 =
9008	4821	1807	2380	branch ;s
8983	8983	0	0	write-file
8967	7766	791	410	c! ;s ;s col:
8965	6410	2048	507	0< ;s
8964	6410	2048	506	dup 0< ;s
8964	6410	2048	506	col: dup 0< ;s
8903	4179	2687	2037	user: @ ?branch col:
8899	6064	1105	1730	?branch >r
8895	4878	1279	2738	?branch dup
8878	4748	3703	427	?branch drop branch
8875	4702	1779	2394	var: col: con: swap ! ;s
8875	4702	1779	2394	var: col: con: swap !
8875	4702	1779	2394	var: col: con: swap
8874	4166	2675	2033	col: user: @ ?branch col:
8859	7591	309	959	;s ;s col: var:
8829	8621	103	105	;s col: over
8719	0	8719	0	col: cells + ;s !
8679	3367	1701	3611	;s col: col: col: user: @
8679	3367	1701	3611	;s col: col: col: user:
8675	2617	3466	2592	;s ;s dup ?branch 0> ?branch
8675	2617	3466	2592	;s ;s dup ?branch 0>
8675	2617	3466	2592	;s ;s ;s dup ?branch 0>
8673	0	8673	0	i col: cells + ;s !
8658	0	8658	0	?branch lp+
8580	0	8580	0	@local1 col: >l >l @local0
8566	0	8566	0	= ?branch lp+
8563	3102	1253	4208	swap (?do)
8558	2027	431	6100	swap r>
8558	0	8558	0	dup ?branch @local3 = ?branch lp+
8558	0	8558	0	@local3 = ?branch lp+ branch >l
8558	0	8558	0	@local3 = ?branch lp+ branch
8558	0	8558	0	@local3 = ?branch lp+
8558	0	8558	0	?branch lp+ branch >l lp- @local1
8558	0	8558	0	?branch lp+ branch >l lp-
8558	0	8558	0	?branch lp+ branch >l
8558	0	8558	0	?branch lp+ branch
8558	0	8558	0	?branch @local3 = ?branch lp+ branch
8558	0	8558	0	?branch @local3 = ?branch lp+
8558	0	8558	0	= ?branch lp+ branch >l lp-
8558	0	8558	0	= ?branch lp+ branch >l
8558	0	8558	0	= ?branch lp+ branch
8550	0	8550	0	@local1 col: >l >l @local0 >l
8534	3169	2349	3016	@ lit pick
8526	2021	404	6101	>r over
8505	2363	3602	2540	;s ;s ! ;s ;s ;s
8474	3154	2331	2989	pick ! !
8474	3154	2331	2989	pick !
8474	3154	2331	2989	lit pick ! !
8474	3154	2331	2989	lit pick !
8474	3154	2331	2989	dup @ lit pick ! !
8474	3154	2331	2989	dup @ lit pick !
8474	3154	2331	2989	dup @ lit pick
8474	3154	2331	2989	dup @ lit
8474	3154	2331	2989	@ lit pick ! !
8474	3154	2331	2989	@ lit pick !
8474	3154	2331	2989	! !
8418	2309	3101	3008	over -
8396	5341	2614	441	;s dup ?branch drop
8394	3521	2836	2037	nip nip execute col:
8394	3521	2836	2037	nip execute col:
8394	3521	2836	2037	?branch nip nip execute col:
8391	5341	2609	441	;s ;s dup ?branch drop
8380	3626	4100	654	col: user: @ lit
8336	4191	1478	2667	execute col: col:
8319	8319	0	0	i c@
8319	6033	1860	426	@ swap
8299	4055	2433	1811	user: ! lit user: !
8299	4055	2433	1811	user: ! lit user:
8299	4055	2433	1811	! lit user: !
8299	4055	2433	1811	! lit user:
8277	4043	2426	1808	user: @ ?branch col: user: @
8277	4043	2426	1808	user: @ ?branch col: user:
8277	4043	2426	1808	@ ?branch col: user: @
8277	4043	2426	1808	@ ?branch col: user:
8272	4044	2422	1806	?branch ;s branch
8269	4041	2422	1806	col: ?dup ?branch ;s branch
8269	4041	2422	1806	?dup ?branch ;s branch
8268	4042	2420	1806	@ ?dup ?branch
8267	4041	2420	1806	user: @ ?dup ?branch read-line col:
8267	4041	2420	1806	user: @ ?dup ?branch read-line
8267	4041	2420	1806	user: @ ?dup ?branch
8267	4041	2420	1806	user: @ ;s con: user: @
8267	4041	2420	1806	user: @ ;s con: user:
8267	4041	2420	1806	user: @ ;s con:
8267	4041	2420	1806	user: +! swap user: ! lit
8267	4041	2420	1806	user: +! swap user: !
8267	4041	2420	1806	user: +! swap user:
8267	4041	2420	1806	user: +! swap
8267	4041	2420	1806	user: ! lit user: ! ;s
8267	4041	2420	1806	swap user: ! lit user: !
8267	4041	2420	1806	swap user: ! lit user:
8267	4041	2420	1806	swap user: ! lit
8267	4041	2420	1806	read-line col: ?dup ?branch ;s branch
8267	4041	2420	1806	read-line col: ?dup ?branch ;s
8267	4041	2420	1806	read-line col: ?dup ?branch
8267	4041	2420	1806	read-line col: ?dup
8267	4041	2420	1806	read-line col:
8267	4041	2420	1806	read-line
8267	4041	2420	1806	lit user: +! swap user: !
8267	4041	2420	1806	lit user: +! swap user:
8267	4041	2420	1806	lit user: +! swap
8267	4041	2420	1806	lit user: +!
8267	4041	2420	1806	con: user: @ ?dup ?branch read-line
8267	4041	2420	1806	con: user: @ ?dup ?branch
8267	4041	2420	1806	con: user: @ ?dup
8267	4041	2420	1806	con: user: @
8267	4041	2420	1806	con: user:
8267	4041	2420	1806	col: user: @ ?branch col: user:
8267	4041	2420	1806	col: user: @ ;s con: user:
8267	4041	2420	1806	col: user: @ ;s con:
8267	4041	2420	1806	col: ?dup ?branch ;s branch lit
8267	4041	2420	1806	branch lit user: +! swap user:
8267	4041	2420	1806	branch lit user: +! swap
8267	4041	2420	1806	branch lit user: +!
8267	4041	2420	1806	branch lit user:
8267	4041	2420	1806	@ ?dup ?branch read-line col: ?dup
8267	4041	2420	1806	@ ?dup ?branch read-line col:
8267	4041	2420	1806	@ ?dup ?branch read-line
8267	4041	2420	1806	@ ?branch col: user: @ ;s
8267	4041	2420	1806	@ ;s con: user: @ ?dup
8267	4041	2420	1806	@ ;s con: user: @
8267	4041	2420	1806	@ ;s con: user:
8267	4041	2420	1806	?dup ?branch read-line col: ?dup ?branch
8267	4041	2420	1806	?dup ?branch read-line col: ?dup
8267	4041	2420	1806	?dup ?branch read-line col:
8267	4041	2420	1806	?dup ?branch read-line
8267	4041	2420	1806	?dup ?branch ;s branch lit user:
8267	4041	2420	1806	?dup ?branch ;s branch lit
8267	4041	2420	1806	?branch read-line col: ?dup ?branch ;s
8267	4041	2420	1806	?branch read-line col: ?dup ?branch
8267	4041	2420	1806	?branch read-line col: ?dup
8267	4041	2420	1806	?branch read-line col:
8267	4041	2420	1806	?branch read-line
8267	4041	2420	1806	?branch col: user: @ ;s con:
8267	4041	2420	1806	?branch col: user: @ ;s
8267	4041	2420	1806	?branch ;s branch lit user: +!
8267	4041	2420	1806	?branch ;s branch lit user:
8267	4041	2420	1806	?branch ;s branch lit
8267	4041	2420	1806	;s con: user: @ ?dup ?branch
8267	4041	2420	1806	;s con: user: @ ?dup
8267	4041	2420	1806	;s con: user: @
8267	4041	2420	1806	;s con: user:
8267	4041	2420	1806	;s branch lit user: +! swap
8267	4041	2420	1806	;s branch lit user: +!
8267	4041	2420	1806	;s branch lit user:
8267	4041	2420	1806	+! swap user: ! lit user:
8267	4041	2420	1806	+! swap user: ! lit
8267	4041	2420	1806	+! swap user: !
8267	4041	2420	1806	+! swap user:
8267	4041	2420	1806	+! swap
8267	4041	2420	1806	! lit user: ! ;s
8202	3303	3181	1718	negate
8197	7800	201	196	;s @ ;s ;s
8178	6193	652	1333	;s ;s col: col: col:
8144	7747	201	196	user: @ ;s @ ;s ;s
8144	7747	201	196	@ ;s @ ;s ;s
8129	3505	2672	1952	;s ;s ;s col:
8098	1324	4031	2743	col: lit col:
8060	3610	1425	3025	user: @ ?dup ;s ?branch
8060	3610	1425	3025	user: @ ?dup ;s
8060	3610	1425	3025	col: user: @ ?dup ;s ?branch
8060	3610	1425	3025	col: user: @ ?dup ;s
8060	3610	1425	3025	col: user: @ ?dup
8060	3610	1425	3025	@ ?dup ;s ?branch
8060	3610	1425	3025	@ ?dup ;s
8060	3610	1425	3025	?dup ;s ?branch
8060	3610	1425	3025	?dup ;s
8050	2658	2615	2777	?branch ;s col:
8021	4619	1455	1947	var: @ ?branch
7903	1257	321	6325	col: var: col:
7877	4493	1094	2290	! ;s ;s col:
7875	7665	0	210	@ ;s ;s col:
7873	6663	793	417	! col:
7860	7655	100	105	>r rot
7845	7844	1	0	cell+ ;s
7836	7649	77	110	over >r
7835	7648	72	115	rot over
7825	7648	72	105	rot over 1+ r> move c!
7825	7648	72	105	rot over 1+ r> move
7825	7648	72	105	rot over 1+ r>
7825	7648	72	105	rot over 1+
7825	7648	72	105	r> move c! ;s
7825	7648	72	105	r> move c!
7825	7648	72	105	r> move
7825	7648	72	105	over >r rot over 1+ r>
7825	7648	72	105	over >r rot over 1+
7825	7648	72	105	over >r rot over
7825	7648	72	105	over >r rot
7825	7648	72	105	over 1+ r> move c! ;s
7825	7648	72	105	over 1+ r> move c!
7825	7648	72	105	over 1+ r> move
7825	7648	72	105	over 1+ r>
7825	7648	72	105	over 1+
7825	7648	72	105	move c! ;s
7825	7648	72	105	move c!
7825	7648	72	105	col: over >r rot over 1+
7825	7648	72	105	col: over >r rot over
7825	7648	72	105	col: over >r rot
7825	7648	72	105	col: over >r
7825	7648	72	105	>r rot over 1+ r> move
7825	7648	72	105	>r rot over 1+ r>
7825	7648	72	105	>r rot over 1+
7825	7648	72	105	>r rot over
7825	7648	72	105	;s col: over >r rot over
7825	7648	72	105	;s col: over >r rot
7825	7648	72	105	;s col: over >r
7825	7648	72	105	1+ r> move c! ;s
7825	7648	72	105	1+ r> move c!
7825	7648	72	105	1+ r> move
7809	4695	1605	1509	;s user: !
7808	1560	5152	1096	con: - dup
7801	3079	1679	3043	@ 0< ?branch
7801	3079	1679	3043	@ 0<
7796	7612	4	180	c! col:
7781	7619	81	81	col: col: defer: col:
7768	7612	4	152	c! ;s con: col: col:
7768	7612	4	152	c! ;s con: col:
7768	7612	4	152	c! ;s con:
7767	4334	1823	1610	;s lit col: col: col:
7760	3063	1679	3018	dup @ 0< ?branch
7760	3063	1679	3018	dup @ 0<
7759	7698	7	54	;s @ ;s col:
7758	7731	4	23	@ ;s col: over
7758	3325	2592	1841	;s ;s ;s ;s col:
7742	7715	4	23	dup con: = ?branch
7742	7715	4	23	dup con: =
7739	7678	7	54	user: @ ;s @ ;s col:
7739	7678	7	54	@ ;s @ ;s col:
7726	1406	5148	1172	swap lit
7714	4917	1359	1438	0= col:
7711	4916	1359	1436	0= col: col:
7682	3441	3934	307	;s @ col:
7674	7630	21	23	branch 2dup
7657	7615	15	27	user: ! ;s col: col:
7657	7615	15	27	min user: ! ;s col: col:
7656	7629	4	23	dup con: = ?branch drop
7656	7629	4	23	con: = ?branch drop
7649	7612	4	33	con: col: col: defer:
7639	7612	4	23	user: @ over min /string rot
7639	7612	4	23	user: @ ;s @ ;s count
7639	7612	4	23	user: ! ;s col: col: user:
7639	7612	4	23	rot dup con: = ?branch drop
7639	7612	4	23	rot dup con: = ?branch
7639	7612	4	23	rot dup con: =
7639	7612	4	23	rot dup con:
7639	7612	4	23	rot dup
7639	7612	4	23	r> move c! ;s con: col:
7639	7612	4	23	r> move c! ;s con:
7639	7612	4	23	over min /string rot dup con:
7639	7612	4	23	over min /string rot dup
7639	7612	4	23	over min /string rot
7639	7612	4	23	move c! ;s con: col: col:
7639	7612	4	23	move c! ;s con: col:
7639	7612	4	23	move c! ;s con:
7639	7612	4	23	min /string rot dup con: =
7639	7612	4	23	min /string rot dup con:
7639	7612	4	23	min /string rot dup
7639	7612	4	23	min /string rot
7639	7612	4	23	dup con: = ?branch drop (parse-white)
7639	7612	4	23	drop (parse-white) branch 2dup + r>
7639	7612	4	23	drop (parse-white) branch 2dup +
7639	7612	4	23	drop (parse-white) branch 2dup
7639	7612	4	23	drop (parse-white) branch
7639	7612	4	23	drop (parse-white)
7639	7612	4	23	count + c! col: col: user:
7639	7612	4	23	count + c! col: col:
7639	7612	4	23	count + c! col:
7639	7612	4	23	count + c!
7639	7612	4	23	con: col: col: defer: col: col:
7639	7612	4	23	con: col: col: defer: col:
7639	7612	4	23	con: = ?branch drop (parse-white) branch
7639	7612	4	23	con: = ?branch drop (parse-white)
7639	7612	4	23	col: col: defer: col: col: user:
7639	7612	4	23	col: col: defer: col: col:
7639	7612	4	23	c! col: col: user: @ ;s
7639	7612	4	23	c! col: col: user: @
7639	7612	4	23	c! col: col: user:
7639	7612	4	23	c! col: col:
7639	7612	4	23	c! ;s con: col: col: user:
7639	7612	4	23	branch 2dup + r> - 1+
7639	7612	4	23	branch 2dup + r> -
7639	7612	4	23	branch 2dup + r>
7639	7612	4	23	branch 2dup +
7639	7612	4	23	@ over min /string rot dup
7639	7612	4	23	@ over min /string rot
7639	7612	4	23	@ ;s count + c! col:
7639	7612	4	23	@ ;s count + c!
7639	7612	4	23	@ ;s count +
7639	7612	4	23	@ ;s count
7639	7612	4	23	@ ;s col: over >r rot
7639	7612	4	23	@ ;s col: over >r
7639	7612	4	23	@ ;s @ ;s count +
7639	7612	4	23	@ ;s @ ;s count
7639	7612	4	23	@ ;s @ ;s col: over
7639	7612	4	23	?branch drop (parse-white) branch 2dup +
7639	7612	4	23	?branch drop (parse-white) branch 2dup
7639	7612	4	23	?branch drop (parse-white) branch
7639	7612	4	23	?branch drop (parse-white)
7639	7612	4	23	>r user: @ over min /string
7639	7612	4	23	>r user: @ over min
7639	7612	4	23	>r user: @ over
7639	7612	4	23	>r >r user: @ over min
7639	7612	4	23	>r >r user: @ over
7639	7612	4	23	= ?branch drop (parse-white) branch 2dup
7639	7612	4	23	= ?branch drop (parse-white) branch
7639	7612	4	23	= ?branch drop (parse-white)
7639	7612	4	23	;s count + c! col: col:
7639	7612	4	23	;s count + c! col:
7639	7612	4	23	;s count + c!
7639	7612	4	23	;s count +
7639	7612	4	23	;s @ ;s count + c!
7639	7612	4	23	;s @ ;s count +
7639	7612	4	23	;s @ ;s count
7639	7612	4	23	;s @ ;s col: over >r
7639	7612	4	23	;s @ ;s col: over
7639	7612	4	23	2dup >r >r user: @ over
7639	7612	4	23	1+ r> move c! ;s con:
7639	7612	4	23	/string rot dup con: = ?branch
7639	7612	4	23	/string rot dup con: =
7639	7612	4	23	/string rot dup con:
7639	7612	4	23	/string rot dup
7639	7612	4	23	/string rot
7639	7612	4	23	+ c! col: col: user: @
7639	7612	4	23	+ c! col: col: user:
7639	7612	4	23	+ c! col: col:
7639	7612	4	23	+ c! col:
7639	7612	4	23	+ c!
7639	7612	4	23	(parse-white) branch 2dup + r> -
7639	7612	4	23	(parse-white) branch 2dup + r>
7639	7612	4	23	(parse-white) branch 2dup +
7639	7612	4	23	(parse-white) branch 2dup
7639	7612	4	23	(parse-white) branch
7639	2780	3862	997	dup col: col: col:
7610	6591	300	719	2drop ;s ;s
7605	7605	0	0	over + swap ;s
7605	7605	0	0	over + swap
7605	7605	0	0	col: over + swap ;s
7605	7605	0	0	col: over + swap
7605	7605	0	0	col: over +
7604	1500	5092	1012	aligned ;s con: - dup
7604	1500	5092	1012	;s con: - dup
7604	1500	5092	1012	+ aligned ;s con: - dup
7563	2310	3267	1986	(?do) unloop
7544	3071	3934	539	+ col:
7541	6394	249	898	;s ;s con:
7540	3302	1940	2298	swap ! ;s ;s
7530	3057	3934	539	+ col: col:
7487	3061	1699	2727	cell+ count lit and
7487	3061	1699	2727	cell+ count lit
7487	3061	1699	2727	cell+ count
7452	6410	521	521	col: >r col:
7442	3248	1940	2254	con: swap ! ;s ;s
7442	3248	1940	2254	col: con: swap ! ;s ;s
7430	4635	1359	1436	0= col: col: r> r> dup
7430	4635	1359	1436	0= col: col: r> r>
7430	4635	1359	1436	0= col: col: r>
7429	0	7429	0	lp+!# ;s
7429	0	7429	0	lp+!#
7424	4790	1683	951	?branch 0> ?branch nip
7424	4790	1683	951	0> ?branch nip
7400	0	7400	0	;s >l lp-
7400	0	7400	0	;s >l
7395	2169	3745	1481	over +! @
7395	2169	3745	1481	over +!
7395	2169	3745	1481	+! @
7384	0	7384	0	lp+ ;s >l lp-
7384	0	7384	0	lp+ ;s >l
7380	6984	289	107	unloop 2drop
7380	0	7380	0	;s >l lp- @local1
7372	6951	0	421	c@ col:
7368	4532	1029	1807	r> col:
7365	0	7365	0	lp+ ;s >l lp- @local1 ?branch
7365	0	7365	0	lp+ ;s >l lp- @local1
7365	0	7365	0	cell+ @local1 @ lp+ ;s >l
7365	0	7365	0	@local1 @ lp+ ;s >l lp-
7365	0	7365	0	@local1 @ lp+ ;s >l
7365	0	7365	0	@ lp+ ;s >l lp- @local1
7365	0	7365	0	@ lp+ ;s >l lp-
7365	0	7365	0	@ lp+ ;s >l
7365	0	7365	0	;s >l lp- @local1 ?branch
7338	3105	2407	1826	?branch 2drop ;s
7326	2686	1927	2713	swap col: lit
7316	3106	2408	1802	col: col: sp@ user: @ >
7316	3106	2408	1802	col: col: sp@ user: @
7316	3106	2408	1802	col: col: sp@ user:
7316	3106	2408	1802	col: col: sp@
7313	3105	2407	1801	user: ! ;s dup ?branch 2drop
7313	3105	2407	1801	dup ?branch 2drop ;s
7313	3105	2407	1801	;s dup ?branch 2drop ;s
7313	3105	2407	1801	! ;s dup ?branch 2drop ;s
7313	3105	2407	1801	! ;s dup ?branch 2drop
7309	7250	16	43	;s ;s col: var: @
7309	7073	0	236	;s col: col: col: var:
7293	3143	2195	1955	;s 2drop
7287	3061	2420	1806	user: ! ;s ?branch
7287	3061	2420	1806	lit user: ! ;s ?branch
7287	3061	2420	1806	! lit user: ! ;s ?branch
7287	3061	2420	1806	! ;s ?branch
7275	6163	762	350	swap c! ;s ;s col:
7274	3977	1650	1647	dup 0=
7267	0	7267	0	lp+2
7257	3048	2408	1801	user: ! ;s ?branch col: col:
7257	3048	2408	1801	user: ! ;s ?branch col:
7257	3048	2408	1801	lit user: ! ;s ?branch col:
7257	3048	2408	1801	?branch col: col: sp@ user: @
7257	3048	2408	1801	?branch col: col: sp@ user:
7257	3048	2408	1801	?branch col: col: sp@
7257	3048	2408	1801	;s ?branch col: col: sp@ user:
7257	3048	2408	1801	;s ?branch col: col: sp@
7257	3048	2408	1801	! ;s ?branch col: col: sp@
7257	3048	2408	1801	! ;s ?branch col: col:
7257	3048	2408	1801	! ;s ?branch col:
7256	5635	827	794	dup ?branch 2dup
7255	3047	2407	1801	dup ?branch 2drop ;s branch col:
7255	3047	2407	1801	dup ?branch 2drop ;s branch
7255	3047	2407	1801	branch col: user: @ ?branch col:
7255	3047	2407	1801	branch col: user: @ ?branch
7255	3047	2407	1801	branch col: user: @
7255	3047	2407	1801	branch col: user:
7255	3047	2407	1801	?branch 2drop ;s branch col: user:
7255	3047	2407	1801	?branch 2drop ;s branch col:
7255	3047	2407	1801	?branch 2drop ;s branch
7255	3047	2407	1801	;s dup ?branch 2drop ;s branch
7255	3047	2407	1801	;s branch col: user: @ ?branch
7255	3047	2407	1801	;s branch col: user: @
7255	3047	2407	1801	;s branch col: user:
7255	3047	2407	1801	2drop ;s branch col: user: @
7255	3047	2407	1801	2drop ;s branch col: user:
7245	5634	822	789	@ dup ?branch 2dup
7163	3249	2907	1007	! var:
7145	3349	1082	2714	;s ;s var:
7139	3706	1823	1610	;s lit col: col: col: user:
7084	6430	645	9	;s var: !
7073	7073	0	0	;s col: col: col: var: @
7073	5915	321	837	@ 0=
7041	3261	2508	1272	;s ;s ;s branch
7005	2289	2541	2175	lit cells
6997	29	5140	1828	unloop drop
6951	6951	0	0	i c@ col: col: col: var:
6951	6951	0	0	i c@ col: col: col:
6951	6951	0	0	i c@ col: col:
6951	6951	0	0	i c@ col:
6951	6951	0	0	c@ col: col: col: var: @
6951	6951	0	0	c@ col: col: col: var:
6951	6951	0	0	c@ col: col: col:
6951	6951	0	0	c@ col: col:
6945	0	3574	3371	+ @ ;s
6928	6410	12	506	dup 0< ;s r>
6928	6410	12	506	col: dup 0< ;s r>
6928	6410	12	506	col: >r col: dup 0< ;s
6928	6410	12	506	col: >r col: dup 0<
6928	6410	12	506	col: >r col: dup
6928	6410	12	506	>r col: dup 0< ;s r>
6928	6410	12	506	>r col: dup 0< ;s
6928	6410	12	506	>r col: dup 0<
6928	6410	12	506	>r col: dup
6928	6410	12	506	0< ;s r>
6909	6873	0	36	+ ;s col:
6903	1265	561	5077	@ @
6852	2048	2048	2756	;s lit pick
6845	6845	0	0	cell+ ;s @
6800	6765	16	19	;s col: >r
6757	1898	3862	997	dup col: col: col: user: @
6757	1898	3862	997	dup col: col: col: user:
6754	2984	2333	1437	r> lit and ?branch negate ;s
6754	2984	2333	1437	r> lit and ?branch negate
6754	2984	2333	1437	negate ;s ;s
6754	2984	2333	1437	negate ;s
6754	2984	2333	1437	lit and ?branch negate ;s ;s
6754	2984	2333	1437	lit and ?branch negate ;s
6754	2984	2333	1437	lit and ?branch negate
6754	2984	2333	1437	and ?branch negate ;s ;s
6754	2984	2333	1437	and ?branch negate ;s
6754	2984	2333	1437	and ?branch negate
6754	2984	2333	1437	?branch negate ;s ;s
6754	2984	2333	1437	?branch negate ;s
6754	2984	2333	1437	?branch negate
6753	0	6753	0	col: cells + ;s ! (loop)
6753	0	6753	0	cells + ;s ! (loop)
6753	0	6753	0	;s ! (loop)
6753	0	6753	0	+ ;s ! (loop)
6753	0	6753	0	! (loop)
6752	6752	0	0	var: @ + ;s col: >r
6752	6752	0	0	var: @ + ;s col:
6752	6752	0	0	r> con: col: over + swap
6752	6752	0	0	r> con: col: over +
6752	6752	0	0	r> con: col: over
6752	6752	0	0	r> con: col:
6752	6752	0	0	r> con:
6752	6752	0	0	con: col: over + swap ;s
6752	6752	0	0	con: col: over + swap
6752	6752	0	0	con: col: over +
6752	6752	0	0	con: col: over
6752	6752	0	0	col: var: @ + ;s col:
6752	6752	0	0	@ + ;s col: >r
6752	6752	0	0	@ + ;s col:
6752	6752	0	0	+ ;s col: >r
6752	6752	0	0	(do) con:
6629	2062	2518	2049	! ;s ;s ;s ;s
6601	1062	4151	1388	drop ;s ;s
6594	6594	0	0	var: @ ;s ;s col:
6594	6594	0	0	col: var: @ ;s ;s col:
6589	2141	3027	1421	lit col: >r
6565	2169	3890	506	<
6534	4748	826	960	dup >r
6497	3081	1390	2026	! lit col:
6480	2169	3745	566	over +! @ c! ;s ;s
6480	2169	3745	566	over +! @ c! ;s
6480	2169	3745	566	over +! @ c!
6480	2169	3745	566	lit over +! @ c! ;s
6480	2169	3745	566	lit over +! @ c!
6480	2169	3745	566	lit over +! @
6480	2169	3745	566	lit over +!
6480	2169	3745	566	con: - lit over +! @
6480	2169	3745	566	con: - lit over +!
6480	2169	3745	566	con: - lit over
6480	2169	3745	566	con: - lit
6480	2169	3745	566	aligned ;s con: - lit over
6480	2169	3745	566	aligned ;s con: - lit
6480	2169	3745	566	@ c! ;s ;s
6480	2169	3745	566	@ c! ;s
6480	2169	3745	566	@ c!
6480	2169	3745	566	;s con: - lit over +!
6480	2169	3745	566	;s con: - lit over
6480	2169	3745	566	;s con: - lit
6480	2169	3745	566	- lit over +! @ c!
6480	2169	3745	566	- lit over +! @
6480	2169	3745	566	- lit over +!
6480	2169	3745	566	- lit over
6480	2169	3745	566	+! @ c! ;s ;s
6480	2169	3745	566	+! @ c! ;s
6480	2169	3745	566	+! @ c!
6480	2169	3745	566	+ aligned ;s con: - lit
6442	4682	1097	663	@ ;s user: @ ;s user:
6442	4682	1097	663	;s user: @ ;s user:
6432	30	6177	225	?branch drop con:
6427	5951	322	154	swap c! ;s ;s col: col:
6427	5951	322	154	c! ;s ;s col: col:
6417	6410	7	0	(loop) unloop 2drop
6410	6410	0	0	unloop 2drop ;s ;s
6410	6410	0	0	unloop 2drop ;s
6410	6410	0	0	swap ;s (do) con: col: >r
6410	6410	0	0	swap ;s (do) con: col:
6410	6410	0	0	swap ;s (do) con:
6410	6410	0	0	swap ;s (do)
6410	6410	0	0	rot i c! (loop) unloop 2drop
6410	6410	0	0	rot i c! (loop) unloop
6410	6410	0	0	over + swap ;s (do) con:
6410	6410	0	0	over + swap ;s (do)
6410	6410	0	0	i c! (loop) unloop 2drop ;s
6410	6410	0	0	i c! (loop) unloop 2drop
6410	6410	0	0	i c! (loop) unloop
6410	6410	0	0	dup 0< ;s r> con: col:
6410	6410	0	0	dup 0< ;s r> con:
6410	6410	0	0	col: over + swap ;s (do)
6410	6410	0	0	col: dup 0< ;s r> con:
6410	6410	0	0	c! (loop) unloop 2drop ;s ;s
6410	6410	0	0	c! (loop) unloop 2drop ;s
6410	6410	0	0	c! (loop) unloop 2drop
6410	6410	0	0	c! (loop) unloop
6410	6410	0	0	@ + ;s col: >r col:
6410	6410	0	0	;s rot i c! (loop) unloop
6410	6410	0	0	;s r> con: col: over +
6410	6410	0	0	;s r> con: col: over
6410	6410	0	0	;s r> con: col:
6410	6410	0	0	;s r> con:
6410	6410	0	0	;s col: >r col: dup 0<
6410	6410	0	0	;s col: >r col: dup
6410	6410	0	0	;s col: >r col:
6410	6410	0	0	;s (do) con: col: >r lit
6410	6410	0	0	;s (do) con: col: >r
6410	6410	0	0	;s (do) con: col:
6410	6410	0	0	;s (do) con:
6410	6410	0	0	;s (do)
6410	6410	0	0	0< ;s r> con: col: over
6410	6410	0	0	0< ;s r> con: col:
6410	6410	0	0	0< ;s r> con:
6410	6410	0	0	+ swap ;s (do) con: col:
6410	6410	0	0	+ swap ;s (do) con:
6410	6410	0	0	+ swap ;s (do)
6410	6410	0	0	+ ;s col: >r col: dup
6410	6410	0	0	+ ;s col: >r col:
6410	6410	0	0	(loop) unloop 2drop ;s ;s
6410	6410	0	0	(loop) unloop 2drop ;s
6410	6410	0	0	(do) con: col: >r lit r@
6410	6410	0	0	(do) con: col: >r lit
6410	6410	0	0	(do) con: col: >r
6410	6410	0	0	(do) con: col:
6391	2169	3716	506	user: @ lit max col: >r
6391	2169	3716	506	user: @ lit max col:
6391	2169	3716	506	user: @ lit max
6391	2169	3716	506	um/mod r> ;s rot lit over
6391	2169	3716	506	um/mod r> ;s rot lit
6391	2169	3716	506	rot lit over < ?branch lit
6391	2169	3716	506	rot lit over < ?branch
6391	2169	3716	506	rot lit over <
6391	2169	3716	506	rot lit over
6391	2169	3716	506	rot lit
6391	2169	3716	506	r> ;s rot lit over <
6391	2169	3716	506	r> ;s rot lit over
6391	2169	3716	506	r> ;s rot lit
6391	2169	3716	506	over < ?branch lit + col:
6391	2169	3716	506	over < ?branch lit +
6391	2169	3716	506	over < ?branch lit
6391	2169	3716	506	over < ?branch
6391	2169	3716	506	over <
6391	2169	3716	506	max col: >r lit r@ um/mod
6391	2169	3716	506	max col: >r lit r@
6391	2169	3716	506	max col: >r lit
6391	2169	3716	506	max col: >r
6391	2169	3716	506	max col:
6391	2169	3716	506	lit over < ?branch lit +
6391	2169	3716	506	lit over < ?branch lit
6391	2169	3716	506	lit over < ?branch
6391	2169	3716	506	lit over <
6391	2169	3716	506	lit max col: >r lit r@
6391	2169	3716	506	lit max col: >r lit
6391	2169	3716	506	lit max col: >r
6391	2169	3716	506	lit max col:
6391	2169	3716	506	lit + col: col: col: col:
6391	2169	3716	506	lit + col: col: col:
6391	2169	3716	506	lit + col: col:
6391	2169	3716	506	lit + col:
6391	2169	3716	506	d0= ?branch
6391	2169	3716	506	d0=
6391	2169	3716	506	col: user: @ lit max col:
6391	2169	3716	506	col: user: @ lit max
6391	2169	3716	506	c! ;s ;s 2dup d0= ?branch
6391	2169	3716	506	c! ;s ;s 2dup d0=
6391	2169	3716	506	c! ;s ;s 2dup
6391	2169	3716	506	@ lit max col: >r lit
6391	2169	3716	506	@ lit max col: >r
6391	2169	3716	506	@ lit max col:
6391	2169	3716	506	@ lit max
6391	2169	3716	506	@ c! ;s ;s 2dup d0=
6391	2169	3716	506	@ c! ;s ;s 2dup
6391	2169	3716	506	?branch lit + col: col: col:
6391	2169	3716	506	?branch lit + col: col:
6391	2169	3716	506	?branch lit + col:
6391	2169	3716	506	?branch lit +
6391	2169	3716	506	>r um/mod r> ;s rot lit
6391	2169	3716	506	< ?branch lit + col: col:
6391	2169	3716	506	< ?branch lit + col:
6391	2169	3716	506	< ?branch lit +
6391	2169	3716	506	< ?branch lit
6391	2169	3716	506	< ?branch
6391	2169	3716	506	;s rot lit over < ?branch
6391	2169	3716	506	;s rot lit over <
6391	2169	3716	506	;s rot lit over
6391	2169	3716	506	;s rot lit
6391	2169	3716	506	;s ;s 2dup d0= ?branch
6391	2169	3716	506	;s ;s 2dup d0=
6391	2169	3716	506	;s ;s 2dup
6391	2169	3716	506	;s 2dup d0= ?branch
6391	2169	3716	506	;s 2dup d0=
6391	2169	3716	506	2dup d0= ?branch
6391	2169	3716	506	2dup d0=
6391	2169	3716	506	+! @ c! ;s ;s 2dup
6391	2169	3716	506	+ col: col: col: col: user:
6391	2169	3716	506	+ col: col: col: col:
6391	2169	3716	506	+ col: col: col:
6380	6099	0	281	;s (loop) i
6380	6099	0	281	(loop) i
6371	2046	2109	2216	(loop) dup
6350	5909	316	125	user: @ 0=
6347	6347	0	0	2drop ;s ;s ;s
6338	27	5138	1173	unloop drop ;s
6336	0	6336	0	lp+2 ;s
6313	6313	0	0	unloop 2drop ;s ;s ;s
6313	6313	0	0	(loop) unloop 2drop ;s ;s ;s
6310	25	5132	1153	swap lit max lit (?do)
6310	25	5132	1153	swap lit max lit
6310	25	5132	1153	swap lit max
6310	25	5132	1153	max lit (?do)
6310	25	5132	1153	max lit
6310	25	5132	1153	lit max lit (?do)
6310	25	5132	1153	lit max lit
6310	25	5132	1153	does: swap lit max lit (?do)
6310	25	5132	1153	does: swap lit max lit
6310	25	5132	1153	does: swap lit max
6310	25	5132	1153	does: swap lit
6310	25	5132	1153	does: swap
6255	4025	851	1379	;s (loop) unloop
6204	2063	2066	2075	pick col:
6204	2063	2066	2075	lit pick col:
6180	3791	989	1400	;s ;s col: dup
6179	1728	2297	2154	;s col: col: r>
6155	2146	135	3874	@ col: var:
6146	1895	1105	3146	! r@
6144	2048	2048	2048	pick col: dup @ lit pick
6144	2048	2048	2048	pick col: dup @ lit
6144	2048	2048	2048	pick col: dup @
6144	2048	2048	2048	pick col: dup
6144	2048	2048	2048	pick + (loop)
6144	2048	2048	2048	pick +
6144	2048	2048	2048	pick ! ! ;s lit pick
6144	2048	2048	2048	pick ! ! ;s lit
6144	2048	2048	2048	pick ! ! ;s
6144	2048	2048	2048	lit pick col: dup @ lit
6144	2048	2048	2048	lit pick col: dup @
6144	2048	2048	2048	lit pick col: dup
6144	2048	2048	2048	lit pick + (loop)
6144	2048	2048	2048	lit pick +
6144	2048	2048	2048	lit pick ! ! ;s lit
6144	2048	2048	2048	lit pick ! ! ;s
6144	2048	2048	2048	dup lit pick col: dup @
6144	2048	2048	2048	dup lit pick col: dup
6144	2048	2048	2048	dup lit pick col:
6144	2048	2048	2048	dup lit pick
6144	2048	2048	2048	col: dup @ lit pick !
6144	2048	2048	2048	col: dup @ lit pick
6144	2048	2048	2048	col: dup @ lit
6144	2048	2048	2048	@ lit pick ! ! ;s
6144	2048	2048	2048	;s lit pick + (loop)
6144	2048	2048	2048	;s lit pick +
6144	2048	2048	2048	+ (loop)
6144	2048	2048	2048	! ;s lit pick + (loop)
6144	2048	2048	2048	! ;s lit pick +
6144	2048	2048	2048	! ;s lit pick
6144	2048	2048	2048	! ! ;s lit pick +
6144	2048	2048	2048	! ! ;s lit pick
6144	2048	2048	2048	! ! ;s lit
6144	2048	2048	2048	! ! ;s
6142	6045	45	52	@ ;s ;s con:
6138	6133	0	5	;s ;s con: col:
6138	2046	2046	2046	pick + (loop) dup lit pick
6138	2046	2046	2046	pick + (loop) dup lit
6138	2046	2046	2046	pick + (loop) dup
6138	2046	2046	2046	lit pick + (loop) dup lit
6138	2046	2046	2046	lit pick + (loop) dup
6138	2046	2046	2046	;s lit pick + (loop) dup
6138	2046	2046	2046	+ (loop) dup lit pick col:
6138	2046	2046	2046	+ (loop) dup lit pick
6138	2046	2046	2046	+ (loop) dup lit
6138	2046	2046	2046	+ (loop) dup
6138	2046	2046	2046	(loop) dup lit pick col: dup
6138	2046	2046	2046	(loop) dup lit pick col:
6138	2046	2046	2046	(loop) dup lit pick
6138	2046	2046	2046	(loop) dup lit
6134	3878	617	1639	;s var: @ col:
6120	2148	2083	1889	;s 2drop ;s
6103	6013	32	58	;s ;s ;s ;s ;s ;s
6099	6099	0	0	c! ;s ;s (loop) i c@
6099	6099	0	0	c! ;s ;s (loop) i
6099	6099	0	0	;s c! ;s ;s (loop) i
6099	6099	0	0	;s ;s (loop) i c@ col:
6099	6099	0	0	;s ;s (loop) i c@
6099	6099	0	0	;s ;s (loop) i
6099	6099	0	0	;s (loop) i c@ col: col:
6099	6099	0	0	;s (loop) i c@ col:
6099	6099	0	0	;s (loop) i c@
6099	6099	0	0	(loop) i c@ col: col: col:
6099	6099	0	0	(loop) i c@ col: col:
6099	6099	0	0	(loop) i c@ col:
6099	6099	0	0	(loop) i c@
6096	1671	2284	2141	;s col: col: r> r> dup
6096	1671	2284	2141	;s col: col: r> r>
6048	6048	0	0	unloop 2drop ;s ;s ;s ;s
6048	6048	0	0	2drop ;s ;s ;s ;s
6035	1720	1775	2540	lit lit
6013	6013	0	0	var: @ ;s ;s con:
6013	6013	0	0	col: var: @ ;s ;s con:
6011	6011	0	0	var: @ ;s ;s con: col:
6011	6011	0	0	con: col: var: +! ;s col:
6011	6011	0	0	con: col: var: +! ;s
6011	6011	0	0	con: col: var: +!
6011	6011	0	0	con: col: var:
6011	6011	0	0	@ ;s ;s con: col: var:
6011	6011	0	0	@ ;s ;s con: col:
6011	6011	0	0	;s con: col: var: +! ;s
6011	6011	0	0	;s con: col: var: +!
6011	6011	0	0	;s con: col: var:
6011	6011	0	0	;s ;s con: col: var: +!
6011	6011	0	0	;s ;s con: col: var:
6000	6000	0	0	cell+ @
5998	4840	321	837	@ 0= ?branch
5975	4750	939	286	drop branch lit
5969	4748	937	284	dup ?branch drop branch lit (+loop)
5969	4748	937	284	dup ?branch drop branch lit
5969	4748	937	284	dup ?branch drop branch
5969	4748	937	284	drop branch lit (+loop)
5969	4748	937	284	branch lit (+loop)
5969	4748	937	284	?branch drop branch lit (+loop)
5969	4748	937	284	?branch drop branch lit
5969	4748	937	284	;s dup ?branch drop branch lit
5969	4748	937	284	;s dup ?branch drop branch
5969	4748	937	284	;s ;s dup ?branch drop branch
5967	940	2867	2160	(+loop) unloop
5938	0	0	5938	@ r@
5936	0	0	5936	r@ execute
5935	3100	1105	1730	;s xor
5908	2031	1920	1957	lit col: lit
5897	5897	0	0	user: @ con: col: col: defer:
5897	5897	0	0	user: @ con: col: col:
5897	5897	0	0	user: @ con: col:
5897	5897	0	0	user: @ con:
5897	5897	0	0	@ con: col: col: defer: col:
5897	5897	0	0	@ con: col: col: defer:
5897	5897	0	0	@ con: col: col:
5897	5897	0	0	@ con: col:
5894	2889	1750	1255	dup ?branch lit
5894	17	0	5877	swap cell+
5886	2889	1746	1251	lit and ?branch nip nip execute
5886	2889	1746	1251	lit and ?branch nip nip
5886	2889	1746	1251	lit and ?branch nip
5886	2889	1746	1251	dup ?branch lit and ?branch nip
5886	2889	1746	1251	dup ?branch lit and ?branch
5886	2889	1746	1251	dup ?branch lit and
5886	2889	1746	1251	and ?branch nip nip execute
5886	2889	1746	1251	and ?branch nip nip
5886	2889	1746	1251	and ?branch nip
5886	2889	1746	1251	?branch lit and ?branch nip nip
5886	2889	1746	1251	?branch lit and ?branch nip
5886	2889	1746	1251	?branch lit and ?branch
5886	2889	1746	1251	?branch lit and
5886	2889	1746	1251	;s dup ?branch lit and ?branch
5886	2889	1746	1251	;s dup ?branch lit and
5886	2889	1746	1251	;s dup ?branch lit
5886	2889	1746	1251	;s ;s dup ?branch lit and
5886	2889	1746	1251	;s ;s dup ?branch lit
5886	2889	1746	1251	;s ;s ;s dup ?branch lit
5877	0	0	5877	swap r> (loop)
5877	0	0	5877	swap cell+ swap r> (loop)
5877	0	0	5877	swap cell+ swap r>
5877	0	0	5877	swap cell+ swap
5877	0	0	5877	r> (loop)
5877	0	0	5877	over @ r@ execute
5877	0	0	5877	over @ r@
5877	0	0	5877	over @ over @ r@ execute
5877	0	0	5877	over @ over @ r@
5877	0	0	5877	over @ over @
5877	0	0	5877	over @ over
5877	0	0	5877	cell+ swap r> (loop)
5877	0	0	5877	cell+ swap r>
5877	0	0	5877	cell+ swap cell+ swap r> (loop)
5877	0	0	5877	cell+ swap cell+ swap r>
5877	0	0	5877	cell+ swap cell+ swap
5877	0	0	5877	cell+ swap cell+
5877	0	0	5877	@ r@ execute
5877	0	0	5877	@ over @ r@ execute
5877	0	0	5877	@ over @ r@
5877	0	0	5877	@ over @
5877	0	0	5877	>r over @ over @ r@
5877	0	0	5877	>r over @ over @
5877	0	0	5877	>r over @ over
5877	0	0	5877	>r over @
5860	7	28	5825	;s +
5859	1556	59	4244	var: 2@
5856	5695	0	161	;s ;s col: col: col: var:
5788	5788	0	0	col: cell+ ;s
5753	4676	865	212	(hashfind) ;s ;s dup ?branch drop
5716	22	579	5115	cr
5708	0	5708	0	lp+!# ;s ?branch
5708	0	5708	0	drop con: lp+!# ;s ?branch
5708	0	5708	0	drop con: lp+!# ;s
5708	0	5708	0	drop con: lp+!#
5708	0	5708	0	con: lp+!# ;s ?branch
5708	0	5708	0	con: lp+!# ;s
5708	0	5708	0	con: lp+!#
5708	0	5708	0	?branch drop con: lp+!# ;s ?branch
5708	0	5708	0	?branch drop con: lp+!# ;s
5708	0	5708	0	?branch drop con: lp+!#
5698	3170	1013	1515	var: ! ;s
5698	0	3574	2124	does: @ + @ ;s
5698	0	3574	2124	does: @ + @
5698	0	3574	2124	@ + @ ;s
5676	2008	1936	1732	0> ?branch col:
5650	0	5650	0	@local0 @local1
5638	2444	1140	2054	col: col: user: @ ?dup ;s
5638	2444	1140	2054	col: col: user: @ ?dup
5631	1901	1110	2620	r> var:
5612	0	5612	0	;s ?branch @local1
5605	2450	1130	2025	user: ! lit col:
5603	5603	0	0	write-file col: ?dup ?branch ;s
5603	5603	0	0	write-file col: ?dup ?branch
5603	5603	0	0	write-file col: ?dup
5603	5603	0	0	write-file col:
5600	5600	0	0	con: write-file col: ?dup ?branch ;s
5600	5600	0	0	con: write-file col: ?dup ?branch
5600	5600	0	0	con: write-file col: ?dup
5600	5600	0	0	con: write-file col:
5600	5600	0	0	con: write-file
5569	1904	1894	1771	?branch col: col: col:
5549	5114	310	125	?branch user:
5542	0	5542	0	@local0 @local1 col:
5539	2651	1130	1758	;s tuck
5536	0	5536	0	@local0 @local1 col: >l >l
5536	0	5536	0	@local0 @local1 col: >l
5514	2378	1117	2019	user: ! lit col: col: col:
5514	2378	1117	2019	user: ! lit col: col:
5514	2378	1117	2019	! lit col: col: col: user:
5514	2378	1117	2019	! lit col: col: col:
5514	2378	1117	2019	! lit col: col:
5509	1908	1894	1707	dup ?branch 0> ?branch col:
5509	1908	1894	1707	?branch 0> ?branch col:
5509	1908	1894	1707	;s dup ?branch 0> ?branch col:
5495	0	5495	0	@local1 branch
5495	0	5495	0	?branch @local1 branch
5489	0	0	5489	0= 0= ?branch
5457	1727	1895	1835	;s ;s 2drop
5427	4379	1026	22	var: dup @ cells + ;s
5427	4379	1026	22	var: dup @ cells +
5427	4379	1026	22	var: dup @ cells
5427	4379	1026	22	dup @ cells + ;s
5427	4379	1026	22	dup @ cells +
5427	4379	1026	22	dup @ cells
5427	4379	1026	22	col: var: dup @ cells +
5427	4379	1026	22	col: var: dup @ cells
5427	4379	1026	22	col: var: dup @
5427	4379	1026	22	col: var: dup
5427	4379	1026	22	@ cells + ;s
5427	4379	1026	22	@ cells +
5427	4379	1026	22	@ cells
5403	2	573	4828	;s cr
5391	1967	1783	1641	;s 2drop ;s branch
5376	972	3282	1122	col: @ (f83find) ;s
5376	972	3282	1122	col: @ (f83find)
5376	972	3282	1122	@ (f83find) ;s
5376	972	3282	1122	@ (f83find)
5376	972	3282	1122	(f83find) ;s
5376	972	3282	1122	(f83find)
5371	2240	1110	2021	cell+ !
5336	0	5336	0	@local#
5329	1895	1105	2329	r> var: @
5319	5013	0	306	c@ 0=
5306	2614	1255	1437	@ ;s user: !
5275	4834	316	125	user: @ 0= ?branch
5275	4834	316	125	;s user: @ 0= ?branch
5275	4834	316	125	;s user: @ 0=
5274	2195	2572	507	2drop col:
5260	4228	738	294	um*
5258	2321	1177	1760	! r>
5255	0	5255	0	;s @local1
5252	0	0	5252	r@ execute col:
5248	2405	844	1999	! branch
5230	1921	1197	2112	>r var:
5224	0	0	5224	swap r> (loop) >r over @
5224	0	0	5224	swap r> (loop) >r over
5224	0	0	5224	swap r> (loop) >r
5224	0	0	5224	swap cell+ swap r> (loop) >r
5224	0	0	5224	r> (loop) >r over @ over
5224	0	0	5224	r> (loop) >r over @
5224	0	0	5224	r> (loop) >r over
5224	0	0	5224	r> (loop) >r
5224	0	0	5224	cell+ swap r> (loop) >r over
5224	0	0	5224	cell+ swap r> (loop) >r
5224	0	0	5224	(loop) >r over @ over @
5224	0	0	5224	(loop) >r over @ over
5224	0	0	5224	(loop) >r over @
5224	0	0	5224	(loop) >r over
5224	0	0	5224	(loop) >r
5206	2556	1564	1086	and ?branch nip nip execute col:
5204	1652	1783	1769	;s ;s ;s 2drop ;s
5204	1652	1783	1769	;s ;s ;s 2drop
5204	1652	1783	1769	;s ;s 2drop ;s
5202	3043	1431	728	user: col: con: swap ! ;s
5202	3043	1431	728	user: col: con: swap !
5202	3043	1431	728	user: col: con: swap
5202	3043	1431	728	user: col: con:
5202	3043	1431	728	user: col:
5193	0	0	5193	over @ r@ execute col:
5193	0	0	5193	@ r@ execute col:
5193	0	0	5193	@ over @ r@ execute col:
5186	2556	1727	903	;s ;s ;s branch col:
5177	2424	570	2183	@ execute col: col:
5176	5004	172	0	@ swap col:
5166	0	0	5166	xor and ;s 0= 0= ?branch
5166	0	0	5166	xor and ;s 0= 0=
5166	0	0	5166	xor and ;s 0=
5166	0	0	5166	xor and ;s
5166	0	0	5166	xor and
5166	0	0	5166	r@ execute col: lit xor and
5166	0	0	5166	r@ execute col: lit xor
5166	0	0	5166	r@ execute col: lit
5166	0	0	5166	over @ r@ execute col: lit
5166	0	0	5166	lit xor and ;s 0= 0=
5166	0	0	5166	lit xor and ;s 0=
5166	0	0	5166	lit xor and ;s
5166	0	0	5166	lit xor and
5166	0	0	5166	lit xor
5166	0	0	5166	execute col: lit xor and ;s
5166	0	0	5166	execute col: lit xor and
5166	0	0	5166	execute col: lit xor
5166	0	0	5166	col: lit xor and ;s 0=
5166	0	0	5166	col: lit xor and ;s
5166	0	0	5166	col: lit xor and
5166	0	0	5166	col: lit xor
5166	0	0	5166	and ;s 0= 0= ?branch
5166	0	0	5166	and ;s 0= 0=
5166	0	0	5166	and ;s 0=
5166	0	0	5166	@ r@ execute col: lit xor
5166	0	0	5166	@ r@ execute col: lit
5166	0	0	5166	;s 0= 0= ?branch
5166	0	0	5166	;s 0= 0=
5165	4169	5	991	(hashfind) ;s ;s dup ?branch col:
5164	0	5164	0	@ @local1
5159	5013	0	146	c@ 0= ?branch
5140	1689	1789	1662	?branch col: col: col: col:
5122	1671	1789	1662	0> ?branch col: col: col:
5122	1671	1789	1662	0> ?branch col: col:
5120	1669	1789	1662	?branch col: col: col: col: user:
5120	1669	1789	1662	0> ?branch col: col: col: col:
5108	5104	0	4	col: dup count
5106	1336	2333	1437	negate ;s ;s ;s
5106	1336	2333	1437	and ?branch negate ;s ;s ;s
5106	1336	2333	1437	?branch negate ;s ;s ;s
5102	5102	0	0	lit col: col: dup field: @
5102	5102	0	0	lit col: col: dup field:
5102	5102	0	0	lit col: col: dup
5102	5102	0	0	dup count lit col: col: dup
5102	5102	0	0	dup count lit col: col:
5102	5102	0	0	dup count lit col:
5102	5102	0	0	dup count lit
5102	5102	0	0	count lit col: col: dup field:
5102	5102	0	0	count lit col: col: dup
5102	5102	0	0	count lit col: col:
5102	5102	0	0	count lit col:
5102	5102	0	0	col: dup count lit col: col:
5102	5102	0	0	col: dup count lit col:
5102	5102	0	0	col: dup count lit
5097	1334	2327	1436	negate ;s ;s ;s dup
5097	1334	2327	1436	?branch negate ;s ;s ;s dup
5086	2556	1723	807	;s ;s ;s branch col: sp@
5086	1659	1783	1644	2drop ;s branch col: sp@ user:
5086	1659	1783	1644	2drop ;s branch col: sp@
5076	1652	1783	1641	dup ?branch 0> ?branch col: col:
5076	1652	1783	1641	?branch 0> ?branch col: col: col:
5076	1652	1783	1641	?branch 0> ?branch col: col:
5076	1652	1783	1641	;s ;s ;s 2drop ;s branch
5076	1652	1783	1641	;s ;s 2drop ;s branch col:
5076	1652	1783	1641	;s ;s 2drop ;s branch
5076	1652	1783	1641	;s 2drop ;s branch col: sp@
5076	1652	1783	1641	;s 2drop ;s branch col:
5076	1652	1783	1641	;s ! ;s ;s ;s 2drop
5076	1652	1783	1641	! ;s ;s ;s 2drop ;s
5076	1652	1783	1641	! ;s ;s ;s 2drop
5064	5041	17	6	var: +
5057	880	3282	895	field: @ execute col: @ (f83find)
5057	880	3282	895	field: @ execute col: @
5057	880	3282	895	execute col: @ (f83find) ;s ;s
5057	880	3282	895	execute col: @ (f83find) ;s
5057	880	3282	895	execute col: @ (f83find)
5057	880	3282	895	execute col: @
5057	880	3282	895	col: @ (f83find) ;s ;s
5057	880	3282	895	@ field: @ execute col: @
5057	880	3282	895	@ execute col: @ (f83find) ;s
5057	880	3282	895	@ execute col: @ (f83find)
5057	880	3282	895	@ execute col: @
5057	880	3282	895	@ (f83find) ;s ;s
5057	880	3282	895	(f83find) ;s ;s
5057	2268	851	1938	?branch dup @
5053	1317	2321	1415	negate ;s ;s ;s dup ?branch
5047	3249	543	1255	;s (loop) unloop ;s
5047	3249	543	1255	(loop) unloop ;s
5032	1901	1110	2021	over cell+
5030	2766	562	1702	unloop ;s col:
5029	4987	0	42	@ ;s ;s col: var:
5027	4593	309	125	?branch user: @
5022	2723	1268	1031	dup 0= col: col:
5022	2723	1268	1031	dup 0= col:
5013	5013	0	0	dup c@ 0= ?branch
5013	5013	0	0	dup c@ 0=
5013	5013	0	0	@ ;s @ ;s ;s dup
5013	5013	0	0	@ ;s ;s dup c@ 0=
5013	5013	0	0	@ ;s ;s dup c@
5013	5013	0	0	@ ;s ;s dup
5013	5013	0	0	;s dup c@ 0= ?branch
5013	5013	0	0	;s dup c@ 0=
5013	5013	0	0	;s dup c@
5013	5013	0	0	;s @ ;s ;s dup c@
5013	5013	0	0	;s @ ;s ;s dup
5013	5013	0	0	;s ;s dup c@ 0= ?branch
5013	5013	0	0	;s ;s dup c@ 0=
5013	5013	0	0	;s ;s dup c@
5009	5004	0	5	;s col: col: lit
5009	4175	656	178	drop branch lit (+loop) 2dup i
5009	4175	656	178	drop branch lit (+loop) 2dup
5009	4175	656	178	branch lit (+loop) 2dup i 2@
5009	4175	656	178	branch lit (+loop) 2dup i
5009	4175	656	178	branch lit (+loop) 2dup
5009	4175	656	178	?branch drop branch lit (+loop) 2dup
5007	994	3353	660	;s dup col:
5006	5006	0	0	rshift
5006	5006	0	0	con: rshift
5005	2689	1143	1173	dup user:
5004	5004	0	0	var: @ swap col: con: rshift
5004	5004	0	0	var: @ swap col: con:
5004	5004	0	0	var: @ swap col:
5004	5004	0	0	var: @ swap
5004	5004	0	0	var: + c@ ;s ;s
5004	5004	0	0	var: + c@ ;s
5004	5004	0	0	var: + c@
5004	5004	0	0	swap col: var: + c@ ;s
5004	5004	0	0	swap col: var: + c@
5004	5004	0	0	swap col: var: +
5004	5004	0	0	swap col: var:
5004	5004	0	0	swap col: con: rshift ;s col:
5004	5004	0	0	swap col: con: rshift ;s
5004	5004	0	0	swap col: con: rshift
5004	5004	0	0	rshift ;s col: col: lit /mod
5004	5004	0	0	rshift ;s col: col: lit
5004	5004	0	0	rshift ;s col: col:
5004	5004	0	0	rshift ;s col:
5004	5004	0	0	rshift ;s
5004	5004	0	0	rot + swap col: var: +
5004	5004	0	0	rot + swap col: var:
5004	5004	0	0	rot + swap col:
5004	5004	0	0	lit /mod rot + swap col:
5004	5004	0	0	con: rshift ;s col: col: lit
5004	5004	0	0	con: rshift ;s col: col:
5004	5004	0	0	con: rshift ;s col:
5004	5004	0	0	con: rshift ;s
5004	5004	0	0	col: var: @ swap col: con:
5004	5004	0	0	col: var: @ swap col:
5004	5004	0	0	col: var: @ swap
5004	5004	0	0	col: var: + c@ ;s ;s
5004	5004	0	0	col: var: + c@ ;s
5004	5004	0	0	col: var: + c@
5004	5004	0	0	col: var: +
5004	5004	0	0	col: con: rshift ;s col: col:
5004	5004	0	0	col: con: rshift ;s col:
5004	5004	0	0	col: con: rshift ;s
5004	5004	0	0	col: con: rshift
5004	5004	0	0	@ swap col: con: rshift ;s
5004	5004	0	0	@ swap col: con: rshift
5004	5004	0	0	@ swap col: con:
5004	5004	0	0	;s col: col: lit /mod rot
5004	5004	0	0	;s col: col: lit /mod
5004	5004	0	0	/mod rot + swap col: var:
5004	5004	0	0	/mod rot + swap col:
5004	5004	0	0	+ swap col: var: + c@
5004	5004	0	0	+ swap col: var: +
5004	5004	0	0	+ swap col: var:
5004	5004	0	0	+ swap col:
5001	5001	0	0	var: + c@ ;s ;s over
5001	5001	0	0	or swap c! ;s ;s col:
4987	4987	0	0	var: @ ;s ;s col: var:
4987	4987	0	0	c! ;s ;s col: col: col:
4987	4987	0	0	@ ;s ;s col: var: @
4987	4987	0	0	;s col: var: @ swap col:
4987	4987	0	0	;s col: var: @ swap
4987	4987	0	0	;s ;s col: var: @ swap
4970	4970	0	0	col: cell+ ;s @
4913	1	349	4563	defer: (type) ;s cr
4913	1	349	4563	count defer: (type) ;s cr
4913	1	349	4563	;s count defer: (type) ;s cr
4913	1	349	4563	(type) ;s cr
4907	4473	309	125	user: @ 0= ?branch user: @
4907	4473	309	125	user: @ 0= ?branch user:
4907	4473	309	125	@ 0= ?branch user: @
4907	4473	309	125	@ 0= ?branch user:
4907	4473	309	125	;s user: @ 0= ?branch user:
4907	4473	309	125	0= ?branch user: @
4907	4473	309	125	0= ?branch user:
4900	1910	561	2429	swap dup
4886	1794	1546	1546	;s ;s col: lit
4877	0	4877	0	>l @local0 @local1
4877	0	4877	0	>l >l @local0 @local1
4876	3200	382	1294	var: count
4867	0	4867	0	col: >l >l @local0 @local1
4865	2206	884	1775	;s ;s var: @
4860	0	0	4860	r@ does: @ + ;s
4860	0	0	4860	r@ does: @ +
4860	0	0	4860	r@ does: @
4860	0	0	4860	r@ does:
4845	4845	0	0	dup ?branch 2dup cell+ @ =
4845	4845	0	0	dup ?branch 2dup cell+ @
4845	4845	0	0	dup ?branch 2dup cell+
4845	4845	0	0	cell+ @ = ?branch
4845	4845	0	0	cell+ @ =
4845	4845	0	0	@ dup ?branch 2dup cell+ @
4845	4845	0	0	@ dup ?branch 2dup cell+
4845	4845	0	0	?branch 2dup cell+ @ = ?branch
4845	4845	0	0	?branch 2dup cell+ @ =
4845	4845	0	0	?branch 2dup cell+ @
4845	4845	0	0	?branch 2dup cell+
4845	4845	0	0	2dup cell+ @ = ?branch
4845	4845	0	0	2dup cell+ @ =
4845	4845	0	0	2dup cell+ @
4845	4845	0	0	2dup cell+
4841	2501	1327	1013	?branch r> lit and ?branch negate
4828	4828	0	0	cell+ @ = ?branch @ dup
4828	4828	0	0	cell+ @ = ?branch @
4828	4828	0	0	@ = ?branch @ dup ?branch
4828	4828	0	0	@ = ?branch @ dup
4828	4828	0	0	@ = ?branch @
4828	4828	0	0	?branch @ dup ?branch 2dup cell+
4828	4828	0	0	?branch @ dup ?branch 2dup
4828	4828	0	0	?branch @ dup ?branch
4828	4828	0	0	?branch @ dup
4828	4828	0	0	= ?branch @ dup ?branch 2dup
4828	4828	0	0	= ?branch @ dup ?branch
4828	4828	0	0	= ?branch @ dup
4828	4828	0	0	= ?branch @
4828	4828	0	0	2dup cell+ @ = ?branch @
4812	1910	1156	1746	+ dup
4811	1976	1105	1730	rot !
4806	0	4806	0	@local0 @local1 col: >l >l @local0
4787	1895	1127	1765	;s r> ;s
4783	0	4783	0	>l @local0 @local1 col:
4783	0	4783	0	>l >l @local0 @local1 col:
4778	1908	1121	1749	>r drop
4777	0	4777	0	lp- @local1 ?branch drop
4777	0	4777	0	lp+!# ;s ?branch @local1
4777	0	4777	0	drop con: lp+!# ;s ?branch @local1
4777	0	4777	0	con: lp+!# ;s ?branch @local1
4777	0	4777	0	col: >l >l @local0 @local1 col:
4777	0	4777	0	@local1 ?branch drop
4777	0	4777	0	>l lp- @local1 ?branch drop
4777	0	4777	0	>l @local0 @local1 col: >l >l
4777	0	4777	0	>l @local0 @local1 col: >l
4777	0	4777	0	>l >l @local0 @local1 col: >l
4777	0	4777	0	;s >l lp- @local1 ?branch drop
4754	2455	1268	1031	dup 0= col: col: r> r>
4754	2455	1268	1031	dup 0= col: col: r>
4751	1897	1122	1732	@ ?dup 0= ?branch
4751	1897	1122	1732	@ ?dup 0=
4751	1897	1122	1732	?dup 0= ?branch
4751	1897	1122	1732	?dup 0=
4746	1896	1120	1730	var: lit
4743	1934	820	1989	c! ;s col:
4737	2656	936	1145	u>
4736	1897	1107	1732	pick @ ?dup 0= ?branch
4736	1897	1107	1732	pick @ ?dup 0=
4736	1897	1107	1732	pick @ ?dup
4736	1897	1107	1732	pick @
4736	1897	1107	1732	lit pick @ ?dup 0= ?branch
4736	1897	1107	1732	lit pick @ ?dup 0=
4736	1897	1107	1732	lit pick @ ?dup
4736	1897	1107	1732	lit pick @
4735	1898	1106	1731	lit fill ;s
4735	1898	1106	1731	lit fill
4735	1898	1106	1731	fill ;s
4735	1898	1106	1731	fill
4735	1898	1106	1731	col: lit fill ;s
4735	1898	1106	1731	col: lit fill
4735	0	4735	0	;s lp+ ;s
4733	2421	955	1357	col: ?dup ?branch ;s ;s
4733	2421	955	1357	?dup ?branch ;s ;s
4733	1896	1106	1731	lit + dup
4732	1897	1105	1730	swap col: lit fill ;s
4732	1897	1105	1730	swap col: lit fill
4731	1896	1105	1730	>r var: lit
4730	1895	1105	1730	xor cells >r var: lit cells
4730	1895	1105	1730	xor cells >r var: lit
4730	1895	1105	1730	xor cells >r var:
4730	1895	1105	1730	xor cells >r
4730	1895	1105	1730	var: lit cells lit col: lit
4730	1895	1105	1730	var: lit cells lit col:
4730	1895	1105	1730	var: lit cells lit
4730	1895	1105	1730	var: lit cells
4730	1895	1105	1730	var: @ + var: @ ?branch
4730	1895	1105	1730	var: @ + var: @
4730	1895	1105	1730	var: @ + var:
4730	1895	1105	1730	tuck cell+ ! r> var: @
4730	1895	1105	1730	tuck cell+ ! r> var:
4730	1895	1105	1730	tuck cell+ ! r>
4730	1895	1105	1730	tuck cell+ !
4730	1895	1105	1730	tuck cell+
4730	1895	1105	1730	swap col: lit fill ;s r>
4730	1895	1105	1730	rot ! r@ swap col: lit
4730	1895	1105	1730	rot ! r@ swap col:
4730	1895	1105	1730	rot ! r@ swap
4730	1895	1105	1730	rot ! r@
4730	1895	1105	1730	r@ swap col: lit fill ;s
4730	1895	1105	1730	r@ swap col: lit fill
4730	1895	1105	1730	r@ swap col: lit
4730	1895	1105	1730	r@ swap col:
4730	1895	1105	1730	r@ swap
4730	1895	1105	1730	r@ @ rot ! r@ swap
4730	1895	1105	1730	r@ @ rot ! r@
4730	1895	1105	1730	r@ @ rot !
4730	1895	1105	1730	r@ @ rot
4730	1895	1105	1730	r@ @
4730	1895	1105	1730	r> var: @ + var: @
4730	1895	1105	1730	r> var: @ + var:
4730	1895	1105	1730	r> var: @ +
4730	1895	1105	1730	r> ;s tuck cell+ ! r>
4730	1895	1105	1730	r> ;s tuck cell+ !
4730	1895	1105	1730	r> ;s tuck cell+
4730	1895	1105	1730	r> ;s tuck
4730	1895	1105	1730	pick @ ?dup 0= ?branch >r
4730	1895	1105	1730	over cell+ count lit and col:
4730	1895	1105	1730	over cell+ count lit and
4730	1895	1105	1730	over cell+ count lit
4730	1895	1105	1730	over cell+ count
4730	1895	1105	1730	lit fill ;s r> ;s tuck
4730	1895	1105	1730	lit fill ;s r> ;s
4730	1895	1105	1730	lit fill ;s r>
4730	1895	1105	1730	lit col: lit pick @ ?dup
4730	1895	1105	1730	lit col: lit pick @
4730	1895	1105	1730	lit col: lit pick
4730	1895	1105	1730	lit cells lit col: lit pick
4730	1895	1105	1730	lit cells lit col: lit
4730	1895	1105	1730	lit cells lit col:
4730	1895	1105	1730	lit cells lit
4730	1895	1105	1730	lit and col: con: (hashkey1) ;s
4730	1895	1105	1730	lit and col: con: (hashkey1)
4730	1895	1105	1730	lit and col: con:
4730	1895	1105	1730	lit + dup @ 0< ?branch
4730	1895	1105	1730	lit + dup @ 0<
4730	1895	1105	1730	lit + dup @
4730	1895	1105	1730	fill ;s r> ;s tuck cell+
4730	1895	1105	1730	fill ;s r> ;s tuck
4730	1895	1105	1730	fill ;s r> ;s
4730	1895	1105	1730	fill ;s r>
4730	1895	1105	1730	dup @ 0< ?branch @ over
4730	1895	1105	1730	dup @ 0< ?branch @
4730	1895	1105	1730	drop r@ @ rot ! r@
4730	1895	1105	1730	drop r@ @ rot !
4730	1895	1105	1730	drop r@ @ rot
4730	1895	1105	1730	drop r@ @
4730	1895	1105	1730	drop r@
4730	1895	1105	1730	count lit and col: con: (hashkey1)
4730	1895	1105	1730	count lit and col: con:
4730	1895	1105	1730	count lit and col:
4730	1895	1105	1730	con: (hashkey1) ;s xor cells >r
4730	1895	1105	1730	con: (hashkey1) ;s xor cells
4730	1895	1105	1730	con: (hashkey1) ;s xor
4730	1895	1105	1730	col: lit pick @ ?dup 0=
4730	1895	1105	1730	col: lit pick @ ?dup
4730	1895	1105	1730	col: lit pick @
4730	1895	1105	1730	col: lit pick
4730	1895	1105	1730	col: lit fill ;s r> ;s
4730	1895	1105	1730	col: lit fill ;s r>
4730	1895	1105	1730	col: lit + dup @ 0<
4730	1895	1105	1730	col: lit + dup @
4730	1895	1105	1730	col: lit + dup
4730	1895	1105	1730	col: con: (hashkey1) ;s xor cells
4730	1895	1105	1730	col: con: (hashkey1) ;s xor
4730	1895	1105	1730	cells lit col: lit pick @
4730	1895	1105	1730	cells lit col: lit pick
4730	1895	1105	1730	cells lit col: lit
4730	1895	1105	1730	cells lit col:
4730	1895	1105	1730	cells lit
4730	1895	1105	1730	cells >r var: lit cells lit
4730	1895	1105	1730	cells >r var: lit cells
4730	1895	1105	1730	cells >r var: lit
4730	1895	1105	1730	cells >r var:
4730	1895	1105	1730	cells >r
4730	1895	1105	1730	cell+ count lit and col: con:
4730	1895	1105	1730	cell+ count lit and col:
4730	1895	1105	1730	cell+ ! r> var: @ +
4730	1895	1105	1730	cell+ ! r> var: @
4730	1895	1105	1730	cell+ ! r> var:
4730	1895	1105	1730	cell+ ! r>
4730	1895	1105	1730	and col: con: (hashkey1) ;s xor
4730	1895	1105	1730	and col: con: (hashkey1) ;s
4730	1895	1105	1730	and col: con: (hashkey1)
4730	1895	1105	1730	and col: con:
4730	1895	1105	1730	@ rot ! r@ swap col:
4730	1895	1105	1730	@ rot ! r@ swap
4730	1895	1105	1730	@ rot ! r@
4730	1895	1105	1730	@ rot !
4730	1895	1105	1730	@ rot
4730	1895	1105	1730	@ over cell+ count lit and
4730	1895	1105	1730	@ over cell+ count lit
4730	1895	1105	1730	@ over cell+ count
4730	1895	1105	1730	@ over cell+
4730	1895	1105	1730	@ ?dup 0= ?branch >r drop
4730	1895	1105	1730	@ ?dup 0= ?branch >r
4730	1895	1105	1730	@ 0< ?branch @ over cell+
4730	1895	1105	1730	@ 0< ?branch @ over
4730	1895	1105	1730	@ 0< ?branch @
4730	1895	1105	1730	@ + var: @ ?branch
4730	1895	1105	1730	@ + var: @
4730	1895	1105	1730	@ + var:
4730	1895	1105	1730	?dup 0= ?branch >r drop r@
4730	1895	1105	1730	?dup 0= ?branch >r drop
4730	1895	1105	1730	?dup 0= ?branch >r
4730	1895	1105	1730	?branch @ over cell+ count lit
4730	1895	1105	1730	?branch @ over cell+ count
4730	1895	1105	1730	?branch @ over cell+
4730	1895	1105	1730	?branch @ over
4730	1895	1105	1730	?branch >r drop r@ @ rot
4730	1895	1105	1730	?branch >r drop r@ @
4730	1895	1105	1730	?branch >r drop r@
4730	1895	1105	1730	?branch >r drop
4730	1895	1105	1730	>r var: lit cells lit col:
4730	1895	1105	1730	>r var: lit cells lit
4730	1895	1105	1730	>r var: lit cells
4730	1895	1105	1730	>r drop r@ @ rot !
4730	1895	1105	1730	>r drop r@ @ rot
4730	1895	1105	1730	>r drop r@ @
4730	1895	1105	1730	>r drop r@
4730	1895	1105	1730	;s xor cells >r var: lit
4730	1895	1105	1730	;s xor cells >r var:
4730	1895	1105	1730	;s xor cells >r
4730	1895	1105	1730	;s xor cells
4730	1895	1105	1730	;s tuck cell+ ! r> var:
4730	1895	1105	1730	;s tuck cell+ ! r>
4730	1895	1105	1730	;s tuck cell+ !
4730	1895	1105	1730	;s tuck cell+
4730	1895	1105	1730	;s r> ;s tuck cell+ !
4730	1895	1105	1730	;s r> ;s tuck cell+
4730	1895	1105	1730	;s r> ;s tuck
4730	1895	1105	1730	0= ?branch >r drop r@ @
4730	1895	1105	1730	0= ?branch >r drop r@
4730	1895	1105	1730	0= ?branch >r drop
4730	1895	1105	1730	0= ?branch >r
4730	1895	1105	1730	0< ?branch @ over cell+ count
4730	1895	1105	1730	0< ?branch @ over cell+
4730	1895	1105	1730	0< ?branch @ over
4730	1895	1105	1730	0< ?branch @
4730	1895	1105	1730	+ var: @ ?branch
4730	1895	1105	1730	+ var: @
4730	1895	1105	1730	+ var:
4730	1895	1105	1730	+ dup @ 0< ?branch @
4730	1895	1105	1730	+ dup @ 0< ?branch
4730	1895	1105	1730	+ dup @ 0<
4730	1895	1105	1730	+ dup @
4730	1895	1105	1730	(hashkey1) ;s xor cells >r var:
4730	1895	1105	1730	(hashkey1) ;s xor cells >r
4730	1895	1105	1730	(hashkey1) ;s xor cells
4730	1895	1105	1730	(hashkey1) ;s xor
4730	1895	1105	1730	! r@ swap col: lit fill
4730	1895	1105	1730	! r@ swap col: lit
4730	1895	1105	1730	! r@ swap col:
4730	1895	1105	1730	! r@ swap
4730	1895	1105	1730	! r> var: @ + var:
4730	1895	1105	1730	! r> var: @ +
4730	1895	1105	1730	! r> var: @
4730	1895	1105	1730	! r> var:
4728	4034	0	694	0= ?branch col:
4709	4033	0	676	0= ?branch col: col:
4697	2616	936	1145	lit u>
4697	2616	936	1145	dup lit u>
4675	760	0	3915	;s 2@
4675	760	0	3915	+ ;s 2@
4665	2614	936	1115	! ;s var:
4660	824	2997	839	col: @ (f83find) ;s ;s dup
4660	824	2997	839	@ (f83find) ;s ;s dup ?branch
4660	824	2997	839	@ (f83find) ;s ;s dup
4660	824	2997	839	(f83find) ;s ;s dup ?branch
4660	824	2997	839	(f83find) ;s ;s dup
4639	0	4639	0	@local1 field:
4635	2338	945	1352	lit and col: ?dup ?branch ;s
4635	2338	945	1352	lit and col: ?dup ?branch
4635	2338	945	1352	lit and col: ?dup
4635	2338	945	1352	and col: ?dup ?branch ;s
4635	2338	945	1352	and col: ?dup ?branch
4635	2338	945	1352	and col: ?dup
4621	1923	2052	646	;s @ var:
4621	1923	2052	646	+ ;s @ var:
4602	2324	931	1347	and col: ?dup ?branch ;s ;s
4572	4178	386	8	>body
4562	0	4562	0	var: = ?branch
4562	0	4562	0	var: =
4536	3162	575	799	count col:
4519	0	4519	0	lp+ ;s dup ?branch 2drop
4519	0	4519	0	@ lp+ ;s dup ?branch 2drop
4514	2463	316	1735	dup ?branch ;s
4514	2463	316	1735	;s dup ?branch ;s
4502	280	2983	1239	i -
4500	2309	713	1478	(?do) unloop ;s
4417	1690	1114	1613	! ;s ;s ;s ;s col:
4413	1998	1285	1130	user: @ dup
4391	0	4391	0	;s lp+ branch >l
4391	0	4391	0	;s lp+ branch
4362	0	4362	0	;s lp+ branch >l lp- @local1
4362	0	4362	0	;s lp+ branch >l lp-
4360	2769	594	997	lit and ;s
4359	4359	0	0	;s ?dup ?branch
4359	4359	0	0	;s ?dup
4359	119	3933	307	+ ;s @ col:
4331	2773	561	997	col: dup col: col: col:
4307	4057	7	243	col: ;s
4305	1525	1887	893	dup cell+
4281	0	407	3874	does: @ col:
4280	582	2837	861	col: lit col: >r
4239	980	3259	0	! ;s 0=
4238	2663	577	998	! var: @
4235	4235	0	0	@ con: =
4202	4183	14	5	nip r>
4187	2397	540	1250	(?do) con: col: col: col:
4187	2397	540	1250	(?do) con: col: col:
4187	2397	540	1250	(?do) con: col:
4187	2397	540	1250	(?do) con:
4176	600	3470	106	2drop con:
4169	4169	0	0	nip r> ;s
4169	4169	0	0	dup ?branch >r >body nip r>
4169	4169	0	0	dup ?branch >r >body nip
4169	4169	0	0	dup ?branch >r >body
4169	4169	0	0	dup ?branch >r
4169	4169	0	0	?branch >r >body nip r> ;s
4169	4169	0	0	?branch >r >body nip r>
4169	4169	0	0	?branch >r >body nip
4169	4169	0	0	?branch >r >body
4169	4169	0	0	>r >body nip r> ;s
4169	4169	0	0	>r >body nip r>
4169	4169	0	0	>r >body nip
4169	4169	0	0	>r >body
4169	4169	0	0	>body nip r> ;s
4169	4169	0	0	>body nip r>
4169	4169	0	0	>body nip
4169	4169	0	0	;s dup ?branch >r >body nip
4169	4169	0	0	;s dup ?branch >r >body
4169	4169	0	0	;s dup ?branch >r
4169	4169	0	0	;s ;s dup ?branch >r >body
4169	4169	0	0	;s ;s dup ?branch >r
4134	1793	697	1644	execute col: col: col:
4125	176	3301	648	;s dup col: col:
4124	1514	1373	1237	lit col: user: @
4124	1514	1373	1237	lit col: user:
4096	0	4096	0	@ col: >l
4080	0	0	4080	var: col: @ @ ;s ;s
4080	0	0	4080	var: col: @ @ ;s
4080	0	0	4080	var: col: @ @
4080	0	0	4080	var: col: @
4080	0	0	4080	col: var: col: @ @ ;s
4080	0	0	4080	col: var: col: @ @
4080	0	0	4080	col: var: col: @
4080	0	0	4080	col: @ @ ;s ;s
4080	0	0	4080	col: @ @ ;s
4080	0	0	4080	col: @ @
4080	0	0	4080	@ @ ;s ;s
4080	0	0	4080	@ @ ;s
4074	1224	1179	1671	;s cell+
4052	119	3933	0	cells + ;s @ col:
4051	4033	0	18	c@ 0= ?branch col:
4051	0	4051	0	lp- @local1 ?branch drop con: lp+!#
4051	0	4051	0	lp- @local1 ?branch drop con:
4051	0	4051	0	branch lp+ ;s
4051	0	4051	0	branch lp+
4051	0	4051	0	@local1 ?branch drop con: lp+!# ;s
4051	0	4051	0	@local1 ?branch drop con: lp+!#
4051	0	4051	0	@local1 ?branch drop con:
4051	0	4051	0	>l lp- @local1 ?branch drop con:
4033	4033	0	0	dup c@ 0= ?branch col: col:
4033	4033	0	0	dup c@ 0= ?branch col:
4033	4033	0	0	col: col: dup count lit col:
4033	4033	0	0	col: col: dup count lit
4033	4033	0	0	col: col: dup count
4033	4033	0	0	c@ 0= ?branch col: col: dup
4033	4033	0	0	c@ 0= ?branch col: col:
4033	4033	0	0	?branch col: col: dup count lit
4033	4033	0	0	?branch col: col: dup count
4033	4033	0	0	?branch col: col: dup
4033	4033	0	0	;s dup c@ 0= ?branch col:
4033	4033	0	0	0= ?branch col: col: dup count
4033	4033	0	0	0= ?branch col: col: dup
4028	0	4028	0	@ col: >l >l
4020	0	4020	0	@ col: >l >l @local0 @local1
4020	0	4020	0	@ col: >l >l @local0
4006	810	2606	590	con: - dup @
4006	810	2606	590	- dup @
3993	119	0	3874	@ col: var: col:
3986	1923	2052	11	cells + ;s @ var:
3970	2454	758	758	?branch ;s ;s col:
3933	0	3933	0	col: cells + ;s @ col:
3933	0	3933	0	col: cells + ;s @ @local1
3933	0	3933	0	cells + ;s @ col: >l
3933	0	3933	0	cells + ;s @ @local1
3933	0	3933	0	;s @ col: >l >l @local0
3933	0	3933	0	;s @ col: >l >l
3933	0	3933	0	;s @ col: >l
3933	0	3933	0	;s @ @local1
3933	0	3933	0	+ ;s @ col: >l >l
3933	0	3933	0	+ ;s @ col: >l
3933	0	3933	0	+ ;s @ @local1
3923	977	2880	66	;s @ dup
3922	2184	901	837	var: @ ?branch col:
3921	1998	683	1240	rdrop ;s ;s
3919	0	3919	0	dup @local1
3919	0	3919	0	;s dup @local1
3917	382	3210	325	;s col: lit col:
3915	0	0	3915	does: @ + ;s 2@
3915	0	0	3915	@ + ;s 2@
3910	848	2554	508	lit (?do) unloop
3905	1934	629	1342	c! ;s col: col:
3904	0	3904	0	lp+ ;s dup @local1 i col:
3904	0	3904	0	lp+ ;s dup @local1 i
3904	0	3904	0	lp+ ;s dup @local1
3904	0	3904	0	dup @local1 i col: cells +
3904	0	3904	0	dup @local1 i col: cells
3904	0	3904	0	dup @local1 i col:
3904	0	3904	0	dup @local1 i
3904	0	3904	0	col: cells + ;s @ <>
3904	0	3904	0	cells + ;s @ @local1 i
3904	0	3904	0	cells + ;s @ <> ?branch
3904	0	3904	0	cells + ;s @ <>
3904	0	3904	0	@local0 i col: cells + ;s
3904	0	3904	0	@local0 i col: cells +
3904	0	3904	0	@local0 i col: cells
3904	0	3904	0	@local0 i col:
3904	0	3904	0	@local0 i
3904	0	3904	0	@ @local1 i col: cells +
3904	0	3904	0	@ @local1 i col: cells
3904	0	3904	0	@ @local1 i col:
3904	0	3904	0	@ @local1 i
3904	0	3904	0	;s dup @local1 i col: cells
3904	0	3904	0	;s dup @local1 i col:
3904	0	3904	0	;s dup @local1 i
3904	0	3904	0	;s @ @local1 i col: cells
3904	0	3904	0	;s @ @local1 i col:
3904	0	3904	0	;s @ @local1 i
3904	0	3904	0	;s @ <> ?branch
3904	0	3904	0	;s @ <>
3904	0	3904	0	+ ;s @ @local1 i col:
3904	0	3904	0	+ ;s @ @local1 i
3904	0	3904	0	+ ;s @ <> ?branch
3904	0	3904	0	+ ;s @ <>
3899	0	3899	0	branch lp+ ;s dup @local1 i
3899	0	3899	0	branch lp+ ;s dup @local1
3899	0	3899	0	branch lp+ ;s dup
3893	43	91	3759	2!
3892	2860	738	294	user: @ um*
3892	2860	738	294	@ um*
3881	7	0	3874	;s ;s +
3874	0	0	3874	does: @ col: var: col: @
3874	0	0	3874	does: @ col: var: col:
3874	0	0	3874	does: @ col: var:
3874	0	0	3874	col: @ @ ;s ;s +
3874	0	0	3874	@ col: var: col: @ @
3874	0	0	3874	@ col: var: col: @
3874	0	0	3874	@ @ ;s ;s +
3874	0	0	3874	@ ;s ;s +
3872	97	0	3775	?branch cell+
3870	563	1536	1771	lit !
3868	1856	573	1439	;s ;s lit col: col:
3856	3230	403	223	;s user: @ ;s user: @
3854	2794	712	348	r> ?branch
3846	0	3846	0	lp+!# ;s ?branch @local1 branch lp+
3846	0	3846	0	lp+!# ;s ?branch @local1 branch
3846	0	3846	0	con: lp+!# ;s ?branch @local1 branch
3846	0	3846	0	@local1 branch lp+ ;s
3846	0	3846	0	@local1 branch lp+
3846	0	3846	0	?branch @local1 branch lp+ ;s
3846	0	3846	0	?branch @local1 branch lp+
3846	0	3846	0	;s ?branch @local1 branch lp+ ;s
3846	0	3846	0	;s ?branch @local1 branch lp+
3846	0	3846	0	;s ?branch @local1 branch
3843	0	3843	0	cells + ;s ! (loop) @local0
3843	0	3843	0	;s ! (loop) @local0 i col:
3843	0	3843	0	;s ! (loop) @local0 i
3843	0	3843	0	;s ! (loop) @local0
3843	0	3843	0	+ ;s ! (loop) @local0 i
3843	0	3843	0	+ ;s ! (loop) @local0
3843	0	3843	0	(loop) @local0 i col: cells +
3843	0	3843	0	(loop) @local0 i col: cells
3843	0	3843	0	(loop) @local0 i col:
3843	0	3843	0	(loop) @local0 i
3843	0	3843	0	(loop) @local0
3843	0	3843	0	! (loop) @local0 i col: cells
3843	0	3843	0	! (loop) @local0 i col:
3843	0	3843	0	! (loop) @local0 i
3843	0	3843	0	! (loop) @local0
3842	0	3842	0	<> ?branch @local1
3837	0	3837	0	@local1 branch lp+ ;s dup @local1
3837	0	3837	0	@local1 branch lp+ ;s dup
3837	0	3837	0	@ <> ?branch @local1 i col:
3837	0	3837	0	@ <> ?branch @local1 i
3837	0	3837	0	@ <> ?branch @local1
3837	0	3837	0	?branch @local1 i col: cells +
3837	0	3837	0	?branch @local1 i col: cells
3837	0	3837	0	?branch @local1 i col:
3837	0	3837	0	?branch @local1 i
3837	0	3837	0	?branch @local1 branch lp+ ;s dup
3837	0	3837	0	<> ?branch @local1 i col: cells
3837	0	3837	0	<> ?branch @local1 i col:
3837	0	3837	0	<> ?branch @local1 i
3837	0	3837	0	;s @ <> ?branch @local1 i
3837	0	3837	0	;s @ <> ?branch @local1
3837	0	3837	0	+ ;s @ <> ?branch @local1
3831	0	3831	0	con: lp+2 ;s
3831	0	3831	0	con: lp+2
3825	3825	0	0	r> ;s ?dup ?branch 0> ?branch
3825	3825	0	0	r> ;s ?dup ?branch 0>
3825	3825	0	0	r> ;s ?dup ?branch
3825	3825	0	0	r> ;s ?dup
3825	3825	0	0	nip r> ;s ?dup ?branch 0>
3825	3825	0	0	nip r> ;s ?dup ?branch
3825	3825	0	0	nip r> ;s ?dup
3825	3825	0	0	nip col:
3825	3825	0	0	?dup ?branch 0> ?branch nip col:
3825	3825	0	0	?dup ?branch 0> ?branch nip
3825	3825	0	0	?dup ?branch 0> ?branch
3825	3825	0	0	?dup ?branch 0>
3825	3825	0	0	?branch nip col:
3825	3825	0	0	?branch 0> ?branch nip col:
3825	3825	0	0	>r >body nip r> ;s ?dup
3825	3825	0	0	>body nip r> ;s ?dup ?branch
3825	3825	0	0	>body nip r> ;s ?dup
3825	3825	0	0	;s ?dup ?branch 0> ?branch nip
3825	3825	0	0	;s ?dup ?branch 0> ?branch
3825	3825	0	0	;s ?dup ?branch 0>
3825	3825	0	0	0> ?branch nip col:
3824	1859	287	1678	@ col: lit
3821	2381	740	700	col: ?dup ?branch ;s ;s col:
3821	2381	740	700	?dup ?branch ;s ;s col:
3816	752	2552	512	tuck -
3805	753	2546	506	@ tuck
3805	751	2547	507	2drop col: col:
3804	750	2546	508	dup ! ;s
3804	750	2546	508	dup !
3803	750	2546	507	dup ! ;s col:
3802	750	2546	506	tuck - ;s
3802	750	2546	506	dup @ tuck - ;s
3802	750	2546	506	dup @