147 d+ 6249 (parse-white) 12525 nip 10995 2drop 303699 swap 574 (emit) 648 i' 4 (next) 8429 (hashkey1) 6786 (+loop) 700 2swap 12503 i 12 2* 6071 (?do) 7069 1+ 179926 dup 1012 um/mod 1 mod 1122 (f83find) 51 cmove 11322 ?dup 14769 c! 3842 tuck 1 up! 42108 over 331449 var: 13774 (type) 10 read-file 1731 fill 91 * 13468 (loop) 4872 1- 306145 ?branch 779454 col: 933 (s+loop) 3 u<= 28 <= 1022 code-address! 4056 0< 6663 or 59 2rdrop 97254 rot 6471 faligned 29792 count 25201 execute 164367 + 5115 cr 12 u<> 230638 0= 10499 unloop 14 rp@ 141867 con: 3759 2! 802863 ;s 47308 <> 2 compare 27 invert 80729 lshift 4428 (do) 319 >= 14627 xor 2808 0> 176 u>= 1718 negate 7163 min 113600 and 1975 move 95150 cells 20886 - 7 does-handler! 23452 does: 148 toupper 35991 2dup 62505 r> 101645 c@ 66849 >r 313305 lit 46062 ! 1 (bye) 506 < 506 dabs 1659 max 5 close-file 12 dnegate 9813 pick 294 um* 177 u< 1806 read-line 16 open-file 34209 defer: 5732 / 42743 branch 1 (for) 87 within 81967 = 16 -rot 9 allocate 14070 aligned 9086 /string 28631 r@ 6699 (hashfind) 40 /does-handler 1022 >code-address 1145 u> 59 2>r 13 laddr# 11544 > 15441 2@ 5783 fp@ 100126 user: 5987 sp@ 4356 rdrop 506 d0= 33 does-code! 8 >body 86456 /mod 5 resize 1298 0<> 58669 +! 101 char+ 25387 field: 24124 cell+ 467 noop 20468 drop 568784 @ 281 (loop) i 394 faligned over 291 +! var: 23 /string rot 16 con: open-file 287 - ?dup 1730 rot ! 306 con: branch 121 <> and 142 0<> ?branch 6 +! user: 1746 + dup 1 con: 0= 28 >= col: 19 drop >r 12318 and ?branch 4099 rdrop ;s 718 (+loop) i 799 count col: 5312 @ lit 6699 r> xor 33 does-code! ;s 11666 dup field: 1 (do) lit 1584 aligned ;s 3 u<= ?branch 4938 c@ >r 280 drop r> 6740 swap c! 637 drop swap 6699 @ (hashfind) 1 execute field: 82 over char+ 426 @ swap 125 0> 0= 11074 dup count 1806 read-line col: 114 ?branch ?dup 1 execute 0< 243 col: ;s 1730 tuck cell+ 1730 drop r@ 5730 /mod rot 3203 and col: 5 nip r> 8925 ;s user: 1 noop var: 1771 lit ! 25 1- var: 4 execute 0= 3 execute @ 5769 ?branch fp@ 1 2@ 2* 7149 ;s defer: 1 open-file col: 5877 swap cell+ 57 r@ pick 59 2rdrop branch 180 c! col: 153302 ;s ;s 647 var: c! 1 0= >r 7 cell+ i 87 * 1- 10 r> cell+ 2818 c@ r@ 6 dup allocate 1058 cr ;s 5 > col: 533 drop branch 84 ! cell+ 52 ?branch = 1005 tuck c@ 86456 rot + 105 r> move 32864 ;s branch 6349 >r >r 5 0<> lit 287 rot - 1 0= r> 2 i 1+ 19 char+ c@ 2160 (+loop) unloop 1749 >r drop 6708 cells var: 87847 ?branch lit 7 cr branch 1481 over +! 941 branch var: 2 execute >body 204 sp@ cell+ 2688 ?branch @ 4489 @ ?branch 8 (loop) lit 223 ?branch 1+ 9 ;s nip 1 nip var: 519 r> swap 5 1- + 130 col: nip 39 col: = 1616 rot cell+ 1974 dup i 1 unloop var: 87 1- >r 11142 r> r> 115 rot over 3775 ?branch cell+ 197 drop lit 1331 >r r@ 426 ?branch 1- 9217 ;s count 5314 2drop ;s 10908 lit + 232 branch rdrop 1 2* ;s 15 r@ + 2749 branch dup 464 or col: 87 1+ within 142 over 0<> 424 1- r> 276 lit - 5202 col: @ 89576 @ ;s 708 + rdrop 287 2@ 0= 574 var: (?do) 85584 and 0= 13428 @ field: 11742 swap >r 1007 ! var: 4828 ;s cr 10 swap read-file 648 i' i 63 branch over 506 < ?branch 3 or >r 204 dup 1+ 121 <> swap 59 2dup 2>r 287 cr cr 574 0<> and 1 (next) unloop 6100 swap r> 3025 ?dup ;s 26024 dup ?branch 3136 con: swap 2048 + (loop) 140 - swap 3659 (loop) con: 2183 2! ;s 1294 var: count 1074 ;s rot 653 (do) >r 5 over ;s 11565 ;s ! 13 laddr# ;s 5936 r@ execute 359 ;s rdrop 1953 swap user: 1408 (?do) i 11539 > ?branch 3 rot 2dup 1 ! over 1 execute swap 9552 lit pick 87 col: 1+ 125 2drop rdrop 125 = dup 1437 negate ;s 2610 lit /string 575 2! var: 25 0= var: 21 var: r> 2321 con: (+loop) 1 1- i' 1730 var: lit 291 >= ?branch 5791 swap does: 6 r@ user: 66 ;s 1+ 647 r> does: 39 = 0= 19 ;s char+ 33 ;s does-code! 539 + col: 3 defer: drop 59 2>r col: 25094 field: @ 2893 var: 2! 4 1+ /string 4860 r@ does: 880 ! does: 306 c@ 0= 65 ?branch swap 37510 lit var: 81461 @ and 4938 r> lit 36 var: r@ 6 r> -rot 1 ! fp@ 25 ;s 1- 2 ;s compare 25 +! col: 1731 lit fill 6226 col: cell+ 379 con: ;s 302 2dup var: 3187 col: ?dup 1 var: up! 26894 ;s dup 4208 swap (?do) 506 d0= ?branch 506 rot lit 10 -rot con: 3553 (do) 2dup 1912 @ ! 25017 col: dup 81676 = ?branch 708 pick does: 36915 @ <> 197 con: (do) 198 - unloop 12 ?branch dnegate 23 + c! 10 cell+ cell+ 647 (type) (+loop) 1955 ;s 2drop 147 um* d+ 13704 c! ;s 15 rdrop lit 1 / ;s 287 - rot 85910 0= 0= 5825 ;s + 2989 pick ! 997 2drop 2drop 2429 swap dup 275 lit = 4136 ! lit 279 r@ = 549 ?branch does: 53 execute drop 3553 cells over 1005 xor swap 5 branch unloop 6 2@ lit 1 lit > 20 rdrop rdrop 80 ;s - 1495 lit over 12648 + aligned 23 (loop) count 2112 >r var: 467 defer: noop 11 2@ drop 5224 (loop) >r 2164 lit @ 8429 con: (hashkey1) 5 >body user: 1032 col: swap 1730 r@ @ 8429 (hashkey1) ;s 7264 over <> 19 @ 1+ 6000 ?branch drop 1 2drop drop 40 con: lit 66 r> drop 584 rot col: 1 ;s rp@ 13 ! execute 987 ;s execute 3554 @ 1- 2108 var: ! 1627 - dup 225 execute and 65 lit ;s 26341 @ + 11754 cell+ swap 769 r@ col: 181 r> user: 34 cells + 54779 +! ;s 287 swap 0<> 421 c@ col: 292 var: field: 1013 ;s move 350 0= lit 5730 does: + 11093 count + 6101 >r over 483 ! user: 287 swap 0= 156 nip branch 2048 pick + 291 cells - 304 con: <> 105 over 1+ 5 2dup 1+ 190 cell+ (loop) 9 allocate col: 647 count move 287 cr var: 27 invert ;s 1 ;s cells 52 2dup u< 7 ;s does-handler! 1288 over ! 20 var: swap 933 lit (s+loop) 647 lit does: 80726 cells rot 997 and ?dup 5769 sp@ user: 15 >r 2@ 5 2dup 1- 1 cells / 506 >r tuck 1481 +! @ 1 (?do) var: 23 branch 2dup 87529 ;s swap 1153 does: swap 3 ?branch or 3 2@ ;s 1239 i - 7264 2dup i 7 /does-handler col: 997 2dup 2dup 6163 and ;s 147 rot user: 4415 ?branch defer: 6226 (parse-white) 2dup 694 cr rdrop 506 2dup d0= 384 col: does: 599 rot r> 292 ! defer: 125 ?branch user: 1122 (f83find) ;s 30 swap cmove 1289 lit (?do) 291 con: >= 87 con: 1+ 6 var: + 6249 + r> 8433 unloop ;s 417 ! col: 1 lit (bye) 21 r@ cmove 3 @ (loop) 5 close-file swap 5730 / col: 6249 r> min 5 + 2! 1153 max lit 2989 ! ! 28 r@ u>= 1999 ! branch 6226 /string (parse-white) 14 rp@ user: 3716 (type) col: 4 1+ rot 1 / 1+ 204 cell+ rot 233 noop col: 105 >r rot 12640 user: ! 5 c! 1+ 574 0= and 13774 defer: (type) 199 ?branch i 3 execute lshift 38143 @ var: 7697 >r 2dup 2055 (loop) unloop 3554 drop var: 2818 r@ <> 1 2drop dup 21 min >r 3563 over + 281 negate user: 2249 drop ;s 5 unloop 0<> 28233 ;s @ 7 lit <> 574 2swap swap 287 (emit) var: 3 execute 1+ 1730 cells >r 291 - var: 231 ;s drop 304 con: does: 24 ! con: 65 swap drop 66 = ;s 7 does-handler! ;s 66 2drop branch 689 cell+ >r 3008 over - 267 nip ;s 3 0<> ;s 4938 faligned ;s 5332 + faligned 1122 @ (f83find) 288 2! col: 3 execute 1- 2 * allocate 8 execute does: 381 over col: 7 ;s /does-handler 86164 c@ ;s 1438 0= col: 5 nip ?branch 61 = rdrop 712 ?branch execute 6 1+ dup 81097 dup var: 8394 - ;s 1040 execute var: 5433 cell+ dup 80489 @ = 4244 var: 2@ 156 cells col: 298 >r dup 5 + lit 21 con: min 1731 fill ;s 12 2dup u<> 223 /string over 5924 branch col: 15351 @ execute 6354 1+ r> 11538 @ > 3777 lit user: 98744 lit col: 47014 <> ?branch 1848 2@ var: 28 lit >= 1022 code-address! ;s 11299 @ over 11628 2dup col: 915 swap +! 10 ! rdrop 7762 col: drop 142 faligned nip 5077 @ @ 699 lit 2swap 125 lit u< 1806 ?branch read-line 5 cells resize 39555 ?branch var: 5166 lit xor 80425 0= ;s 1 execute mod 2620 r> var: 1730 ;s xor 5735 + c@ 56760 col: user: 1019 move ;s 708 2! con: 10 read-file ?branch 27 col: xor 16560 does: @ 1730 @ rot 2021 cell+ ! 1145 lit u> 5934 ?branch nip 506 @ tuck 789 drop ! 1732 pick @ 3 lit u<= 19 pick rdrop 6035 or swap 11085 >r ;s 5 ! >r 5 execute over 28 <= ?branch 6688 ;s c! 2697 r> ;s 647 >r does: 3421 @ does: 197 lit con: 1730 ?branch >r 37229 var: +! 7 branch con: 996 ?branch branch 5730 lit /mod 294 @ um* 5 resize col: 6 -rot move 5671 >r col: 10 2dup con: 396 over lit 7264 2@ over 1005 c@ xor 5769 col: sp@ 5 tuck 1+ 2123 ?branch rdrop 13 >r rp@ 574 defer: (emit) 3 1- ;s 1760 ! r> 33 /does-handler + 9876 r@ lit 2883 ?branch over 506 r> over 508 dup ! 4 ! (next) 80729 lshift ;s 997 faligned swap 4633 ?branch r> 5 1+ 2* 647 (?do) i' 287 rot 0= 3146 ! r@ 52 con: var: 82 char+ col: 1806 con: user: 11 2* cells 6565 ?dup ?branch 265571 var: @ 13 fp@ >r 506 over < 3356 2@ defer: 305 @ or 217 (do) dup 204 1+ pick 78 con: ! 2683 0> ?branch 125 drop 2dup 344 ?branch r@ 5 2@ tuck 3 nip = 287 0<> rot 80726 /mod cells 281 over = 1022 ;s code-address! 2380 branch ;s 80732 swap ;s 7 cr 0<> 1627 ?branch rot 5 @ close-file 2 >body ;s 6 ;s >body 615 >r con: 960 dup >r 6 r> tuck 1 field: ;s 86 1+ var: 87179 + swap 1 sp@ dup 566 @ c! 2583 cr col: 5877 r> (loop) 12059 over @ 507 0< ;s 223 1+ user: 26364 branch lit 3241 ?branch 2drop 506 r@ um/mod 871 dup r> 11070 aligned >r 125 rdrop r> 5332 and + 1806 +! swap 5 1- user: 5 r> rdrop 13 col: laddr# 8618 count defer: 915 con: over 4 + ! 5 2dup or 997 u> lit 147 drop rot 627 var: ;s 1437 ?branch negate 5654 nip nip 61020 0= ?branch 506 >r um/mod 1695 dup r@ 647 var: nip 647 2@ 2dup 161 or ?branch 1 - ?branch 204 move drop 6249 - 1+ 5 nip 1- 5660 col: >r 574 lit defer: 35 drop does: 2738 ?branch dup 1004 ?branch 2dup 9567 ;s var: 767 - 1- 1 col: 2swap 4 (do) i 1 cells allocate 48 swap var: 87 con: * 18 @ user: 2216 ;s >r 6450 >r user: 708 con: + 576 count ;s 233 c! does: 8429 xor cells 204 rot move 204 pick >r 11798 col: r> 2216 (loop) dup 80415 ?branch c@ 768 1- dup 142 ?branch faligned 6249 min user: 18394 defer: col: 36 cmove var: 5 2dup lit 12 /string col: 3549 0< ?branch 7608 con: - 5350 ;s (loop) 84442 user: @ 9591 ;s r> 3576 swap ! 2 dup defer: 3553 + (do) 539 drop col: 1250 (?do) con: 997 defer: defer: 14537 @ col: 861 ;s 2! 287 rot swap 5731 con: / 83980 @ dup 6083 ;s r@ 99867 col: var: 287 (emit) col: 2982 branch branch 38 pick r@ 6454 ;s over 9 2@ nip 647 min 2dup 16 swap over 791 branch @ 6 ?branch cells 15 r> + 280 ?branch 0<> 1730 r@ swap 204 cells sp@ 893 dup cell+ 59 ?branch 2rdrop 4938 col: count 2540 lit lit 33809 ;s lit 10 + -rot 459 execute or 285 i over 1 ! ?dup 233 noop ;s 246 over min 4938 dup c@ 6250 r> - 15 open-file 0= 2598 /string branch 111734 col: lit 28 cell+ var: 1758 ;s tuck 28 var: <= 19 r> rot 2727 cell+ count 7176 @ >r 130 nip swap 268 ?branch 0= 345 2drop r> 292 @ con: 176 u>= ?branch 5414 drop con: 1415 2@ col: 5770 fp@ user: 11 drop = 1659 lit max 2502 rot rot 2021 over cell+ 1172 swap lit 2658 ?branch 0> 230 col: over 20418 ?branch col: 8 swap 1+ 3 2dup and 1156 var: var: 2075 pick col: 1807 r> col: 147 d+ r> 258 c@ lit 197 (+loop) dup 3575 var: dup 1012 um/mod r> 5938 @ r@ 4 rot (do) 1335 swap - 13 >r sp@ 287 2@ rot 732 ;s c@ 6 execute aligned 11759 r> dup 6249 2dup >r 110 over >r 506 - does: 506 dup 0< 7043 ;s 2dup 3 execute 2drop 3 (next) var: 1 1- (for) 1 >body @ 689 >r @ 997 dup faligned 1647 dup 0= 148 toupper lit 23 rot dup 131 lit branch 2175 lit cells 1214 - lit 16 swap 2dup 4 /string ;s 506 tuck dabs 5166 xor and 2215 con: rot 7264 i 2@ 1671 ;s cell+ 125 dup 0> 125 (?do) count 144 con: = 25476 lit and 20 over r> 811 ?branch con: 1003 2dup r> 5 con: > 52 <> col: 87 rdrop dup 19171 + ;s 17321 dup @ 306 var: over 15 cmove 2dup 13 sp@ r> 1986 (?do) unloop 2 compare 0= 3 and var: 291 ! dup 3817 lit (+loop) 28 over r@ 1061 cell+ tuck 16343 con: col: 3 col: cells 506 col: 0< 7 execute ! 237 con: @ 334 - col: 3 nip 0<> 15 2@ dup 647 c! var: 9124 (type) ;s 23 @ branch 148 ?branch toupper 36928 col: 0= 246 min /string 41195 ;s ?branch 4283 col: 2dup 287 0= swap 287 0= rot 1 mod ;s 87 within 0= 223 over swap 125 unloop lit 2202 nip execute 6226 @ /string 107 unloop 2drop 728 user: col: 506 col: 2drop 160 0= does: 394 + = 84 tuck ! 5730 con: dup 8608 dup col: 16175 ;s 0= 23310 execute col: 6 1+ col: 80726 swap lshift 25 ;s 0> 2001 >r ?branch 654 (?do) dup 82297 lit swap 1416 aligned swap 19 cr 0= 506 dabs col: 287 rot 0<> 2375 dup does: 3 does: 2@ 7 var: cell+ 983 2dup swap 7 con: defer: 80726 con: /mod 88 con: con: 3 ?branch ! 5 2! 2* 17288 + @ 507 2drop col: 933 (s+loop) dup 287 (type) lit 197 - con: 6699 (hashfind) ;s 2 con: cells 11 cells ;s 177 u< ?branch 2316 user: +! 1416 dup aligned 647 lit min 1617 rot drop 3 1+ ;s 1730 cells lit 292 field: dup 11 execute cells 23 drop (parse-white) 225527 ;s col: 287 2@ 0<> 2 execute * 2 (loop) var: 2 2dup * 6 does: col: 1022 lit >code-address 5730 c@ or 8980 swap col: 148 @ u>= 1 execute + 1 (for) var: 48 execute con: 3553 con: ?branch 87 1+ con: 23 (parse-white) branch 215 dup con: 8801 over c@ 13 >r fp@ 6254 2dup + 1 up! sp@ 27 xor invert 2 * ;s 3533 2drop lit 11925 >r swap 148 u> ?branch 2126 i col: 80421 swap @ 7 i cells 281 dup negate 3043 @ 0< 8059 count lit 173 cr ?dup 3915 ;s 2@ 106 2drop con: 3711 (+loop) 2dup 3553 1- cells 281 branch drop 837 @ 0= 125 2swap dup 287 0<> swap 160 0= or 674 lit (do) 348 r> ?branch 278099 col: col: 1828 unloop drop 12 dnegate r> 147 um* drop 21220 ;s con: 512 tuck - 531 >r lit 4094 nip unloop 1297 ;s does: 235 swap con: 5444 lit r@ 1 r> or 5 c@ ?branch 1732 ?dup 0= 22 @ cells 33 r> /does-handler 204 >r cells 223 >r defer: 7929 col: defer: 28079 ! ;s 1580 i con: 1 branch (+loop) 4186 drop 2drop 105 move c! 17912 ?branch ;s 98 over 0= 394 - count 1 execute 2* 281 +! lit 3350 dup lit 440 ! drop 10 rdrop drop 1173 dup user: 506 max col: 1 2swap 2dup 1730 + var: 105094 col: con: 16728 ;s +! 647 2dup defer: 647 move lit 12 u<> ?branch 8437 var: col: 1022 >code-address ;s 6563 @ ?dup 6276 >r >r user: 1122 @ (f83find) ;s 287 (emit) var: 2@ 1 var: ! lit 291 r> var: ! 1 0<> ;s col: 15 over r> + 1 mod ;s branch 1737 2! ;s lit 3 rot 2dup and 53 execute var: ;s 1 col: 2swap 2dup 3968 dup ?branch defer: 1 drop ;s nip 21 >r var: r@ 997 col: defer: defer: 292 field: dup var: 6699 + @ (hashfind) 120 +! ;s 2drop 287 ;s 2dup var: 21 min >r var: 1730 over cell+ count 16 ;s swap over 55 >r var: @ 7 ;s drop col: 2 drop col: r> 3534 <> ?branch drop 1002 ;s r@ does: 14 = ;s ?branch 1057 ;s col: user: 574 0<> and ?branch 4938 and 0= ?branch 28 var: <= ?branch 647 dup >r does: 424 and ?branch 1- 708 con: + ;s 80726 lit swap lshift 1 field: ;s branch 144 con: = ?branch 647 2@ 2dup col: 6226 /string (parse-white) 2dup 61 branch ;s con: 93201 ;s col: col: 12 dup col: lit 1 ?branch 1- i' 21 r@ cmove var: 590 - dup @ 717 con: (+loop) i 8429 col: lit + 5 >r ;s drop 13 or ?branch drop 599 >r con: rot 23697 ;s @ ;s 58 ;s swap con: 2 execute >body ;s 287 defer: (emit) col: 8825 var: @ col: 708 ?branch execute var: 5935 ?branch col: cell+ 3533 drop 2drop lit 28 ;s tuck ! 5769 ;s defer: col: 1762 lit lit ! 506 ;s 2dup d0= 279 ?branch r@ col: 266 dup 0= ?branch 1 execute swap ;s 121 dup con: <> 12 col: 2dup u<> 653 r> (loop) unloop 997 2drop ;s var: 291 >r var: col: 5730 over c@ or 2329 r> var: @ 3711 lit (+loop) 2dup 506 >r tuck dabs 87 con: 1+ within 44 ;s ?branch does: 15 var: swap cmove 4938 >r col: count 15 cmove var: over 1 swap ;s branch 551 r@ col: >r 88 con: branch ;s 28 u>= ?branch col: 5730 + ;s swap 291 con: >= ?branch 5 nip execute over 1236 dup @ dup 574 var: ;s lit 647 ;s dup >r 246 user: @ over 84 tuck ! cell+ 13 fp@ >r col: 3025 @ ?dup ;s 1730 >r var: lit 575 var: 2! var: 539 + col: col: 8 lit @ var: 114 ?dup ?branch ?dup 25 +! col: var: 281 swap - col: 1730 var: lit cells 648 unloop ;s dup 204 pick >r cells 147 rot user: @ 276 col: >r dup 23 + c! col: 47 nip execute con: 28 <= ?branch con: 1 (next) unloop ;s 506 over < ?branch 1678 @ col: lit 19 ! ;s does: 1 (?do) unloop lit 237 con: @ col: 574 cr col: var: 1 unloop var: @ 124 (loop) unloop lit 5 ?branch ;s r> 1416 dup r@ does: 647 (+loop) unloop drop 3874 @ col: var: 6325 col: var: col: 287 0= swap 0<> 2818 ?branch over c@ 6 +! user: @ 10 user: ! rdrop 27 nip ;s - 51 @ execute drop 565 ;s rot col: 20 ;s swap var: 19 pick rdrop dup 53 execute drop ;s 126 ;s drop ;s 28 ! ;s + 33 /does-handler + col: 18 ;s ! col: 653 unloop drop 2drop 66 2drop branch ;s 1730 >r drop r@ 1730 r> ;s tuck 3126 con: swap ! 133 branch ;s branch 506 < ?branch lit 1294 lit ! ;s 287 var: @ execute 281 (loop) i over 19 r> r> rot 1806 swap user: ! 9 ?branch 2dup con: 997 var: @ ! 2 ?branch i 1+ 11070 r> dup count 873 ;s ;s defer: 223 /string over swap 2075 lit pick col: 5 var: swap ;s 148 = ?branch toupper 7 lit <> ?branch 75 swap con: - 43 con: ;s lit 997 dup faligned swap 170 cell+ (loop) dup 61 @ swap does: 287 - ?dup ?branch 1889 ;s 2drop ;s 61 @ = rdrop 506 dabs col: col: 390 + ;s c! 3969 2dup col: var: 58 nip ;s ?branch 3 @ dup @ 8432 var: @ + 20 (do) dup @ 53 drop ;s branch 59 drop 2dup 2>r 16108 con: col: col: 33 @ ;s does-code! 211 @ col: 2dup 566 - lit over 53 ;s - col: 50124 col: col: user: 265 rdrop ;s cr 232 branch rdrop ;s 6298 ;s c! ;s 204 drop r> ;s 68 0< ?branch lit 941 ! branch var: 11 ;s swap 2dup 740 0= ?branch ;s 506 tuck dabs col: 5760 col: col: lit 5 col: 2dup lit 15 dup >r 2@ 25 1- var: 2! 5 ! col: ?dup 124 ?branch nip ;s 2046 (loop) dup lit 1 ;s does: col: 5 tuck - dup 2218 dup ?branch 2drop 6700 >r 2dup col: 233 ;s c! does: 59 branch over 0= 6699 ;s r> xor 997 lit u> lit 22 @ cells + 105 >r rot over 1 r> - ?branch 1240 rdrop ;s ;s 7 ;s cr branch 1 ?branch execute con: 12 2dup u<> ?branch 78 = ?branch col: 12 ;s con: ! 281 ?branch branch drop 53 nip execute var: 3069 (type) col: col: 80422 var: @ = 61 @ r@ does: 15 >r var: swap 5 r> r> user: 5 1+ var: 2! 16 >r con: open-file 287 0<> swap 0= 80646 and 0= 0= 11070 swap >r ;s 3553 @ 1- cells 147 swap user: @ 574 col: swap (?do) 22 cells + ;s 997 var: @ @ 30 ! r> user: 1 cells / ;s 506 ?branch ;s rot 20 lit (do) dup 3 ;s con: branch 1288 @ over ! 6654 c! ;s ;s 113 >r ?branch col: 1 dup ?branch rot 2982 branch branch lit 23 (parse-white) branch 2dup 26426 ;s lit col: 125 2drop rdrop r> 59 ?branch 2rdrop branch 582 dup var: ! 689 r> dup cell+ 997 @ @ over 279 rdrop ;s execute 39 drop r> drop 2667 execute col: col: 1578 ;s con: - 281 negate user: +! 3659 (loop) con: col: 507 2drop col: col: 5730 ;s con: / 1730 ! r> var: 2124 ;s con: (+loop) 486 ?branch drop col: 732 + ;s c@ 8429 col: con: (hashkey1) 3 ?branch ! ;s 689 cell+ >r @ 3 2@ ;s con: 1 ?branch 1- (for) 1730 @ rot ! 52 ;s con: var: 2818 r@ <> ?branch 291 ?branch ;s lit 1255 dup ?branch lit 4938 lit r@ lit 2158 @ over - 23 @ ?branch does: 1 user: ! fp@ 1 nip execute 2* 1580 dup i con: 80421 0= 0= ;s 1581 ?branch ;s ?branch 3775 0= ?branch cell+ 12 lit /string col: 11070 aligned >r swap 4213 col: 2dup col: 28 @ dup lit 6619 ?branch col: col: 197 (do) dup i 1153 swap lit max 121 ;s con: = 1 ! over c@ 204 cell+ rot move 506 lit over < 673 @ lit (do) 1 ;s rp@ user: 148 @ u>= ?branch 6249 + r> - 281 lit over = 5 ! >r ;s 12 ;s con: @ 1379 ;s (loop) unloop 10 ?branch rot over 4094 nip unloop ;s 1730 tuck cell+ ! 307 ;s dup does: 5 >body user: @ 80 1+ var: 2@ 290 2! ;s col: 7 lit (?do) dup 1 >body @ col: 3553 con: ?branch lit 5232 dup ?branch col: 2 nip execute drop 506 ;s col: 2drop 5877 @ over @ 13 swap >r fp@ 1 2@ 2* cells 2853 ;s @ does: 1644 ;s ?branch dup 12 >r ?branch lit 80421 dup var: @ 35 ?branch drop does: 6249 r> - 1+ 10543 ;s 0= ?branch 708 i col: >r 4 1+ rot (do) 45274 ;s ;s col: 394 i - count 6226 @ /string (parse-white) 25 ;s 1- var: 28 rdrop ;s tuck 142 0<> ?branch faligned 1407 con: (+loop) unloop 204 r@ col: dup 1244 col: >r r@ 861 unloop ;s var: 223 - dup r> 52 2dup u< ?branch 16728 ;s +! ;s 147 r> ;s (loop) 637 2@ col: drop 2583 ;s cr col: 6699 2dup col: con: 506 col: dup 0< 1 1+ var: @ 13 >r col: laddr# 279 rdrop ;s ?branch 350 col: dup 0= 1730 ;s tuck cell+ 13 >r sp@ r> 15 cmove 2dup var: 1806 ?branch read-line col: 566 @ c! ;s 32 - dup ?branch 1040 var: @ and 983 2dup swap col: 767 1- dup ?branch 3420 +! ;s ! 1 1- i' i 28 dup var: <= 15 dup >r con: 1806 ?dup ?branch read-line 647 var: count move 574 lit 2swap swap 19 - swap lit 25 - ;s 1- 506 >r um/mod r> 915 var: col: lit 125 unloop lit branch 1730 ! r@ swap 13 user: ! execute 287 defer: (type) lit 647 lit min 2dup 508 dup ! ;s 11070 col: r> r> 3553 col: drop con: 281 over = ?branch 87 dup col: con: 136 r> ;s r@ 506 2dup d0= ?branch 647 count move lit 6249 min user: ! 287 rot 0= and 11 nip execute cells 223 col: >r defer: 8246 user: ! ;s 8572 @ ;s user: 14 rp@ user: ! 15 var: r@ + 2 over lit (?do) 10 rdrop lit ;s 599 rot r> var: 997 2dup 2dup r> 28 r@ u>= ?branch 37 over col: lit 4 ;s lit swap 86336 col: col: con: 19 >r r@ pick 150 2drop ;s does: 486 ;s cell+ swap 36915 @ <> ?branch 2156 lit @ execute 4 execute col: swap 1957 lit col: lit 1 compare 0= r> 291 +! var: @ 61 var: @ does: 305 col: swap col: 5 var: 2@ tuck 125 c@ lit - 1 0= >r 2dup 1 ?branch con: lit 5 user: @ close-file 2727 cell+ count lit 5769 ?branch fp@ user: 1 fill ;s var: 5 or col: dup 7264 2@ over <> 3 + @ col: 506 ;s rot lit 52 con: <> col: 519 r> swap >r 1022 col: lit >code-address 861 2@ var: 2@ 6 = ?branch r@ 218 con: branch rdrop 24 ! con: does: 1730 fill ;s r> 13 drop ;s dup 279 @ dup r@ 147 ?branch col: swap 6 ?branch ;s var: 197 con: - unloop 4369 unloop ;s ;s 280 and ?branch 0<> 2592 branch dup ?branch 36915 var: @ <> 2215 con: rot rot 943 @ ;s col: 9876 r@ lit and 126 c@ lit = 1 @ ?branch r> 25 var: @ 0< 80425 c@ ;s col: 291 var: @ 0= 4 cells + ! 15 dup >r var: 660 ;s dup col: 1 ;s cells col: 5 + lit swap 708 + ;s lit 506 dup @ tuck 3397 ;s ;s branch 28 over r@ u>= 35 >r col: 2dup 5 2* cells + 3553 col: drop var: 65 ?branch swap drop 1835 ;s ;s 2drop 5 rdrop ;s over 4938 r> lit and 1 lit (?do) i 125 = dup >r 6249 r> min user: 10 swap read-file ?branch 27 invert ;s col: 5769 > ?branch ;s 65 ;s ;s swap 19 r@ pick rdrop 1578 ;s lit + 62 col: >r >r 36928 col: 0= ?branch 186 user: @ >r 32 lit lit lit 506 col: 0< ?branch 21 var: r@ cmove 2 0<> ;s 0= 152 c! ;s con: 86273 col: col: var: 997 ?dup ?branch 2drop 997 faligned swap (?do) 148 ?branch toupper lit 3 (next) var: cell+ 1754 ;s + @ 8826 @ + @ 223 over swap r> 708 rdrop ;s con: 647 defer: col: var: 2 var: ! var: 1617 ?branch rot drop 1947 var: @ ?branch 2743 col: lit col: 461 execute col: defer: 340 execute var: @ 4938 col: count lit 7 cr branch rdrop 3371 + @ ;s 279 r@ = ?branch 29 over col: col: 647 >r does: @ 125 0> 0= ?branch 681 user: @ lit 152 c! col: var: 1 + ;s branch 3 cells + @ 708 ?branch branch lit 1769 ;s lit @ 1 lit > ?branch 506 (?do) unloop drop 5332 and + faligned 1153 does: swap lit 287 rot swap - 421 ;s @ 0= 647 ?branch dup does: 15 user: ! user: 204 dup cell+ rot 6 r> -rot move 153 col: swap >r 506 dup 0< ;s 13 sp@ r> swap 5 col: col: 2dup 1153 ;s defer: (type) 150 lit = ?branch 5 lit ;s r> 272 (type) ;s rdrop 51 ;s r> r> 506 0< ;s r> 237 >r dup ?branch 5730 con: dup @ 2 unloop drop branch 3968 defer: col: 2dup 4 swap 1+ /string 25 ;s 0> ?branch 2 >body ;s branch 1 compare 0= >r 87 col: 1+ con: 394 dup i - 2 ?branch ;s over 1025 dup user: ! 287 cr cr ;s 1013 ;s move ;s 647 2dup defer: (type) 23 min /string rot 287 (type) lit defer: 30 col: lit user: 4 col: dup count 281 dup negate user: 223 over - dup 1005 xor swap c! 1 ;s ?branch 1- 506 @ tuck - 7 nip execute ! 1388 drop ;s ;s 5 (?do) dup >r 1732 @ ?dup 0= 121 con: <> swap 5 nip r> rdrop 7 con: defer: noop 1115 ! ;s var: 223 >r over - 987 ;s 2@ var: 54 drop 2drop r> 4831 user: @ ?dup 791 branch @ dup 6 + @ user: 80421 swap @ and 125 >r user: col: 59 ;s ?branch 2rdrop 5 swap 2dup or 7 var: cell+ i 1722 var: 2@ defer: 2 nip execute * 1730 and col: con: 10 ?branch rdrop drop 1 0= r> or 7 rdrop ;s var: 1 nip execute + 3980 ?branch lit r@ 521 col: >r col: 294 ! ;s (loop) 1730 r@ @ rot 728 user: col: con: 47 con: ;s branch 5730 /mod rot + 1163 @ ;s swap 16 swap over col: 291 cells - var: 869 col: var: 2@ 1732 ?dup 0= ?branch 8 @ lit ! 1 execute con: con: 223 >r defer: col: 66 ;s 2drop branch 997 @ and ?dup 10 2dup con: swap 1 ?dup ?branch 1- 2 <> ?branch ;s 647 - lit min 6 swap >r dup 16 2! ;s r> 5877 >r over @ 647 (type) (+loop) unloop 647 ;s 2@ 2dup 1416 ! r@ does: 148 dup user: @ 1416 dup aligned swap 4514 and ?branch r> 197 - con: - 3 ?branch ;s nip 7 cr 0<> swap 294 (type) ;s branch 7 branch con: defer: 3603 dup ?branch nip 3 nip execute @ 694 cr rdrop ;s 268 branch ;s dup 68 r> ;s rdrop 5769 ?branch ;s defer: 37229 lit var: +! 1730 (hashkey1) ;s xor 19 ! ;s rdrop 506 um/mod r> swap 506 max col: >r 5 lit ;s user: 125 lit = dup 3445 2drop ;s branch 1806 user: +! swap 5 dup ?branch r> 8429 con: (hashkey1) ;s 941 branch var: col: 5 1+ col: col: 284 branch lit (+loop) 647 (type) col: lit 301 over col: swap 5 nip 1- user: 1 con: cells col: 11374 dup field: @ 468 lit ! user: 3553 1- cells over 1 con: open-file col: 3 drop ;s does: 148 @ lit = 5 lit swap c! 66 ;s @ dup 861 var: 2@ var: 27 col: xor invert 1 @ lit > 6 dup allocate col: 507 does: @ does: 6 cells var: + 1022 ;s code-address! ;s 132 var: col: col: 424 ?branch 1- r> 25 rdrop ;s 0> 224 ;s >r over 19 >r >r lit 865 col: var: ! 1806 ?branch ;s branch 5 ;s over r> 292 @ >r var: 5 1- + c@ 111 and ?branch col: 2895 ! ;s lit 276 lit - dup 153 ! ;s over 28 ;s over r@ 7 ;s does-handler! ;s 23 /string rot dup 789 drop ! ;s 1616 rot drop con: 5 tuck 1+ 2* 5769 > ?branch fp@ 915 lit swap +! 5 ;s nip ?branch 1416 ;s dup aligned 130 nip swap - 1730 @ + var: 56 cell+ tuck ! 1 ;s nip ;s 5 @ close-file swap 5166 and ;s 0= 6848 col: dup col: 506 um/mod r> ;s 287 2@ 0<> rot 1 2* cells col: 11664 ! ;s ;s 1 ?branch dup var: 1 @ (loop) unloop 142 faligned nip ;s 341 execute col: does: 1251 ?branch lit and 19 rot col: con: 128 ;s user: col: 7508 ;s col: dup 6702 cells var: @ 5 cells resize col: 270 ! ;s con: 225 execute and 0= 1 swap col: 2dup 5224 (loop) >r over 36 user: ! col: 62 ;s ;s rot 3 nip 0<> ;s 287 var: 2@ 0<> 1 i 1+ var: 689 dup cell+ >r 198 = ?branch i 684 var: @ lit 1 or ?branch 2drop 19 r> rot col: 2 ;s over lit 233 defer: noop ;s 1022 >code-address ;s col: 24 ;s swap ! 1 defer: noop var: 80726 swap lshift ;s 5612 ;s ?branch col: 52 ?branch = ;s 3 /string ;s ;s 157 ;s c! col: 39 ?branch over 0= 997 and ?dup ?branch 6 branch ;s user: 3 + @ (loop) 36913 ?branch lit var: 3659 ;s (loop) con: 13428 @ field: @ 11 var: 2@ drop 1 >r col: defer: 156 branch col: var: 90278 col: var: @ 5 ?branch var: 2@ 2025 @ dup ?branch 34283 ;s ;s ?branch 12 @ ?branch over 3624 ;s ;s lit 33 col: con: col: 3553 drop var: dup 19 ;s char+ c@ 8 ! var: var: 145 u> ?branch dup 10 rdrop drop r> 1876 >r ?branch rdrop 67 ! col: lit 3 lshift ;s branch 1 con: 0= ?branch 287 2@ 0= rot 23 ?branch drop (parse-white) 15 var: over r> 1352 and col: ?dup 10 -rot con: <> 3553 over + (do) 32 drop col: var: 6249 ;s 2dup >r 160 (loop) dup @ 33 does-code! ;s ;s 291 ?branch 2drop r> 142 @ ?branch con: 5 nip ?branch var: 287 var: 2@ 0= 3 lit col: 0= 66 (type) ;s 1+ 287 swap 0= and 915 +! @ ! 80726 /mod cells rot 61 = ?branch does: 566 con: - lit 24272 branch lit col: 281 branch drop ;s 3 execute 1+ ;s 204 sp@ cell+ dup 421 c@ col: var: 1 drop var: 2@ 106 2drop con: ;s 2 dup defer: col: 72 unloop ;s branch 3025 ?dup ;s ?branch 54 ;s >r var: 2 drop ;s drop 13 @ >r rp@ 80421 ;s swap @ 5730 con: / col: 287 swap 0<> and 22 branch ;s r> 59 ;s branch over 13 ;s >r user: 767 swap - 1- 1 dup r> - 125 lit branch ;s 66 drop 2dup col: 23 @ ;s count 6 user: +! user: 1806 branch lit user: 8 var: var: ! 212 ?dup ?branch col: 121 <> and col: 59 2>r col: col: 121 dup col: dup 106 (+loop) unloop 2drop 5 col: dup ?branch 2046 + (loop) dup 5 2@ tuck 1+ 6035 swap col: con: 291 cell+ ! dup 5730 lit /mod rot 1732 0> ?branch col: 1 var: ! ?dup 19 col: drop >r 27 ?branch drop r> 1013 +! ;s move 7 ;s branch con: 1 swap ;s 2dup 305 or swap ! 3 execute 2drop ;s 2048 pick + (loop) 13681 execute col: lit 26 swap drop branch 1022 lit >code-address ;s 1 1- dup 0= 506 tuck - ;s 12 ?branch dnegate r> 82 ;s over char+ 14 r@ col: does: 87 * 1- >r 1 2! var: up! 10 rdrop rdrop lit 951 0> ?branch nip 506 r> over - 5149 ?branch ;s ;s 287 2! var: var: 3575 var: dup @ 463 0< ?branch ;s 27 pick col: lit 226 col: defer: noop 694 0= ?branch col: 35 @ ?branch var: 204 col: dup 1+ 16 >r dup >r 5 ;s c@ ?branch 27 r> drop col: 5730 dup @ + 1 (do) lit col: 294 user: @ um* 1731 lit fill ;s 3 ! defer: drop 647 count col: col: 26 ;s ?branch swap 15 + swap cmove 78 ! ;s drop 82288 col: lit swap 291 lit cells - 1148 var: var: @ 6 execute aligned ;s 1 up! sp@ dup 1 lit cells / 147 um* d+ r> 49 nip ;s col: 6 -rot move ;s 12 dnegate r> user: 1 - ?branch dup 3126 col: con: swap 84 ;s ;s r> 76 r> col: col: 2598 lit /string branch 156 ?branch nip branch 1509 ;s user: ! 31 code-address! ;s lit 90478 lit col: col: 5 over ;s branch 13 ! execute col: 35 @ col: dup 4514 ?branch r> lit 281 +! lit over 647 cr ;s con: 291 cell+ dup @ 1 1- (for) var: 3 execute 1- ;s 4 /string branch over 6 r@ user: +! 1 ! lit (do) 204 1+ pick >r 6 r> tuck - 3 u<= ?branch dup 4860 r@ does: @ 1 open-file col: col: 153 +! ;s 2! 28 lit >= col: 173 cr ?dup ?branch 647 dup r> does: 27 drop col: con: 291 var: +! var: 506 - ;s r> 2604 ?branch lit /string 6 does: col: var: 31 lit lit col: 5 2! 2* cells 1578 lit + aligned 287 rot 0<> and 459 r@ execute or 1728 col: lit lit 6 2@ lit (?do) 21 cmove var: r> 647 r> does: @ 820 ;s var: col: 6699 xor cells var: 223 user: +! ;s 87 within 0= col: 1806 ;s con: user: 198 - unloop ;s 287 cr ;s ;s 1923 @ ;s + 39 swap con: col: 54 ;s over col: 1 con: lit ! 5 unloop 0<> lit 1 @ ?branch drop 307 ;s @ col: 6 ?branch cells var: 291 over ! lit 39500 <> ?branch lit 25 ;s 0= var: 53 @ ;s - 160 ;s 0= does: 11070 r> r> dup 1730 0< ?branch @ 1 dup >r lit 154 cells col: col: 6699 @ >r 2dup 647 lit (?do) i' 938 swap (?do) i 3 ?branch col: does: 113 ?branch r> user: 10 read-file ?branch rot 292 var: field: @ 1 ;s r> tuck 5 var: @ 1+ 142 lit over 0<> 7288 ;s user: @ 647 (?do) i' i 39 swap drop r> 7338 col: col: dup 1 noop var: @ 1 var: @ 1- 1 var: up! sp@ 708 col: >r swap 87 con: * 1- 61 ;s @ = 2202 nip nip execute 80421 0= ;s ;s 6 ! lit /string 125 dup >r ?branch 1 nip ;s ;s 5 2* cells resize 5 resize col: ?dup 2048 ! ! ;s 3 ?branch or >r 43 @ and ?branch 142 over 0<> ?branch 1 lit branch (+loop) 23697 @ ;s @ 7 ;s /does-handler col: 80415 = ?branch c@ 1 con: con: branch 508 lit (?do) unloop 3732 <> ?branch col: 161 @ >r user: 13 >r fp@ >r 68 ;s rdrop dup 3 execute does: 2@ 128 ! ;s user: 5 noop ;s col: 87 con: con: 1+ 1 ;s drop var: 11 execute cells ;s 1806 con: user: @ 997 over ! var: 287 2! col: col: 204 cell+ dup cell+ 2989 pick ! ! 142 ?branch faligned nip 1 ! (next) unloop 12 @ user: ! 6249 2dup >r >r 712 ;s ?branch execute 6 @ >r >r 23 branch 2dup + 1 con: / 1+ 1 dup ?branch dup 1027 var: @ field: 3 1- ;s branch 80726 cells rot + 4 col: >r ;s 869 col: col: defer: 1 ! fp@ user: 2383 ;s col: var: 56088 user: @ ;s 33 ;s ;s >r 3 and var: @ 14 ;s @ 1+ 160 c@ 0= or 39542 ?branch var: @ 11538 @ > ?branch 105 over 1+ r> 384 col: does: @ 253 over c@ lit 3 1+ ;s branch 1408 (?do) i col: 1250 swap (?do) con: 80428 @ = ?branch 27 ;s - dup 4 ;s swap 1+ 5730 ;s ;s ! 1058 ! branch ;s 2026 ! lit col: 475 ! user: col: 5730 - ;s con: 59 ?branch r@ execute 13 laddr# ;s >r 306 ;s c@ 0= 6 /string branch ;s 4 + ! (next) 53 var: ;s branch 223 r> ?branch 1+ 2 @ lit (?do) 15 con: open-file 0= 287 cr var: 2@ 5 r> rdrop lit 699 lit lit 2swap 204 dup 1+ pick 2 (loop) var: cell+ 1 ;s 2dup col: 110 r> ;s ;s 1730 + dup @ 1 lit ! lit 52 con: var: col: 25 and ?branch 2drop 3874 ;s ;s + 10 (loop) dup >r 1 > ?branch con: 933 ?branch lit (s+loop) 7 /does-handler col: col: 6 @ user: @ 233 c! does: @ 5877 @ r@ execute 5 ;s var: swap 325 ;s col: r> 4 (do) i over 1806 ! ;s ?branch 125 dup 0> 0= 98 over 0= 0= 5730 + swap does: 61 ;s @ swap 19 ;s ;s char+ 2 * allocate col: 394 - count lit 23 @ branch ;s 506 ;s r> over 18 lit ;s col: 148 toupper lit - 59 2dup 2>r col: 13 col: >r sp@ 1 ! ;s rp@ 1 cells col: swap 5 nip execute does: 5 + c@ lit 130 ;s lit user: 424 1- r> lit 1373 swap (?do) unloop 5 drop col: ?dup 147 um* drop rot 61 ;s ! branch 708 - ;s lit 6 >r dup allocate 15300 @ execute col: 6 nip execute aligned 33 ;s does-code! ;s 3 2drop ;s col: 648 i' i - 15 r@ + swap 1 var: col: dup 125 lit (?do) count 1 / ;s var: 933 (s+loop) dup i 279 ;s ?branch r@ 20 cell+ (loop) unloop 252 ;s dup 0= 6706 col: defer: col: 197 ?branch i - 1 ?branch con: cells 506 @ lit max 23 (loop) count col: 350 0= lit and 1153 lit max lit 291 ! dup @ 1138 - ;s var: 34 ! col: col: 287 var: 2@ rot 1 2drop dup >r 32 r> r> col: 8 @ ?branch ;s 82 over char+ col: 105 ;s col: over 11070 count + aligned 288 var: 2! col: 1 move ;s drop 279 ;s execute var: 292 ;s var: field: 997 u> lit and 11 drop = ;s 36913 var: +! ;s 1 ?branch r> col: 5 2dup 1+ var: 2818 dup ?branch over 1022 ;s dup user: 19 ;s drop con: 1 @ con: cells 2449 var: @ over 4938 cell+ dup c@ 8618 count defer: (type) 8 ?branch var: col: 421 0= ?branch does: 998 col: dup lit 5877 swap cell+ swap 1 2swap 2dup col: 5489 0= 0= ?branch 6 var: 2@ lit 15 swap cmove var: 3 nip execute lshift 280 ?branch 0<> swap 574 count ;s var: 143 ;s r@ col: 281 user: +! lit 2009 cr col: col: 86456 rot + swap 81 ;s col: con: 2113 ?branch rdrop ;s 38 r@ pick r@ 1550 branch ;s col: 287 - ;s 2dup 549 ?branch does: @ 7168 @ col: col: 653 lit (do) >r 1730 cells >r var: 1 (for) var: cell+ 1732 pick @ ?dup 292 var: @ con: 149 con: ;s ?branch 5962 ;s swap col: 5730 col: lit /mod 1416 ;s ! r@ 43 = ?branch var: 1005 ;s cell+ tuck 8618 ;s count defer: 80726 col: con: /mod 3533 ?branch drop 2drop 8324 @ ;s lit 39 con: lit ;s 281 = ?branch branch 1173 unloop drop ;s 279 dup r@ = 3 ?branch execute does: 708 pick does: @ 10 con: swap read-file 1 + dup user: 3 2@ nip = 647 defer: (type) (+loop) 8059 count lit and 997 ;s dup faligned 5 con: > col: 22388 ;s branch lit 394 + faligned over 1730 + var: @ 147 u>= ?branch con: 4909 c! ;s (loop) 725 execute col: >r 3018 dup @ 0< 708 >r swap dup 19 ;s col: >r 37 lit ;s ;s 147 drop rot user: 28 >= col: col: 35 drop does: @ 2756 ;s lit pick 25 0= var: @ 447 @ ?branch defer: 1765 ;s r> ;s 204 move drop r> 1251 and ?branch nip 197 ?branch drop lit 6735 swap c! ;s 147 swap >r swap 2415 + ;s ! 1 ?branch 2drop col: 39 0= ?branch swap 997 2drop 2drop ;s 105 r> move c! 5857 ;s over c@ 10 drop r> cell+ 1 r> or ?branch 965 >r r@ does: 915 con: over +! 147 d+ r> ;s 880 ;s ! does: 2037 nip execute col: 5 2dup or col: 66 dup con: ! 574 col: var: ;s 506 - does: swap 287 rot - ?dup 129 user: @ col: 5 0<> lit and 292 field: @ col: 3187 col: ?dup ?branch 5730 swap does: + 1130 user: @ dup 5 @ 1+ dup 105 move c! ;s 506 lit r@ um/mod 647 var: count col: 268 ?branch 0= swap 1 /string ;s var: 1 0< ;s branch 7 ;s cr 0<> 80421 lshift ;s swap 247 = ?branch drop 599 drop 2drop ;s 287 defer: (emit) var: 37489 var: @ var: 421 ;s c@ col: 24 ;s ! con: 28 @ swap var: 943 @ ?branch dup 1 @ ;s r> 997 defer: defer: col: 10 con: <> ?branch 1 >r over >r 7264 over <> ?branch 287 2dup var: 2! 3 and ?branch or 648 2@ col: col: 39 r> drop ;s 27 ;s r> drop 9782 ;s con: col: 87 lit col: 1+ 52 col: 2dup u< 506 over - does: 5 1+ 2* cells 5 ;s >body user: 997 @ ! branch 1 (?do) var: cell+ 56 ! cell+ tuck 87 1+ con: * 287 swap - rot 47 ;s col: 2dup 1730 ?branch @ over 7 +! ;s does-handler! 61 swap does: @ 129 2! ;s ;s 4536 + ;s @ 1 = ?branch lit 10 over + -rot 880 ! does: @ 15 >r 2@ dup 794 dup ?branch 2dup 987 2@ var: @ 285 i over col: 3 dup @ ?branch 3990 and ?branch ;s 2 @ (loop) var: 23 dup con: = 15 2dup var: r@ 1730 ;s xor cells 1616 0= ?branch rot 106 unloop 2drop con: 5 dup con: > 246 over min /string 6699 (hashfind) ;s ;s 291 >= ?branch ;s 5769 sp@ user: @ 5229 col: cell+ dup 121 - swap ! 574 @ col: swap 5 close-file swap 2dup 38 pick r@ pick 153 ;s 2! ;s 653 (do) >r over 2048 dup lit pick 197 = ?branch con: 226 noop col: col: 11 cells ;s branch 1 2drop drop con: 19 ;s col: drop 997 @ col: >r 1009 (type) ;s r@ 647 swap (?do) dup 2 count ;s compare 1735 dup ?branch ;s 147 >r swap user: 1730 dup ?branch drop 287 col: var: var: 4 dup count col: 11374 col: dup field: 19 cr 0= swap 160 0= or ?branch 6249 2dup + r> 1 2! ;s defer: 4 rdrop ;s lit 7 c@ lit <> 125 (?do) count col: 26 execute col: con: 5 ;s col: ?dup 113 ?branch col: over 1 noop ;s r> 39 col: con: lit 205 ?branch con: ;s 506 swap >r um/mod 149 ?branch dup user: 225 ?branch drop con: 5 execute over ;s 1730 rot ! r@ 28 swap var: ! 147 @ um* drop 12179 does: @ + 1 1+ col: cells 599 rot rot r> 1 ! var: ! 7 cell+ i cells 1 u>= ?branch drop 126 col: lit (?do) 895 execute col: @ 1 col: 2dup con: 958 ?branch @ lit 17 ?branch col: con: 26 ?branch over col: 12401 field: @ execute 5785 ;s ;s over 506 rot col: 0< 9124 defer: (type) ;s 3 ;s rot 2dup 126 >r col: lit 5 2! ;s branch 793 (type) ;s lit 3716 defer: (type) col: 223 dup r> ?branch 2 ?branch 2dup * 1 nip execute swap 694 ;s cr rdrop 566 +! @ c! 1 ;s col: 2swap 7 @ ;s /does-handler 5 ?branch 2dup + 11127 lit and ?branch 288 ;s dup var: 708 ;s + swap 287 ;s cr cr 791 ;s branch @ 3711 (+loop) 2dup i 23 count + c! 21 drop con: ;s 6699 (hashkey1) ;s r> 997 and ;s var: 3016 @ lit pick 1 fp@ user: ! 6226 defer: col: defer: 52 <> col: col: 3 defer: drop ;s 19 >r drop col: 156 nip branch dup 71 @ ;s >r 427 ?branch drop branch 3 @ ?branch ! 7 i cells + 6 aligned ;s branch 56 @ swap con: 16 >r >r dup 1 nip execute 0< 121 <> swap con: 4 nip execute 0= 1005 tuck c@ xor 10 cell+ cell+ (loop) 5877 over @ over 243 col: ;s ;s 898 ;s ;s con: 983 ?branch 2dup swap 5 > col: col: 6416 ! ;s dup 771 ;s cr ;s 291 over cell+ ! 27 drop r> col: 5 var: 2! 2* 66 nip ;s dup 292 ;s dup field: 4 branch over >r 3 nip = ;s 47 >r col: col: 1876 ;s >r ?branch 281 @ swap - 5 ?branch 2dup 1- 20 swap var: @ 6298 +! ;s c! 281 ;s lit var: 795 code-address! ;s ;s 5 lit branch unloop 15 swap cmove 2dup 9 ;s var: ! 998 ! var: @ 1 cells allocate col: 1730 cell+ ! r> 132 execute col: var: 66 nip ;s user: 223 min /string over 3 dup lit u<= 68 2dup col: col: 997 >r 2dup 2dup 12 r> ?branch dnegate 5 2@ nip 1- 52 = ;s 0= 1481 over +! @ 5 rdrop lit branch 12401 field: @ field: 1730 xor cells >r 125 lit 2swap dup 180 ;s cell+ (loop) 3553 cells over + 32 >r >r >r 142 dup >r col: 292 var: ! defer: 11070 dup count + 22 dup @ cells 1 branch dup >r 51 ?branch col: lit 1826 ?branch 2drop ;s 1005 cell+ tuck c@ 125 user: @ 0= 125 rdrop r> ?branch 647 move lit lit 1 lit (do) lit 80757 var: @ dup 66 dup var: 2@ 1730 col: lit pick 1 ?branch dup r> 898 ?branch col: var: 8388 dup col: col: 5769 fp@ user: @ 1 unloop 2drop drop 5 execute does: col: 2 execute col: 2dup 1 (loop) unloop var: 459 execute or col: 11070 + aligned >r 148 user: @ u>= 666 ! ;s cell+ 15821 ;s ;s dup 5 2! ;s var: 125 ?branch drop 2dup 258 branch ;s ;s 3 execute lshift ;s 204 rot move drop 7 ?branch defer: noop 287 2! var: 2! 33 col: r> /does-handler 28119 col: col: col: 997 r> col: dup 14 @ 1+ var: 105 rot over 1+ 119 drop ;s user: 3779 ;s var: @ 223 swap r> col: 204 @ ;s over 2714 ;s ;s var: 4080 col: @ @ 9 var: 2@ nip 708 2! con: + 915 @ ! ;s 7262 defer: col: col: 506 lit max col: 2288 ;s var: 2! 125 dup lit u< 506 col: >r tuck 1938 ?branch dup @ 41 ! ;s branch 7 noop col: r> 3553 execute col: drop 1145 dup lit u> 5877 over @ r@ 2516 user: @ ?branch 5730 c@ or swap 5166 xor and ;s 121 con: <> and 227 (f83find) ;s dup 133 ?branch drop ;s 2713 swap col: lit 287 ;s cr var: 1801 branch col: user: 1096 con: - dup 12 u<> ?branch drop 1416 aligned swap (?do) 1 ?branch 2drop dup 10977 @ ;s con: 6249 - 1+ r> 5654 ?branch nip nip 28 ! cell+ var: 518 execute col: user: 506 ;s ;s 2dup 197 con: (+loop) dup 3 col: cells var: 197 drop lit col: 1 rot drop ;s 281 ;s (loop) i 1 ! lit + 5 swap 2dup 1+ 1097 ;s ;s does: 5224 r> (loop) >r 13 col: col: does: 8 lit ! var: 3 @ ;s branch 4938 faligned ;s r@ 1005 @ dup 0= 2989 lit pick ! 125 @ dup 0> 5166 ;s 0= 0= 1515 var: ! ;s 142 col: lit over 10 rdrop rdrop rdrop 13144 0= ?branch lit 2989 dup @ lit 287 ;s lit defer: 3 or >r col: 223 1+ user: +! 915 col: con: over 5 >r col: swap 28 execute col: dup 196 code-address! ;s con: 1153 ;s var: 2@ 59 2rdrop branch ;s 16228 ;s ;s ;s 647 col: var: count 5 c! col: does: 1989 c! ;s col: 1702 unloop ;s col: 647 ;s 2@ col: 2048 lit pick + 689 col: r> dup 80515 @ dup var: 145 ;s ;s drop 224 drop con: branch 61 ;s @ r@ 776 unloop ;s lit 506 col: >r lit 160 0= does: @ 26 rdrop ;s col: 915 swap +! ;s 197 col: lit con: 2048 pick col: dup 647 c! var: count 286 drop branch lit 87 rdrop dup col: 5 2dup 1- + 61 = rdrop ;s 39 col: = 0= 1237 lit col: user: 1005 c@ xor swap 113 r> ?branch r> 1031 dup 0= col: 66 ;s 1+ var: 637 col: drop swap 287 (emit) col: col: 227 col: col: @ 6226 (parse-white) 2dup + 2 * ;s branch 6 ?branch ;s >body 1806 +! swap user: 2 @ ;s var: 5730 + c@ ;s 1876 >r ;s >r 6 >r ;s user: 281 user: @ swap 1732 lit pick @ 1018 +! ;s ;s 148 count col: user: 10 0= ?branch rdrop 2818 over c@ r@ 197 ?branch con: (+loop) 574 @ var: (?do) 1 ! ;s cells 5 branch unloop 0<> 647 i - lit 8 ;s col: does: 15 ;s r> user: 6325 >r user: @ 647 lit swap (?do) 52 col: con: <> 291 @ con: >= 892 2dup col: lit 3553 (do) 2dup i 291 var: @ >r 1 col: con: 0= 1580 i con: col: 1842 lit user: ! 440 ! drop ;s 708 ;s + rdrop 223 ?branch 1+ user: 2 ;s compare 0= 6249 @ ;s 2dup 1806 read-line col: ?dup 130 col: nip swap 1 tuck - lit 21 ?branch con: min 768 var: 2@ col: 25 >r lit col: 647 var: nip unloop 287 0<> rot 0= 2777 ?branch ;s col: 121 and col: col: 971 ;s ?branch var: 689 >r @ col: 125 lit u< ?branch 27 xor invert ;s 600 col: >r con: 25 col: lit var: 52 u< ?branch = 1022 ! ;s code-address! 5 c! 1+ col: 125 ?branch 2drop rdrop 2 ?branch dup defer: 7 execute ! ;s 5730 col: con: - 4938 c@ >r col: 506 lit + col: 1 cells col: lit 1 col: con: / 635 @ var: 2@ 5 rdrop ;s nip 1 con: cells allocate 80726 + swap ;s 1 i - unloop 2818 c@ r@ <> 997 lit and ;s 4938 dup c@ >r 1407 (+loop) unloop ;s 1616 rot cell+ swap 6249 1+ r> min 1806 lit user: +! 59 0= ?branch r@ 2 2dup * allocate 281 col: dup negate 129 lit user: @ 5 cells + 2! 180 dup @ col: 1 2* ;s branch 23 ;s (loop) count 105 drop ;s col: 5 unloop ;s swap 6041 +! ;s col: 1421 col: dup does: 718 (+loop) i col: 14 over col: 2dup 3553 dup @ 1- 1436 0= col: col: 225 col: con: @ 1 i 1+ col: 1616 rot rot cell+ 1 execute mod ;s 1 ;s >body @ 958 @ lit r@ 233 defer: noop col: 506 r> ;s rot 24 @ ;s does: 297 var: ! col: 7 ?branch branch rdrop 23 rot dup con: 1730 drop r@ @ 5739 c@ ;s ;s 268 and ?branch 0= 305 @ or swap 506 rot lit over 2 execute * ;s 41261 ?branch lit col: 28 ?branch con: - 105 over >r rot 10 + -rot con: 4408 ?branch defer: col: 2 branch lit pick 1730 lit cells lit 4080 var: col: @ 7264 i 2@ over 287 0= rot 0<> 23 c! col: col: 291 2drop r> var: 125 0= ?branch user: 276 - dup lit 23463 +! ;s branch 3309 var: col: con: 3082 lit and col: 243 execute col: ;s 29805 ;s ?branch lit 3 2dup and var: 506 r@ um/mod r> 54 2drop r> ;s 1122 col: @ (f83find) 647 min 2dup defer: 15 and ?branch con: 5 over >r lit 197 con: (do) dup 2658 dup ?branch 0> 1 user: ! over 6 user: @ = 1 - lit cells 1 2@ nip var: 2982 ;s branch branch 11538 user: @ > 933 lit (s+loop) dup 10 rot over + 5877 cell+ swap cell+ 2 col: dup ! 12 user: @ user: 3553 + (do) 2dup 204 >r cells sp@ 2 0= col: 0= 574 0= and ?branch 1875 ?branch col: user: 5 1- user: ! 675 (loop) unloop drop 14 ;s ?branch over 281 - col: dup 187 col: dup con: 3 ! (next) var: 15 + dup >r 105 col: over >r 16728 @ ;s +! 1 <> ?branch i 49 ;s >r col: 23 ;s count + 973 ;s ?branch ;s 59 rot col: col: 4 lit swap 1+ 80730 swap ;s col: 291 - var: over 289 ! defer: col: 2 i col: cells 1 sp@ dup user: 1 execute + ;s 9194 >r ;s count 19 swap lit col: 1372 ! ;s col: 997 col: >r 2dup 3576 swap ! ;s 66 con: ! col: 39 con: col: = 11 ?branch ;s swap 767 - 1- dup 5166 lit xor and 280 ?branch con: does: 789 ?branch drop ! 3 ;s nip 0<> 5730 / col: col: 1 var: 2@ 2* 507 + @ execute 87 col: con: con: 2 + (loop) unloop 8 lit col: var: 23 drop (parse-white) branch 1 execute 0< ;s 574 2swap swap (?do) 23 ;s @ branch 1 ;s lit branch 3435 ?dup ?branch ;s 1730 0= ?branch >r 8 (loop) lit col: 394 faligned over lit 2837 col: dup @ 3553 drop con: ?branch 225 r@ execute and 39 >r dup 0= 347 >r r@ col: 1478 (?do) unloop ;s 173 ;s cr ?dup 15785 @ + ;s 1 branch (+loop) i 5730 or swap c! 19 ;s cr 0= 84 dup @ swap 291 var: over cell+ 59 drop ;s swap 119 u< ?branch drop 9166 ;s ! ;s 708 + ;s 2! 281 lit var: ! 2874 @ ?branch col: 223 rdrop ;s >r 6 u< ?branch cells 3 lit u<= ?branch 14 @ var: ! 27 execute col: xor 9 allocate col: ?dup 204 cells sp@ cell+ 13 >r rp@ user: 30 user: ! r> 22 col: var: dup 646 ;s @ var: 637 drop swap - 148 lit u> ?branch 941 ! ! branch 6 col: r> user: 4 execute 0= ;s 1731 col: lit fill 3533 2drop lit (+loop) 2 (?do) dup lit 2375 dup does: @ 82 char+ col: col: 1802 col: col: sp@ 647 col: lit does: 133 ;s lit lit 78 ?branch con: branch 1 @ 1- dup 647 lit does: swap 3447 nip nip unloop 129 0= ?branch nip 121 swap con: <> 3356 2@ defer: (type) 146 c@ 0= ?branch 5 @ >r col: 708 + rdrop ;s 231 swap col: col: 39 0= ?branch over 247 drop branch ;s 1 1+ dup var: 13 col: laddr# ;s 3 nip execute 1+ 5924 ;s branch col: 10 r> cell+ cell+ 3 nip execute 1- 3435 @ ;s dup 197 (+loop) dup i 506 ?branch lit + 5 2dup lit col: 56760 col: user: @ 3915 + ;s 2@ 78 ;s drop branch 3 ?branch lit - 5769 col: sp@ user: 36920 @ var: @ 194 ;s ?branch 2dup 1 ! ?dup ?branch 5 ;s branch dup 75 ! ;s swap 281 ;s 0= col: 129 0= ?branch con: 394 + = ?branch 5252 r@ execute col: 1 nip execute field: 566 lit over +! 6 var: + @ 6436 @ ;s ;s 1437 negate ;s ;s 197 lit con: (do) 444 ;s lit cells 1416 i col: dup 5166 col: lit xor 440 user: ! drop 23 +! ;s user: 106 lit (+loop) unloop 1421 lit col: >r 1730 r@ swap col: 1730 cells lit col: 395 ?branch lit @ 997 2dup r> col: 287 - rot rot 5 c@ ?branch con: 20366 ;s dup ?branch 469 var: (?do) i 2655 ;s + ;s 146 ;s ?branch drop 1730 ?branch >r drop 19 con: - swap 3874 does: @ col: 350 dup 0= lit 291 ! lit var: 715 ;s ?branch branch 124 cr ;s col: 5 ?branch r> r> 4563 (type) ;s cr 153 lit cells col: 175 r> user: ! 647 var: c! var: 1013 swap dup col: 19 char+ c@ ;s 473 drop col: col: 1250 (?do) con: col: 6 >r >r ;s 895 (f83find) ;s ;s 574 lit defer: (emit) 1296 ;s does: @ 105 1+ r> move 3843 user: ! lit 292 dup field: dup 10955 ;s ;s 0= 6699 @ (hashfind) ;s 227 ;s defer: noop 121 ;s over - 979 (type) ;s ;s 147 @ um* d+ 21 var: r> ;s 5 user: ! >r 506 >r lit r@ 4938 ;s r@ lit 6 dup ?branch rdrop 2158 over - ;s 958 0= ?branch @ 197 i - con: 1578 + aligned ;s 647 ;s var: c! 19 drop >r drop 1 (?do) unloop 2drop 708 + swap dup 28 cell+ var: ! 10 ! rdrop rdrop 37213 0= ?branch var: 1 / 1+ dup 5 over r> tuck 5332 lit and + 1 = ?branch dup 2658 ?branch 0> ?branch 227 noop ;s ;s 8 ;s (loop) lit 4 count col: var: 11233 col: col: r> 15 r> + dup 647 (?do) dup i 304 con: does: @ 287 2@ rot swap 305 ;s over @ 1255 (loop) unloop ;s 231 <> ?branch rdrop 130 2@ col: nip 140 con: ;s ;s 1 r> col: var: 6226 user: @ /string 6 r> user: @ 5 1+ dup con: 1437 ?branch negate ;s 1 nip var: 2! 1288 0< ?branch var: 506 col: 2drop col: 13223 +! ;s lit 1018 move ;s col: 53 - col: col: 997 ?branch 2drop 2drop 33 r> /does-handler + 80415 ?branch c@ ;s 125 ?branch user: @ 5730 does: + c@ 2 nip execute >body 2 0= ?branch 2dup 311 ! col: var: 1005 rdrop ;s cell+ 78 branch ;s lit 2588 /string branch dup 837 @ 0= ?branch 4 branch ;s does: 4 rot (do) i 28 dup lit >= 3043 @ 0< ?branch 3 execute @ ;s 733 r> col: >r 5730 col: con: dup 291 ;s rdrop ;s 708 lit pick does: 23 ;s @ ?branch 5 + 2! ;s 39 = 0= col: 3 does: 2@ ;s 6 swap 2dup r> 1416 swap dup r@ 147 or ?branch con: 506 d0= ?branch ;s 574 ;s var: var: 4 0= ;s branch 647 execute var: nip 1148 (type) ;s var: 105 var: (?do) unloop 197 0= ?branch drop 506 drop ;s defer: 125 2swap dup >r 15 2@ dup >r 287 rot rot - 6699 r> xor cells 2025 var: 2! ;s 719 2drop ;s ;s 87 1- >r r@ 3421 @ does: @ 997 col: cell+ count 506 >r col: dup 3775 ?branch cell+ swap 1437 and ?branch negate 5 nip nip r> 15 open-file 0= ?branch 87 1+ within 0= 2 ! user: ! 708 ;s 2! con: 5730 con: - ;s 6699 + @ >r 6 2dup r> -rot 12 con: ! ;s 4080 @ @ ;s 1616 drop con: rot 4938 lit and 0= 1 lit (?do) var: 3553 lit col: drop 1 nip execute mod 708 ;s execute col: 114 ?branch ?dup ?branch 1 execute 2* ;s 156 branch dup @ 1811 ! lit user: 1 ?branch lit (bye) 1806 @ ?dup ?branch 25 var: +! col: 80421 @ and 0= 82974 ;s col: lit 6 ?branch r@ user: 1 dup lit = 576 ;s count ;s 196 con: col: lit 394 lit + = 11 2@ drop = 5877 swap r> (loop) 5877 cell+ swap r> 4 swap 1+ rot 36 + ;s col: 1 execute field: ;s 4938 + faligned ;s 6699 lit + @ 246 @ over min 647 ;s dup r> 305 over @ or 4 >r ;s ;s 5 swap c! 1+ 708 @ ;s execute 305 lshift ;s over 4 1+ /string ;s 708 ;s branch ;s 1634 ;s 2@ defer: 16 lit lit ;s 394 over lit + 459 or col: col: 7 does-handler! ;s branch 1 2! col: var: 3967 branch col: sp@ 372 ;s col: defer: 1578 aligned ;s con: 291 defer: col: cell+ 1153 max lit (?do) 3 nip execute 2drop 21 con: min >r 121 over - swap 11070 >r swap >r 47 execute con: ;s 7264 2dup i 2@ 3 u> ?branch lit 231 ?branch col: r> 16 ! ;s r> 12 /string col: over 2337 var: @ ;s 506 - dup ! 7 execute col: 0= 36916 ;s col: 0= 4529 ?branch col: dup 16 r> r> r> 80726 con: /mod cells 14 <> ?branch 2dup 6 ! user: @ 5 2dup + lit 1731 lit + dup 125 col: over c@ 1730 @ over cell+ 527 ;s r> col: 1013 ;s swap dup 280 ?branch 0<> swap 0= 287 col: var: var: @ 287 var: ! ;s lit 216 execute col: defer: defer: 28 ?branch con: - dup 3980 0= ?branch lit r@ 979 defer: (type) ;s ;s 708 + rdrop ;s con: 873 ;s col: lit lit 78 con: = ?branch col: 507 does: @ does: @ 194 ;s ?branch 2dup swap 1 col: lit (?do) unloop 201 col: ;s ;s branch 1 var: ! ?dup ?branch 1093 (?do) unloop ;s col: 121 @ ;s ;s var: 279 ?branch ;s ;s 0= 233 ;s c! does: @ 3 ;s ?branch execute does: 156 branch dup @ dup 275 ;s ;s col: r> 5 rdrop ;s nip ?branch 647 lit min 2dup defer: 1 execute col: dup ! 1730 var: @ + var: 6249 1+ r> min user: 506 ;s col: 2drop col: 5730 - ;s con: / 16 lit lit ;s ;s 653 r> (loop) unloop drop 6 rdrop ;s var: ! 5 cells + 2! ;s 5 ;s branch dup ?branch 142 ?branch faligned nip ;s 197 ?branch i - con: 1 rot drop ;s nip 997 count lit and ;s 1806 ?dup ?branch ;s branch 8 ;s (loop) lit col: 5704 var: @ col: col: 3553 col: drop con: ?branch 1 (+loop) i col: cells 231 swap col: col: col: 11 ?dup ?branch ;s swap 11070 dup count + aligned 30 user: ! r> user: 506 over < ?branch lit 689 col: r> dup cell+ 506 r@ um/mod r> swap 45 ?branch ;s col: user: 5730 + swap does: + 5 @ var: @ 1+ 41 0= and ?branch col: 647 cr ;s con: (+loop) 23 +! ;s user: @ 915 col: lit swap +! 129 ;s lit user: @ 1 = ?branch dup var: 82 move c! ;s col: 647 col: var: count col: 3 ?branch or >r col: 86 ! does: @ col: 18 col: col: col: defer: 997 @ over ! var: 6249 2dup >r >r user: 16 code-address! ;s ;s r> 5166 r@ execute col: lit 147 u>= ?branch con: ;s 506 max col: >r lit 2124 does: @ + @ 1 ?branch ;s ?branch 2rdrop 125 r> user: ! ;s 3659 ;s (loop) con: col: 883 var: ! ;s ;s 1 var: 2! col: var: 1730 and col: con: (hashkey1) 147 swap user: @ um* 60 ;s col: con: @ 160 c@ 0= or ?branch 223 min /string over swap 574 count ;s var: 2! 5 c! col: does: @ 8 @ lit ! var: 1 2@ 2* cells col: 196 con: col: lit lit 2 drop con: ;s ?branch 102 +! ;s ;s branch 121 ;s con: = ?branch 124 (loop) unloop lit branch 2989 @ lit pick ! 154 col: col: col: con: 446 ?branch ;s col: 2drop 647 ;s ;s dup >r 6 ;s var: ! col: 997 @ col: >r 2dup 6699 >r 2dup col: con: 291 lit var: +! var: 938 swap (?do) i col: 16 ;s r> r> col: 173 @ col: col: user: 1806 ?dup ?branch read-line col: 717 ;s con: (+loop) i 279 @ dup r@ = 1 execute swap ;s branch 3553 cells over + (do) 976 ?branch var: @ col: 4514 lit and ?branch r> 5 2! ;s ;s con: 3 2@ ;s con: branch 1 - ?branch dup user: 951 0> ?branch nip nip 1 ?branch execute con: con: 31 ;s col: r> /does-handler 19 col: >r >r lit 915 @ ! ;s ;s 28 ?branch rdrop ;s tuck 1806 ;s con: user: @ 1 var: @ ;s over 5 col: dup ?branch r> 1730 rot ! r@ swap 506 r> ;s rot lit 892 +! ;s ;s ;s 1 rdrop ;s var: @ 227 ;s dup 0= ?branch 997 @ ! branch ;s 552 ! ;s col: col: 1730 @ + var: @ 997 2drop 2drop ;s var: 28 ! cell+ var: ! 1416 + ;s ! r@ 36915 0= ;s ;s col: 16 dup >r col: col: 18 lit ;s col: con: 1616 0= ?branch rot drop 85066 col: col: var: @ 25 execute col: col: lit 1 2@ lit (?do) unloop 506 lit max col: >r 1730 >r var: lit cells 59 ?branch 2rdrop branch ;s 1 swap ;s 2dup col: 3 does: 2@ ;s con: 2 dup defer: col: cell+ 728 user: col: con: swap 224 ?branch drop con: branch 287 2@ defer: (type) lit 132 col: var: col: col: 446 0< ?branch ;s col: 52 ?branch = ;s 0= 12401 @ field: @ execute 4938 ;s dup ?branch col: 8 ;s col: does: @ 3 ;s con: branch ;s 6 nip nip execute aligned 49176 col: user: @ ;s 61 @ = rdrop ;s 87 con: con: 1+ within 12 drop ;s dup col: 2818 ?branch over c@ r@ 1806 read-line col: ?dup ?branch 3 1+ var: 2@ nip 574 @ col: swap (?do) 127 var: +! ;s col: 24 ! con: does: @ 3533 <> ?branch drop 2drop 8321 ;s @ ;s lit 15 dup >r con: open-file 225 r@ execute and 0= 2853 ;s @ does: @ 196 code-address! ;s con: col: 3025 col: user: @ ?dup 647 var: count col: col: 19 >r lit col: 1+ 6298 ;s +! ;s c! 25 0= var: @ and 19 @ ;s ;s char+ 1 (loop) unloop var: @ 5 r> user: ! col: 111 and ?branch col: col: 194 ;s ;s ?branch 2dup 1 ?dup ?branch 1- (for) 23 r> ;s (loop) count 3980 and 0= ?branch lit 6 drop con: branch ;s 24 var: @ ;s does: 3 col: lit col: 0= 689 r> dup cell+ >r 231 <> ?branch rdrop ;s 136 drop r> ;s r@ 4 ;s lit swap 1+ 997 ?branch 2drop 2drop ;s 196 ;s con: col: lit 280 0= and ?branch 0<> 6 r> user: @ >r 15 cmove var: over r> 8 var: var: ! ;s 789 dup ?branch drop ! 223 /string over swap r> 81 col: col: defer: col: 2 drop col: r> /does-handler 506 - dup ! ;s 14 r@ col: does: @ 13 ;s ;s r> ;s 506 tuck - ;s r> 287 2@ var: 2@ rot 13 execute col: col: does: 18 con: lit ;s col: 36 @ >r user: @ 1 swap col: 2dup con: 19 ;s ;s col: >r 387 ?branch lit @ execute 21 var: r> ;s ;s 9 var: ! ;s col: 130 nip swap - 1- 506 @ tuck - ;s 654 ;s col: var: col: 507 ;s + @ execute 6 +! user: @ user: 224 = ?branch drop con: 708 i col: >r swap 5 ;s c@ ?branch con: 305 ;s over @ or 31 user: ! ;s var: 125 = dup >r ?branch 2048 ! ! ;s lit 147 @ u>= ?branch con: 125 @ dup 0> 0= 708 @ ;s + rdrop 146 ;s ;s ?branch drop 305 over @ or swap 53 execute drop ;s branch 2 0= col: 0= ?branch 506 >r tuck dabs col: 26 nip execute col: con: 506 ;s 2dup d0= ?branch 506 ?branch lit + col: 647 r> does: @ + 16 lit lit lit lit 25 ;s dup 0= col: 21 var: r@ cmove var: 5732 ;s ;s over c@ 647 max lit (?do) i' 574 var: @ col: swap 1 var: col: dup ! 997 ?dup ?branch 2drop 2drop 27 ;s r> drop col: 3 2dup and var: @ 245 col: 2dup col: lit 6 execute aligned ;s branch 13 drop col: var: col: 20 swap var: @ lit 6226 (parse-white) 2dup + r> 7575 user: @ ;s user: 13 col: col: con: col: 12 ;s ;s con: ! 647 drop ;s ;s defer: 647 ! does: @ + 1 (next) unloop ;s ;s 291 var: @ 0= ?branch 281 = ?branch branch drop 43 ?branch con: ;s lit 1416 ! r@ does: @ 5 ?branch ;s >body user: 5 nip 1- user: ! 80726 lit swap lshift ;s 8 var: @ lit ! 6 cells var: + @ 3553 drop var: dup @ 12 >r ?branch lit /string 1416 @ ;s dup aligned 5 ?branch rdrop ;s nip 5 col: var: 2@ tuck 25 var: +! col: var: 394 + faligned over lit 1 ;s 2dup col: var: 17 ;s r> col: col: 180 dup @ col: col: 829 rdrop ;s ;s con: 4 rdrop ;s lit swap 1022 ! ;s code-address! ;s 9586 ;s con: col: col: 148 dup lit u> ?branch 52 col: con: <> col: 237 col: >r dup ?branch 25 1- var: 2! ;s 16 >r >r dup >r 56 dup @ swap con: 38 r@ pick r@ pick 7 ;s branch con: defer: 27 col: xor invert ;s 7 nip nip execute ! 4 col: col: lit var: 11374 col: dup field: @ 1616 drop con: rot rot 1 ?branch ;s >body @ 4938 ?branch col: cell+ dup 647 unloop drop ;s ;s 861 col: var: 2@ var: 291 @ dup ?branch 2drop 6 r@ user: +! user: 80421 swap @ and 0= 288 ;s var: 2! col: 5 ?branch rdrop ;s over 160 ;s cell+ (loop) dup 21 user: @ ?branch con: 1 + ;s branch col: 27 ;s ;s r> drop 1 dup ?branch 2drop col: 6276 >r >r user: @ 59 ;s branch over 0= 43 = ?branch var: @ 647 ;s dup r> does: 34 ! col: col: user: 19 ;s ;s drop con: 4 branch ;s does: @ 291 var: @ con: >= 1731 col: lit fill ;s 441 drop ;s ;s branch 54 ;s >r var: @ 2 nip nip execute * 291 ?branch ;s lit cells 938 (?do) i col: dup 307 ;s dup does: @ 1 nip nip execute + 4938 and + faligned ;s 28 + ;s col: r> 5 ?branch r> r> user: 1730 tuck cell+ ! r> 31 ! ;s branch ;s 5 dup con: > col: 287 0= swap 0<> and 1616 rot rot cell+ swap 8 unloop ;s ;s branch 1732 @ ?dup 0= ?branch 173 con: @ col: col: 5 2! ;s var: 2@ 5 ;s >body user: @ 1580 i con: col: col: 1 ;s ?branch 1- i' 1730 con: (hashkey1) ;s xor 121 ;s ;s con: = 227 @ (f83find) ;s dup 1 lit = ?branch lit 3533 over <> ?branch drop 11 con: ! ;s ;s 469 @ var: (?do) i 35 >r col: 2dup col: 689 >r @ col: col: 147 d+ r> ;s (loop) 28 ;s ;s col: con: 53 ;s ;s over col: 113 ?branch r> user: ! 234 nip execute col: lit 402 ?branch does: @ col: 1 var: @ lit > 59 rot col: col: col: 1 noop ;s r> col: 950 @ does: @ col: 653 lit (do) >r over 3553 + (do) 2dup i 1250 swap (?do) con: col: 73 nip execute col: var: 566 lit over +! @ 1 (?do) var: cell+ i 789 @ dup ?branch 2dup 291 col: cell+ dup @ 1 0= r> or ?branch 22 ;s ;s swap col: 457 col: defer: col: defer: 5730 + c@ ;s ;s 2 count ;s compare 0= 305 col: swap col: con: 440 ?branch defer: col: col: 10 ?branch rot over + 6699 @ (hashfind) ;s ;s 5769 > ?branch fp@ user: 246 @ over min /string 287 swap 0<> and ?branch 152 dup ?branch ;s ;s 1737 2! ;s lit col: 3 cells + @ (loop) 1 open-file col: col: r> 708 code-address! ;s ;s col: 15 >r con: open-file 0= 647 execute var: nip unloop 1 user: @ >r var: 223 col: >r defer: col: 13 user: @ >r rp@ 3 nip execute @ ;s 147 ?branch con: ;s ?branch 1 col: 2dup con: swap 653 (do) >r over @ 75 r> col: col: col: 236 0<> and ?branch ;s 1 / ;s var: 2! 3 nip nip execute @ 6226 @ /string (parse-white) 2dup 125 ! ;s over c@ 204 cell+ rot move drop 125 swap ! ;s over 506 lit (?do) unloop drop 47 ;s col: 2dup col: 61 execute var: @ does: 5 swap 2dup or col: 2202 ?branch nip nip execute 4909 ;s c! ;s (loop) 4938 r@ lit and 0= 11 1+ var: 2@ drop 789 @ dup ?branch drop 2 ?dup 0= ?branch 2dup 33 user: @ ;s does-code! 6 r> -rot move ;s 28 dup @ swap var: 2 nip execute col: 2dup 311 ! ;s lit col: 35 @ ?branch var: @ 3 var: 2@ nip = 32 r> r> col: col: 197 ?branch con: (+loop) dup 68 drop r> ;s rdrop 2 <> ?branch ;s ;s 5 @ execute col: dup 6 dup ?branch rdrop ;s 18 c@ 0= ?branch col: 28 <= ?branch con: - 16 @ ;s >r col: 3 nip execute lshift ;s 3 ?branch ;s nip 0<> 23 @ ;s count + 511 ;s lit col: >r 156 ?branch nip branch dup 2 (loop) unloop drop branch 2048 lit pick col: dup 2488 col: user: @ ?branch 626 ?branch col: col: r> 39 = 0= col: col: 2 branch @ dup @ 1730 r> ;s tuck cell+ 12 swap ! ;s con: 15 swap cmove var: over 1153 swap lit max lit 6912 defer: col: col: user: 8 ! ;s branch col: 647 2@ col: col: dup 3 ;s +! ;s ;s 1 ?branch r> col: var: 5 ;s ?branch ;s r> 1 @ u>= ?branch drop 5 dup ?branch 2dup 1- 156 nip branch dup @ 789 ?branch col: dup @ 708 ;s ?branch branch lit 66 col: dup con: ! 959 ;s ;s col: var: 11 2@ drop = ;s 3533 2drop lit (+loop) 2dup 7 @ ;s /does-handler col: 147 swap >r swap user: 7 ?branch rdrop ;s var: 66 dup var: 2@ col: 3 - dup lit u<= 3553 execute col: drop con: 6249 min user: ! ;s 1 ;s compare 0= r> 1580 con: col: col: dup 281 ;s (loop) i over 1002 ;s user: ! lit 3420 +! ;s ! ;s 13 user: ! execute col: 1730 drop r@ @ rot 119 lit u< ?branch drop 23 dup con: = ?branch 305 lshift ;s over @ 468 lit lit ! user: 7 execute ! ;s branch 11374 dup field: @ field: 11070 col: r> r> dup 125 c@ lit = dup 708 ;s ;s ?branch branch 148 toupper lit - dup 997 col: defer: defer: col: 287 ;s 2dup var: 2! 5 branch unloop 0<> lit 19 ;s r> r> rot 4 lit /string branch over 647 ;s 2@ col: col: 10 r> user: ! rdrop 111 execute col: var: col: 708 lit pick does: @ 287 rot 0<> and ?branch 24 execute col: col: con: 647 count col: col: col: 2989 lit pick ! ! 6646 col: col: dup field: 204 >r cells sp@ cell+ 3967 ;s branch col: sp@ 1 col: var: @ 1- 281 lit var: ! ;s 121 col: dup col: dup 473 dup ?branch drop col: 28 ! ;s ;s r> 5 + ;s c@ ?branch 2 var: ! ;s branch 704 ;s 0= ?branch ;s 4 drop ;s swap 1+ 7 nip execute col: 0= 3 1- ;s branch col: 5 unloop 0<> lit and 28 lit >= col: col: 61 ;s @ = rdrop 150 2drop ;s does: @ 5730 col: lit /mod rot 5 ;s col: col: lit 599 rot rot r> var: 12 ?branch over col: lit 429 (type) ;s cr rdrop 80421 and 0= 0= ;s 1 drop ;s nip ;s 25 - ;s 1- var: 2 ;s over lit (?do) 599 r> var: @ lit 20 @ ;s swap var: 125 col: over c@ lit 125 c@ lit - dup 3 execute @ ;s branch 87 con: * 1- >r 80428 ;s col: col: con: 21 @ ?branch con: min 1771 ?branch col: col: col: 1031 dup 0= col: col: 294 dup ?branch col: col: 128 ;s 2drop ;s does: 6699 lit + @ >r 196 ;s code-address! ;s con: 125 lit lit 2swap dup 8 swap ! ;s var: 5 ! col: ?dup ?branch 291 2drop r> var: ! 68 r> ;s rdrop dup 4938 dup c@ >r col: 16 col: >r >r >r 958 0= ?branch @ lit 125 ;s user: @ 0= 647 min 2dup defer: (type) 197 drop lit col: lit 2 over lit (?do) dup 53 ;s - col: col: 5730 /mod rot + swap 637 var: 2@ col: drop 880 + ;s ! does: 19 drop col: var: @ 18 + ;s ! col: 66 2drop branch ;s branch 18 ;s ! col: var: 28 ;s ! ;s + 5730 con: dup @ + 1 ;s col: 2swap 2dup 129 lit user: @ col: 1730 lit col: lit pick 28 @ swap var: ! 19 ;s ;s col: drop 1416 ;s dup aligned swap 126 dup >r col: lit 204 col: dup 1+ pick 11 nip execute cells ;s 5 swap 2dup 1+ var: 13223 var: +! ;s lit 33 con: col: col: defer: 1923 + @ ;s + 666 ;s ! ;s cell+ 421 + ;s c@ col: 1 col: con: / 1+ 1875 ?branch col: user: @ 13 ?branch drop ;s dup 142 over 0<> ?branch faligned 5 user: ! >r ;s 39 0= ?branch over 0= 8 ?branch var: col: con: 25 ?branch rdrop ;s 0> 226 ! ;s ;s defer: 142 0<> ?branch faligned nip 3 nip execute 1+ ;s 5 2dup or col: dup 106 2drop con: ;s ;s 506 um/mod r> ;s rot 1 2! ;s ;s ;s 997 ?branch var: @ @ 227 defer: noop ;s ;s 36913 @ <> ?branch lit 23 @ branch ;s col: 1616 ?branch rot drop con: 20 (do) dup @ col: 1 branch dup >r col: 2046 (loop) dup lit pick 121 over - swap ! 915 over +! @ ! 8 lit ! var: var: 3447 dup ?branch nip nip 148 = ?branch toupper lit 979 (type) ;s ;s col: 506 0< ;s r> col: 19 pick r@ pick rdrop 1 ;s >r over >r 15 ;s ;s ;s var: 1 dup user: ! over 23 + ;s @ branch 1 execute field: ;s branch 365 execute col: col: var: 22 branch ;s r> ;s 227 execute col: col: @ 37205 0= ?branch var: @ 2 dup @ ?branch dup 9 ?branch col: dup col: 1437 ?branch negate ;s ;s 653 @ lit (do) >r 2 execute * ;s branch 120 ;s 2drop ;s ;s 708 over - ;s lit 3 swap ! ;s user: 2471 @ does: @ + 1 nip execute swap ;s 2 /string ;s ;s over 2583 (type) ;s cr col: 26 swap drop branch ;s 8 0= ?branch var: col: 7264 i 2@ over <> 4938 >r col: count lit 36915 var: @ <> ?branch 350 ;s col: dup lit 15 execute col: >r col: 279 ;s ?branch r@ col: 1012 ;s con: - dup 34 cr ;s col: var: 1 var: ! var: ! 143 drop branch ;s dup 1 swap ;s branch col: 145 u> ?branch dup user: 223 dup r> ?branch 1+ 6 >r >r ;s user: 20 @ lit (do) dup 11070 count + aligned >r 1013 swap dup col: col: 6226 defer: col: defer: col: 1730 ?branch @ over cell+ 5 lit swap c! 1+ 23 col: lit lit col: 113 ?branch col: over c@ 3659 (loop) con: col: col: 19 swap lit col: 1+ 16 lit lit lit ;s 21 r@ cmove var: r> 78 swap ! ;s drop 1 -rot move ;s drop 1730 @ rot ! r@ 2009 ;s cr col: col: 1 ;s compare 0= >r 3 nip execute 2drop ;s 6702 var: @ + @ 2828 ;s col: col: var: 2183 @ execute col: col: 82 char+ col: col: user: 60 ;s ;s col: 2drop 19 ;s drop con: ;s 5769 > ?branch ;s defer: 2 execute col: 2dup col: 5 con: > col: col: 51 ?branch col: lit col: 5730 or swap c! ;s 1251 ?branch lit and ?branch 3553 1- cells over + 1546 ;s ;s col: lit 128 0= ?branch con: does: 197 col: lit con: (do) 789 drop ! ;s var: 11538 user: @ > ?branch 7 ?branch defer: noop col: 10491 ;s ;s 0= ?branch 3 @ ?branch ! ;s 647 unloop ;s dup r> 647 ! ;s dup col: 1 (?do) unloop lit branch 5877 >r over @ over 4 ;s swap 1+ rot 156 @ dup ?branch nip 3 col: cells var: @ 15 @ and ?branch con: 708 pick does: @ + 5758 (hashfind) ;s ;s dup 122 ;s var: @ ?branch 279 ;s execute var: @ 7 con: defer: noop ;s 6 user: @ = ?branch 61 + ;s @ r@ 1247 ;s ;s + @ 911 faligned swap (?do) con: 10 ?branch rdrop drop r> 2158 col: var: @ over 29 ;s over col: col: 2852 ;s ;s ;s ;s 6699 execute col: lit + 115 con: ;s ;s ;s 66 ! ;s ;s 2drop 1 1- dup 0= col: 142 col: lit over 0<> 148 dup user: @ u>= 16 ;s >r col: col: 27 invert ;s col: col: 506 - dup @ tuck 1247 ;s + @ ;s 33 @ ?branch col: col: 19 ;s cr 0= swap 66 @ dup var: 2@ 599 con: rot rot r> 1 col: var: 2@ lit 3 var: @ ;s lit 4 (do) i over col: 1 unloop var: @ ;s 19 >r >r lit col: 1416 dup aligned swap (?do) 24 @ ;s does: @ 1260 ;s c! ;s col: 121 ;s over - swap 121 ;s ;s ;s drop 1 execute col: lit user: 2 @ ;s var: ! 2048 ;s lit pick + 291 over cell+ ! dup 4 ;s col: col: 2dup 997 dup faligned swap (?do) 1 ;s defer: noop var: 1 nip var: 2! ;s 4 branch over >r lit 2003 ?branch ;s col: col: 27 ;s - dup ?branch 18 ?branch ?dup ?branch col: 1 @ con: cells col: 1 lit > ?branch con: 890 @ ;s col: col: 1 execute col: con: / 394 - count lit and 1357 ?dup ?branch ;s ;s 16 >r dup >r col: 1 var: ! var: @ 1386 ! ;s ;s dup 647 defer: (type) col: lit 3 branch ;s ;s does: 3 ;s ?branch col: does: 2 nip execute drop ;s 1730 ;s xor cells >r 839 (f83find) ;s ;s dup 933 ?branch lit (s+loop) dup 653 swap r> (loop) unloop 3775 ?branch cell+ swap cell+ 1 ;s @ ;s r> 6249 col: defer: col: col: 197 lit col: lit con: 11070 r> dup count + 1 ?branch dup user: ! 223 - dup r> ?branch 28 ! ;s + ;s 119 drop ;s user: col: 1806 user: +! swap user: 15 ?branch con: ;s ;s 6 ! lit /string branch 66 ;s 2drop branch ;s 23 + c! col: col: 506 rot lit over < 287 rot 0= and ?branch 5877 cell+ swap r> (loop) 8 ! ;s var: @ 1 ! ;s rp@ user: 152 c! ;s con: col: 280 ?branch con: does: @ 39 col: con: lit ;s 3 nip execute 1- ;s 13 lit col: >r sp@ 934 ! ;s ;s var: 287 2! var: 2! ;s 18 0= ?branch col: var: 291 @ >r var: col: 47 execute con: ;s branch 22 var: dup @ cells 80478 col: var: @ dup 6226 >r user: @ /string 647 ;s ;s defer: (type) 287 2! col: col: r> 10 con: swap read-file ?branch 24 ;s col: lit user: 124 0> 0= ?branch nip 4 ;s col: dup count 1 nip nip execute mod 3 (next) var: cell+ i 31 ;s code-address! ;s lit 125 user: ! ;s user: 80726 con: /mod cells rot 281 negate user: +! lit 142 lit over 0<> ?branch 287 swap 0= and ?branch 394 over lit + = 997 over ! var: @ 5 open-file 0= ?branch nip 15 swap cmove 2dup var: 1407 ;s con: (+loop) unloop 2156 lit @ execute col: 25 ;s over col: lit 78 ! ;s drop branch 1 rp@ user: ! fp@ 7 = ;s ?branch branch 647 lit swap (?do) dup 276 lit - dup lit 1 ;s lit branch (+loop) 19 ;s char+ c@ ;s 1769 ;s lit @ execute 113 >r ?branch col: over 933 lit (s+loop) dup i 708 col: >r swap dup 16 r> r> r> col: 23 ;s count + c! 105 >r rot over 1+ 506 dabs col: col: col: 3 lshift ;s branch col: 2587 r@ <> ?branch lit 51 execute col: lit lit 6 ;s @ var: ! 1148 ;s var: 2@ defer: 1737 var: 2! ;s lit 1 ;s ! ;s cells 197 i - con: - 3716 ;s col: col: user: 21 execute col: dup col: 1 con: ! ;s branch 113 r> ?branch r> user: 5 var: @ 1+ dup 287 0<> rot 0= and 9 con: <> ?branch 2dup 13 col: col: does: @ 4 cells + ! (next) 13 ;s >r user: @ 287 cr cr ;s ;s 1 r> or ?branch 2drop 16 ;s swap over col: 143 ?branch drop branch ;s 281 user: +! lit over 13 swap >r fp@ >r 80726 + swap ;s col: 30 user: ! col: col: 5 tuck - dup ?branch 1801 dup ?branch 2drop ;s 5 ;s ;s con: col: 5224 swap r> (loop) >r 1250 c! ;s (loop) unloop 712 ;s ;s ?branch execute 291 r> var: ! ;s 10 char+ c@ ;s col: 47 nip execute con: ;s 28 @ dup lit >= 6 branch dup ?branch rdrop 10 lit col: col: defer: 13 col: laddr# ;s >r 965 col: >r r@ does: 287 2@ rot swap - 287 ;s lit defer: (emit) 4080 var: col: @ @ 997 col: dup lit u> 11070 aligned >r swap >r 4 execute col: swap col: 5877 @ over @ r@ 1730 over cell+ count lit 1639 ;s var: @ col: 7 ;s /does-handler col: col: 6 user: @ user: ! 225 execute and 0= 0= 475 ! user: col: con: 5769 ! ;s dup ?branch 148 ?branch dup user: @ 237 >r dup ?branch over 5 > col: col: r> 152 c! col: var: col: 2 lit (?do) dup lit 1005 col: user: @ dup 5 ?branch nip nip r> 1 col: >r con: open-file 1747 execute col: lit col: 39 drop r> drop ;s 941 pick ! ! branch 1 con: <> ?branch drop 15 con: ;s ;s does: 6702 cells var: @ + 574 col: var: @ var: 1 ;s dup ?branch rot 54 ;s @ ;s col: 566 - lit over +! 1 ! ?dup ?branch 1- 36913 ?branch lit var: +! 6 nip execute aligned ;s 1730 r@ @ rot ! 5730 col: col: con: dup 647 var: nip unloop ;s 14 ?branch over col: 2dup 647 var: count move lit 3711 lit (+loop) 2dup i 5 ;s swap 2dup 1+ 35 r> ;s ;s does: 53 nip execute var: ;s 1876 >r ?branch rdrop ;s 421 0= ?branch does: @ 2 drop branch lit pick 1732 lit pick @ ?dup 28 rdrop ;s tuck ! 3187 col: ?dup ?branch ;s 708 ;s ;s con: (+loop) 1 var: 2@ nip var: 25 rdrop ;s 0> ?branch 5 ;s @ var: @ 272 defer: (type) ;s rdrop 341 @ execute col: does: 1730 (hashkey1) ;s xor cells 15 con: open-file 0= ?branch 52 - col: col: col: 37708 ?branch lit col: col: 1251 ;s dup ?branch lit 5 + 2! ;s var: 23 ;s @ ?branch does: 11 col: col: var: dup 1 lit (?do) unloop 2drop 86 ?branch does: @ does: 6 @ = ?branch r@ 997 ?branch col: cell+ count 6 ;s col: defer: noop 51 + @ execute drop 1662 0> ?branch col: col: 915 +! @ ! ;s 1 ?branch 1- (for) var: 6 col: col: r> user: 1806 branch lit user: +! 3 nip = ;s ?branch 506 c! ;s ;s 2dup 3025 @ ?dup ;s ?branch 61 ! branch ;s con: 312 dup does: @ col: 11 ?branch ;s swap 2dup 1 lit + dup user: 2037 nip nip execute col: 12 @ col: 2dup u<> 6 ?branch r@ user: +! 287 2! var: var: @ 5834 ;s +! ;s col: 5769 sp@ user: @ > 574 ?branch col: var: ! 3 execute 1- ;s branch 997 u> lit and col: 933 ?branch ;s ?branch lit 3731 ?branch col: dup field: 325 ;s col: lit col: 287 (type) ;s lit defer: 19 r> rot col: con: 5769 col: sp@ user: @ 5769 user: ! ;s dup 6 user: @ user: @ 1022 col: lit >code-address ;s 218 drop con: branch rdrop 71 ;s @ ;s >r 12 ;s con: @ col: 6298 +! ;s c! ;s 7 rdrop ;s col: col: 473 ?branch drop col: col: 1580 dup i con: col: 740 + @ ;s col: 341 execute col: does: @ 6699 @ >r 2dup col: 291 ! lit var: +! 3 nip nip execute lshift 147 or ?branch con: does: 3874 @ ;s ;s + 5 1- user: ! lit 281 user: @ swap - 11 cells + ;s ! 61 + ;s @ = 280 and ?branch 0<> swap 52 2dup u< ?branch = 647 count move lit lit 2 * allocate col: ?dup 15 cmove 2dup var: r@ 5 lit <> ?branch 2dup 6699 col: lit + @ 5 1+ dup con: > 5769 fp@ user: @ > 5730 dup @ + ;s 1 ;s user: ! user: 59 ;s ;s rot col: 5 ?branch 2dup + lit 15 dup >r 2@ dup 15 var: swap cmove 2dup 285 i over col: swap 20 lit (do) dup @ 4 r> col: >r ;s 5769 @ > ?branch ;s 245 2dup col: lit col: 291 con: >= ?branch ;s 2588 lit /string branch dup 5 col: 2dup lit col: 506 r> over - does: 284 ?branch drop branch lit 204 pick >r cells sp@ 39 0= 0= ?branch swap 1 defer: noop var: @ 4938 col: cell+ dup c@ 1 dup >r lit col: 80726 cells rot + swap 197 (do) dup i - 87 col: 1+ con: * 5 ;s 2! ;s branch 287 cr var: 2@ defer: 9 char+ c@ ;s ;s 2046 + (loop) dup lit 87 rdrop dup col: con: 13 or ?branch drop col: 31 swap ! ;s branch 851 ! ;s ;s branch 20 execute col: con: col: 124 ;s (loop) unloop lit 56 ! cell+ tuck ! 61 var: @ does: @ 10 ! rdrop rdrop rdrop 121 swap con: <> and 1 ! (next) unloop ;s 125 @ 0= ?branch user: 19 ;s swap con: - 3980 ?branch lit r@ lit 647 >r does: @ + 268 0<> and ?branch 0= 1 ;s swap col: 2dup 1730 col: lit pick @ 1 user: ! fp@ user: 708 + swap dup r@ 287 ! col: var: ! 305 swap lshift ;s over 197 lit con: (do) dup 2 ?branch ;s over lit 708 @ ;s + swap 20 cell+ (loop) unloop drop 1769 ;s ;s 2drop ;s 87 1+ within 0= col: 506 user: @ lit max 2 ?dup ?branch ;s over 226 ;s defer: noop ;s 147 ;s @ col: 2dup 6 u< ?branch cells var: 637 drop swap - 1- 2 pick + (loop) unloop 19 >r drop col: var: 2 ;s 0= col: 0= 265 ;s rdrop ;s cr 647 lit ! ;s ;s 10055 does: @ + ;s 80415 = ?branch c@ ;s 712 ?branch ;s ;s ?branch 647 (?do) dup i con: 933 ;s ?branch lit (s+loop) 59 0= 0= ?branch r@ 56 branch ;s ;s col: 19 ?branch col: var: @ 6088 swap c! ;s ;s 469 col: swap (?do) i 4 0> ?branch col: r> 1 lit cells / ;s 66 ! col: lit over 287 - ;s 2dup var: 1 ;s >r col: defer: 1515 var: @ col: lit 1 var: @ ?branch r> 33 ;s ;s >r col: 5 ! ;s ?branch ;s 125 user: @ 0= ?branch 647 + ;s 2@ col: 958 @ lit r@ lit 292 field: dup var: ! 1 sp@ dup user: ! 997 ;s dup faligned swap 15 code-address! ;s ;s ;s 204 cells sp@ cell+ dup 11 var: 2@ drop = 82 +! ;s col: over 1437 lit and ?branch negate 506 unloop drop ;s defer: 11 cells + ;s @ 23 over min /string rot 1801 ! ;s ?branch col: 223 ;s >r over - 27 @ lit pick col: 66 ;s @ dup var: 459 or col: col: col: 381 ! ;s col: dup 2063 dup does: @ + 6 @ = ?branch drop 19 cr 0= swap 0<> 16 >r >r >r dup 3018 dup @ 0< ?branch 693 execute col: >r r@ 287 2! ;s col: col: 160 ;s 0= does: @ 226 col: defer: noop col: 13 sp@ r> swap >r 154 cells col: col: user: 1722 var: 2@ defer: (type) 156 ;s branch col: var: 1163 ;s @ ;s swap 289 dup var: ! col: 3501 lit and ?branch ;s 5 tuck 1+ 2* cells 5 2@ tuck 1+ 2* 281 (loop) i over col: 1 1- (for) var: cell+ 9 u>= ?branch col: dup 3711 (+loop) 2dup i 2@ 2 * ;s branch col: 9194 con: col: col: user: 1578 + aligned ;s con: 3 nip nip execute 2drop 2 (?do) dup lit pick 3 dup lit u<= ?branch 1926 ;s dup ?branch 2drop 52 con: <> col: col: 3 @ and ?branch or 5 1+ 2* cells resize 14 col: does: @ + 287 (type) ;s cr cr 861 var: 2@ var: 2@ 941 @ col: lit + 161 user: @ >r user: 87 col: con: con: 1+ 1876 ;s >r ?branch rdrop 506 rot col: 0< ?branch 647 lit ! ;s dup 16 + ;s ! ;s 15 >r var: swap cmove 147 col: swap >r swap 121 con: <> swap con: 265 ?branch r@ col: >r 178 branch lit (+loop) 2dup 148 user: @ lit = 13 fp@ >r col: laddr# 54 2drop r> ;s ;s 3775 0= ?branch cell+ swap 59 ;s ;s branch over 227 col: col: @ (f83find) 33 ;s does-code! ;s ;s 506 ;s r> over - 915 col: con: over +! 130 2@ col: nip swap 22 drop branch ;s r> 6699 con: (hashkey1) ;s r> 1 move ;s drop var: 5 1+ var: 2! 2* 5 ;s nip ?branch var: 2882 +! ;s branch branch 771 (type) ;s cr ;s 287 col: col: var: ;s 8 ?branch lit @ var: 128 ;s branch ;s ;s 204 dup cell+ rot move 105 ;s drop ;s col: 1 nip nip execute swap 82 branch ;s ;s ;s 15 var: over r> + 66 2dup col: col: user: 1022 lit >code-address ;s col: 279 ;s 0= col: col: 2048 pick col: dup @ 281 ;s lit var: ! 1005 user: @ dup 0= 114 - ?dup ?branch ?dup 23 @ ?branch does: @ 80726 ;s col: lit swap 125 user: @ dup 0> 21 >r var: r@ cmove 2 0= ?branch 2dup * 19 pick rdrop dup col: 3447 ?branch nip nip unloop 1 /string ;s var: 2! 41 (?do) unloop ;s lit 506 2dup d0= ?branch ;s 39 dup 0= ?branch over 2 + @ (loop) var: 1730 cells lit col: lit 5730 ;s swap col: con: 6 >r lit col: >r 197 0= ?branch drop lit 5 move ;s col: var: 694 cr rdrop ;s ;s 3 ;s drop ;s does: 1 nip ;s ;s branch 1250 (?do) con: col: col: 506 ;s rot lit over 12 dup >r ?branch lit 5332 count lit and + 274 ;s does: @ does: 28 var: @ dup lit 14 ?branch r@ col: does: 36923 col: 0= ?branch var: 125 (?do) count col: user: 136 r> ;s r@ col: 6699 + @ (hashfind) ;s 647 (+loop) unloop drop ;s 2025 user: ! lit col: 7 cr 0<> swap 0= 647 2dup col: lit swap 39 execute col: col: dup 66 dup con: ! col: 1 up! sp@ dup user: 6 ?dup ?branch ;s var: 1806 ;s branch lit user: 1 compare 0= >r 2dup 599 lit col: >r con: 1 unloop ;s dup ?branch 1 1- i' i - 5 close-file swap 2dup or 148 ?branch toupper lit - 506 ;s ;s 2dup d0= 36916 ;s col: 0= ?branch 1730 ?branch >r drop r@ 106 lit (+loop) unloop 2drop 105 1+ r> move c! 12 rdrop r> ?branch dnegate 3652 unloop ;s ;s ;s 997 @ ;s dup faligned 1 ! col: var: 2@ 8 ;s ;s lit lit 1 r> - ?branch dup 1 >r over >r lit 12 2dup u<> ?branch drop 4 execute col: con: swap 8 ! var: var: ! 1730 >r drop r@ @ 6 @ user: ! user: 5 execute over ;s branch 708 ;s + rdrop ;s 222 (+loop) unloop ;s ;s 287 2@ var: 2@ 0= 4 con: branch ;s ;s 24 ! ;s ;s drop 147 rot user: @ um* 3435 ;s @ ;s dup 80421 col: col: con: /mod 3 ?branch 2drop ;s col: 8 (loop) lit col: col: 6773 ;s col: dup col: 8618 count defer: (type) ;s 129 user: @ col: col: 1 = ?branch lit /string 204 move drop r> ;s 647 ?branch execute var: nip 1 lit (?do) var: cell+ 6 @ user: @ = 2592 ?branch lit /string branch 3 user: @ ?branch ! 350 ;s col: dup 0= 6 dup allocate col: ?dup 281 - col: dup negate 6298 lit col: col: user: 292 dup var: ! defer: 1806 lit user: ! ;s 19 u>= ?branch col: var: 7 ;s cr branch rdrop 1 / 1+ dup var: 895 @ execute col: @ 4080 col: var: col: @ 5730 swap col: con: - 279 >r r@ col: >r 673 var: @ lit (do) 291 cells - var: over 14 @ var: ! ;s 15 >r col: col: r> 287 lit defer: (emit) col: 23 + ;s @ ?branch 24 +! ;s col: lit 27 drop r> col: col: 120 +! ;s 2drop ;s 1005 @ dup 0= col: 279 ;s ;s 0= col: 287 var: 2! ;s col: 258 ;s ! ;s con: 6 @ >r >r ;s 5730 con: / col: col: 218 r@ = ?branch drop 1 var: swap ;s 2dup 1 i 1+ var: @ 16 execute col: >r >r 1730 swap col: lit fill 997 dup lit u> lit 5730 over c@ or swap 2 nip nip execute >body 3 ;s ;s ;s rot 16 ;s r> r> r> 1 fp@ user: ! col: 551 r@ col: >r r@ 1 execute 0< ;s branch 24 ;s ;s swap ! 19 1- >r r@ pick 5730 dup col: col: con: 5 2* cells + 2! 87 within 0= col: col: 64 ;s ;s ;s ?branch 23 ?branch ;s ;s branch 506 < ?branch lit + 8 c! ;s ;s ;s 1 ;s rp@ user: ! 125 @ >r user: col: 2394 var: col: con: swap 997 and ?dup ?branch 2drop 3 execute 1+ ;s branch 2 @ ;s ;s branch 350 ;s col: defer: col: 287 var: 2! var: var: 1 col: var: 2@ 2* 287 var: 2@ rot swap 1730 lit fill ;s r> 26 ;s ;s ;s lit 105 r> move c! ;s 59 drop 2dup 2>r col: 6249 2dup + r> - 1806 ?branch read-line col: ?dup 130 var: 2@ col: nip 506 r> col: >r tuck 1 ?branch dup var: ! 789 @ ?branch col: dup 506 lit r@ um/mod r> 147 user: @ um* drop 412 swap ! ;s lit 4938 lit r@ lit and 125 lit (?do) count col: 39 ;s swap con: col: 5 nip nip r> rdrop 473 1- dup ?branch drop 124 ;s cr ;s col: 647 col: col: dup lit 3731 <> ?branch col: dup 689 dup cell+ >r @ 96 ?branch ?dup ?branch ;s 1 nip nip execute 0< 2 @ <> ?branch ;s 279 col: >r r@ col: 21 lit ;s ;s ;s 3 execute does: 2@ ;s 4 nip nip execute 0= 15 ;s r> user: ! 157 col: col: r> dup 1 cells col: swap >r 292 var: ! col: var: 307 + ;s @ col: 78 ;s ;s ;s 0= 22 @ cells + ;s 1 ! col: lit lit 6 con: branch ;s col: 507 @ ;s + @ 53 ;s @ ;s - 1097 ;s ;s does: @ 6699 + @ >r 2dup 4 dup count col: var: 708 >r swap dup r@ 1 noop var: @ lit 66 defer: (type) ;s 1+ 25 over - ;s 1- 3749 lit col: col: col: 100 var: +! ;s ;s 1 = ?branch i 1+ 1 lit <> ?branch i 43 con: = ?branch var: 2124 @ + @ ;s 5 unloop ;s swap col: 1 ?branch con: cells allocate 27 lit col: >r >r 128 ;s user: col: con: 1578 lit + aligned ;s 253 0= and ?branch ;s 7 cell+ i cells + 10 user: ! rdrop rdrop 1730 @ over cell+ count 1806 ?branch ;s branch lit 1616 0= 0= ?branch rot 3 var: ! defer: drop 1634 + ;s 2@ defer: 287 defer: (emit) col: col: 1 ;s ;s dup col: 414 2drop ;s ;s ?branch 2 defer: drop ;s drop 281 branch drop ;s ;s 279 ?branch rdrop ;s execute 915 var: col: lit swap 1 con: / 1+ dup 61 swap does: @ + 147 ?branch col: swap >r 424 1- r> lit and 27 nip ;s - dup 5 @ close-file swap 2dup 223 >r defer: col: col: 66 ;s ;s 2drop branch 647 ;s defer: (type) col: 2048 col: dup @ lit 80421 0= 0= ;s ;s 18 ! col: var: col: 1 ?branch 1- i' i 12 dup col: lit over 28 ;s over r@ u>= 997 2dup 2dup r> col: 1 2! ;s defer: noop 7 ;s @ ;s /does-handler 1005 ?branch rdrop ;s cell+ 15 col: >r col: col: 1730 count lit and col: 1 nip execute field: ;s 1769 ;s ;s ;s 2drop 1730 + var: @ ?branch 1 branch dup ?branch 2drop 8 ! ;s (loop) lit 1 lit = ?branch dup 12 drop ;s ;s con: 447 user: @ ?branch defer: 3968 2dup col: var: @ 6 var: 2@ lit (?do) 469 (+loop) unloop ;s col: 1 dup col: col: var: 5769 ;s defer: col: defer: 23 nip execute col: dup 69 execute col: col: user: 54 unloop drop 2drop r> 1 ?branch dup r> - 10 rdrop rdrop lit ;s 43 @ ?branch con: ;s 5 nip execute does: col: 1933 @ col: col: col: 4 i cells + ! 3447 ;s dup ?branch nip 758 ?branch ;s ;s col: 12 var: @ ?branch over 9194 swap >r ;s count 1 u>= ?branch drop con: 291 defer: col: cell+ dup 689 cell+ >r @ col: 469 2swap swap (?do) i 80726 col: con: /mod cells 12 ?branch lit /string col: 30 ?branch var: @ field: 1846 ;s ;s lit col: 14 @ 1+ var: 2@ 218 con: branch rdrop ;s 394 and + faligned over 5 0= ?branch nip nip 120 2drop ;s ;s branch 39 swap con: col: = 30 col: lit user: ! 1 var: @ 1- dup 59 2dup 2>r col: col: 6 + @ user: ! 23 branch 2dup + r> 287 0= rot 0<> and 4 col: dup count col: 226 defer: noop col: col: 647 2@ 2dup col: lit 1 @ ?branch r> col: 197 dup 0= ?branch drop 53 execute var: ;s branch 125 ?branch user: @ dup 30 ;s ?branch ;s ;s 1641 ;s 2drop ;s branch 1 ;s var: ! var: 440 user: ! drop ;s 80421 @ dup var: @ 291 - var: over cell+ 566 +! @ c! ;s 233 + ;s c! does: 5877 cell+ swap cell+ swap 1 nip execute mod ;s 210 @ ;s ;s col: 506 2drop col: col: col: 36915 ?branch var: @ var: 971 ;s ?branch var: @ 1421 col: dup does: @ 4938 cell+ dup c@ >r 121 var: @ ?branch con: 28 over col: col: col: 1 execute col: dup lit 1 tuck - lit cells 218 branch rdrop ;s ?branch 7 +! ;s does-handler! ;s 59 ;s ?branch 2rdrop branch 2658 dup ?branch 0> ?branch 2982 ;s branch branch lit 703 unloop ;s col: var: 510 ;s r> col: >r 23 con: = ?branch drop 147 >r swap user: @ 2 ?branch 2dup * allocate 3447 nip unloop ;s ;s 1023 dup user: ! lit 30 ! r> user: ! 7 (type) ;s r@ col: 708 + ;s lit col: 287 var: 2@ 0<> rot 6 lit /string branch ;s 80726 col: lit swap lshift 268 and ?branch 0= swap 3553 var: dup @ 1- 440 ;s user: ! drop 24826 ;s lit col: col: 5 ! col: var: dup 52 ;s con: var: col: 647 - lit min 2dup 54 r> ;s ;s ;s 25 ;s ;s dup 0= 6 @ user: ! lit 517 nip execute col: user: 1712 ;s var: 2! ;s 1 drop ;s dup var: 3 i cells + @ 2818 over c@ r@ <> 958 and 0= ?branch @ 1 1+ /string ;s var: 708 rdrop ;s con: (+loop) 47 drop ;s col: 2dup 4073 ! ;s ;s ;s 287 var: 2! col: col: 160 @ col: lit col: 5166 xor and ;s 0= 4 rot (do) i over 21 cmove var: r> ;s 1730 r@ swap col: lit 1022 ;s dup user: ! 43 var: @ and ?branch 3552 ;s ?branch col: col: 5 >r ;s drop col: 3 ?branch lit - dup 5730 lit /mod rot + 1 ! over c@ lit 8 ?branch ;s ;s r> 1 >body @ col: col: 789 ?branch drop ! ;s 350 col: dup 0= lit 5 2! 2* cells + 1077 aligned swap (?do) unloop 1 @ lit > ?branch 647 ;s var: c! var: 1 ;s r> tuck - 61 + ;s @ swap 136 ;s r@ col: dup 5 r> rdrop lit branch 272 (type) ;s rdrop ;s 1 dup r> - ?branch 1005 tuck c@ xor swap 121 col: col: con: @ 1 2@ nip var: 2! 239 (+loop) i col: >r 1578 ;s lit + aligned 8 0< ?branch lit @ 997 and ;s var: @ 1027 @ field: @ field: 148 @ lit = ?branch 1 con: open-file col: col: 5 ! ;s (loop) unloop 5 ;s drop col: ?dup 1237 lit col: user: @ 350 defer: defer: col: col: 469 var: (?do) i col: 287 0<> swap 0= and 997 lit and ;s var: 1 col: var: ! col: 27 r@ execute col: xor 15 dup >r var: swap 2659 ;s ;s ?branch col: 126 >r col: lit (?do) 105 ;s col: over >r 3501 and ?branch ;s ;s 105 var: (?do) unloop ;s 9 ;s ! ;s (loop) 105 col: over >r rot 1801 branch col: user: @ 1 var: ! col: lit 16 >r col: col: user: 7264 2dup i 2@ over 33 r> /does-handler + col: 28 cell+ var: ! ;s 35 var: @ ?branch var: 5 @ 1+ dup con: 2158 @ over - ;s 80415 ?branch c@ ;s col: 1 ?branch i 1+ var: 1616 con: rot rot cell+ 292 ;s var: field: @ 5 ;s over r> tuck 6 ;s col: col: dup 291 >= ?branch ;s lit 5 (?do) dup >r 2@ 121 <> and col: col: 3 dup ?branch ;s nip 1153 lit max lit (?do) 2 ;s count ;s compare 997 ?dup ;s ?branch col: 292 dup field: dup var: 1148 var: var: @ col: 1 0= ?branch ;s ?branch 4514 ?branch r> lit and 1806 user: @ ;s con: 19 - swap lit col: 3 execute lshift ;s branch 6 user: @ >r >r 292 ;s ;s var: field: 3 lit col: 0= ?branch 290 ?branch var: @ over 651 0= ?branch ;s col: 1 defer: drop ;s ;s 5 over >r lit col: 23 move c! ;s con: 7 ;s cr 0<> swap 506 - ;s r> over 36915 ;s ;s col: 0= 3553 dup @ 1- cells 203 noop ;s ;s branch 3553 con: ?branch lit col: 287 rot - ?dup ?branch 23 >r user: @ over 5 swap c! 1+ col: 1 ;s nip ;s ;s 577 @ col: lit lit 5 ?branch var: 2@ lit 1013 ;s move ;s col: 647 i - lit min 1 nip 0<> ;s col: 15 and ?branch con: ;s 4 ;s ;s r> col: 28 dup var: <= ?branch 6 col: r> user: @ 424 and ?branch 1- r> 148 count col: user: @ 20582 ;s branch lit col: 291 cell+ dup @ 0< 15 + dup >r con: 33 col: r> /does-handler + 1 @ ?branch drop ;s 119 u< ?branch drop ;s 5 col: 0= ?branch ;s 1578 aligned ;s con: - 5877 swap cell+ swap r> 1 ;s var: ! lit 66 0> ?branch col: user: 574 unloop ;s var: 2! 56 tuck ! cell+ tuck 4582 col: col: col: col: 580 ;s branch ;s col: 14 branch rdrop ;s ;s 1 >r 2dup col: col: 25 ;s 0= var: @ 5 col: col: 2dup lit 5 var: 2@ tuck 1+ 13223 +! ;s lit col: 5 defer: noop ;s col: 197 = ?branch i - 1 drop var: 2@ nip 42 2! ;s ;s col: 4 swap 1+ /string ;s 19 drop >r drop col: 647 dup >r does: @ 291 var: +! var: @ 3731 over <> ?branch col: 3533 ?branch drop 2drop lit 15 over r> + dup 4 dup ?branch lit /string 82 @ ;s over char+ 19 swap con: - swap 708 2! con: + ;s 5166 col: lit xor and 941 branch var: col: con: 5769 ?branch ;s defer: col: 350 defer: col: col: col: 281 col: user: @ swap 820 ! ;s var: col: 997 ;s var: @ field: 506 ;s defer: (type) ;s 997 var: @ and ?dup 125 ! ;s lit lit 223 r> col: >r dup 35 ! ;s col: con: 6 ;s swap 2dup r> 3659 c! ;s (loop) con: 7 = ;s ?branch col: 22273 col: col: col: user: 2 >body ;s branch col: 145 (?do) unloop ;s var: 507 dup ! ;s col: 3 @ ;s branch col: 265 rdrop ;s cr rdrop 708 + @ ;s execute 10 c@ ;s col: user: 291 cell+ ! dup @ 33 col: col: con: <> 1197 col: var: col: con: 27 user: @ lit pick 647 2dup defer: (type) (+loop) 59 r@ execute col: var: 25 ;s 0> ?branch col: 6699 ;s r> xor cells 1 ! execute col: user: 647 ;s ;s var: c! 4 drop branch ;s does: 30 @ ;s col: lit 864 col: var: ! ;s 1806 swap user: ! lit 80415 @ = ?branch c@ 350 0= lit and col: 121 dup col: dup con: 78 ?branch con: branch ;s 708 ;s + swap dup 609 branch ;s col: col: 1 var: @ con: cells 106 unloop 2drop con: ;s 279 rdrop ;s ?branch r@ 4 lit swap 1+ /string 25 and ?branch 2drop ;s 125 2swap dup >r col: 149 var: @ ;s col: 33 + col: col: user: 6 0= ?branch ;s >body 27 execute col: xor invert 147 ;s ?branch col: swap 10 over + -rot con: 19 var: ! ;s rdrop 28 var: ! ;s over 56 swap con: - dup 12401 field: @ execute col: 33 /does-handler + col: col: 1 r> col: col: var: 1 ! var: @ con: 3553 @ 1- cells over 125 ;s lit lit 2swap 87 * 1- >r r@ 125 unloop lit branch ;s 66 1+ var: 2@ col: 506 d0= ?branch ;s rot 287 cr ;s ;s ;s 3 and var: @ and 196 ;s @ ;s ;s 1580 dup ?branch ;s ?branch 5730 ;s over c@ or 997 col: >r 2dup 2dup 1400 ;s ;s col: dup 469 (?do) i col: >r 676 ;s 0= ?branch col: 80421 dup var: @ = 1 ?branch drop ;s ;s 5 over ;s branch col: 576 >r ;s count ;s 1288 0< ?branch var: @ 1 0= ?branch lit (bye) 1002 (type) ;s r@ does: 196 execute col: defer: noop 19 (type) ;s cr 0= 8 lit @ var: ! 11070 >r swap >r ;s 7 ;s r@ col: >r 506 col: 2drop col: col: 26 ;s ?branch swap drop 26 ;s ;s ?branch swap 637 col: drop swap - 647 swap (?do) dup i 1057 ;s col: user: @ 7 branch con: defer: noop 4938 c@ >r col: count 98 over 0= 0= ?branch 350 unloop ;s ;s lit 16 move ;s col: defer: 18 ?branch col: var: col: 5769 @ > ?branch fp@ 1 (?do) i col: cells 119 ?branch drop ;s user: 2818 dup ?branch over c@ 59 branch over 0= 0= 54 @ ;s >r var: 1 var: ! lit (do) 197 = ?branch con: (+loop) 941 (hashfind) ;s ;s var: 233 c! does: @ col: 51 ;s ?branch col: lit 7 execute col: 0= ?branch 25 ;s ;s branch ;s 1 ! lit + dup 16 ! ;s r> col: 863 ;s col: var: @ 39 col: >r dup 0= 459 @ r@ execute or 6249 user: @ ;s 2dup 125 >r user: col: con: 1013 @ ;s swap dup 2048 ! ;s lit pick 1722 cr col: col: r> 4938 dup ?branch col: cell+ 472 nip execute col: col: 19 ;s ;s char+ c@ 86 faligned swap (?do) unloop 404 ! ;s col: var: 59 2>r col: col: user: 5301 con: col: col: col: 647 swap c! ;s col: 80421 lshift ;s swap @ 1022 ;s ! ;s code-address! 36915 var: @ var: @ 8 drop branch ;s branch 15 r> + dup >r 235 col: lit col: user: 87 con: 1+ within 0= 39 r> drop ;s swap 394 faligned over lit + 105 rot over 1+ r> 5 1+ col: col: col: 231 r@ <> ?branch rdrop 125 lit 2swap dup >r 1 unloop ;s col: lit 2 @ (loop) var: cell+ 160 ;s @ col: lit 59 ?branch r@ execute col: 4 var: col: col: dup 78 = ?branch col: col: 173 ;s cr ?dup ?branch 2 2dup col: col: r> 25 @ and ?branch 2drop 19 ;s ! ;s does: 18 ! ;s does: @ 1 ;s does: col: var: 1 2! col: var: 2@ 58 ?branch nip ;s ?branch 987 2@ var: @ col: 10 rot over + -rot 1 (do) lit col: col: 1 unloop 2drop drop con: 1013 dup col: col: user: 148 con: ;s ?branch col: 252 rdrop ;s ;s col: 1 execute col: con: 0= 11070 + aligned >r swap 1342 c! ;s col: col: 708 + ;s 2! con: 126 ;s ;s drop ;s 2587 <> ?branch lit /string 197 ?branch drop lit col: 3 + ! (next) var: 1730 ;s r> ;s tuck 2 + (loop) unloop drop 647 ;s ?branch dup does: 1022 ;s does: @ col: 21 con: min >r var: 5 rdrop lit ;s r> 12 ! ;s con: @ 3 ;s rot 2dup and 33 does-code! ;s ;s ;s 12 dnegate r> user: ! 105 2swap swap (?do) unloop 5730 ;s con: / col: 25 lit var: +! col: 5 ! >r ;s drop 1407 con: (+loop) unloop ;s 647 col: lit swap (?do) 287 2dup var: 2! var: 197 con: (+loop) dup i 2160 var: @ ;s ;s 2037 user: @ ?branch col: 764 col: col: defer: defer: 5730 / col: col: lit 121 and col: col: r> 3 ?branch ! ;s ;s 22 2! ;s ;s swap 915 col: var: col: lit 1 ;s cells col: col: 1027 var: @ field: @ 5166 ;s 0= 0= ?branch 1730 lit + dup @ 4 >r ;s ;s col: 1 0> 0= ?branch ;s 1 (for) var: cell+ i 23 rot dup con: = 1352 and col: ?dup ?branch 52 col: 2dup u< ?branch 1 2@ col: col: col: 1 @ >r var: @ 574 ;s count ;s var: 147 um* d+ r> ;s 2 execute >body ;s branch 28 code-address! ;s ;s over 289 ! defer: col: cell+ 287 cr col: var: @ 861 col: lit col: >r 23 = ?branch drop (parse-white) 1735 ;s dup ?branch ;s 10 (loop) dup >r 2@ 287 var: ! ;s var: 1 2* ;s branch col: 5 lit ;s r> user: 1730 ! r> var: @ 5 nip ?branch var: 2@ 1022 ;s col: lit >code-address 647 ;s dup >r does: 287 ;s col: var: var: 121 @ ;s over - 1 r> tuck - lit 226 noop col: col: col: 113 dup >r ?branch col: 1 var: 2@ col: col: 1 con: 0= ?branch lit 708 con: + ;s lit 1 swap ! ;s rp@ 1251 and ?branch nip nip 647 ;s 2@ 2dup col: 16 >r >r >r >r 130 ! ;s lit user: 231 ?branch col: r> dup 125 ?branch 2drop rdrop r> 9163 0= ?branch lit col: 4080 @ @ ;s ;s 6 ?branch cells var: + 12 ;s dup col: lit 1 + dup user: ! 6 var: + @ user: 3696 ;s ;s col: col: 80726 swap ;s col: lit 133 branch ;s branch col: 27 col: >r >r user: 25 ;s 1- var: 2! 4 col: >r ;s ;s 4 0= ;s branch col: 281 dup negate user: +! 1 1+ col: cells var: 225 @ r@ execute and 58 nip ;s ?branch 2rdrop 5 2dup 1+ var: 2! 1 ! ;s does: col: 647 col: lit does: swap 5730 con: - ;s con: 19 ;s ;s swap con: 287 var: @ execute col: 291 ! dup @ dup 56 cell+ tuck ! cell+ 197 - unloop ;s ;s 5 <> ?branch 2dup + 23 count + c! col: 147 um* drop rot user: 23 @ ;s col: over 647 defer: (type) (+loop) unloop 304 con: does: @ col: 941 var: @ ?branch dup 292 ;s ;s dup field: 43 ?branch var: @ ?branch 1 execute con: con: branch 279 dup r@ = ?branch 2154 ;s col: col: r> 1022 @ ;s dup user: 1 var: 2@ 2* cells 441 ;s dup ?branch drop 5730 ;s ;s ! ;s 1 execute 2* ;s branch 1 @ ;s >r over 1 con: lit ! lit 61 ;s @ r@ does: 291 over ! lit var: 287 ;s ;s branch lit 1 ;s ?branch col: user: 10 read-file ?branch rot over 8618 ;s count defer: (type) 506 max lit (?do) unloop 1 branch (+loop) i col: 694 ;s cr rdrop ;s 16 swap over col: swap 5 cells resize col: ?dup 5 c@ ?branch con: does: 153 lit cells col: col: 288 ;s dup var: ! 1 ;s dup ?branch dup 1 con: cells allocate col: 1 @ ;s over col: 105 over 1+ r> move 13 >r fp@ >r col: 11 nip nip execute cells 1416 swap dup r@ does: 4080 col: @ @ ;s 421 ;s @ 0= ?branch 5730 @ + ;s swap 1730 cells >r var: lit 1730 @ 0< ?branch @ 291 ;s lit cells - 52 = ;s 0= ?branch 27 drop col: con: @ 28 swap var: ! ;s 574 ;s var: var: @ 128 c@ 0= ?branch con: 288 ;s var: 2! var: 1769 ;s ;s lit @ 161 execute col: col: defer: 42 @ execute col: ;s 3 rot 2dup and var: 997 ?branch dup @ 0< 515 user: ! ;s col: 7 ;s ?branch branch rdrop 39 ?branch swap drop r> 1 var: 2! ;s defer: 647 ?branch ;s ?branch dup 287 (type) ;s cr var: 225 and 0= 0= ?branch 4 nip execute col: swap 323 swap ! ;s col: 223 rdrop ;s >r over 5 dup ?branch r> r> 2818 c@ r@ <> ?branch 5 rdrop ;s over r> 148 user: @ u>= ?branch 8 @ ?branch ;s ;s 45 col: col: dup col: 1 @ lit (?do) var: 6 swap 2dup r> -rot 997 >r 2dup 2dup r> 28 tuck ! cell+ var: 574 lit 2swap swap (?do) 80726 rot + swap ;s 17 @ 0< ?branch ;s 6249 r> min user: ! 78 branch ;s lit col: 13 >r rp@ user: ! 121 dup con: <> swap 3 lit u> ?branch lit 7 noop col: r> dup 75 ! ;s swap col: 574 ;s cr col: var: 1 - unloop ;s dup 56 @ swap con: - 6249 + r> - 1+ 204 1+ pick >r cells 3 execute 2drop ;s branch 5166 and ;s 0= 0= 10 0= ?branch rdrop drop 160 0= does: @ col: 54 drop 2drop r> ;s 66 ;s 1+ var: 2@ 506 col: >r lit r@ 1 lit branch (+loop) i 3 ;s 2! ;s col: 5 r> r> user: ! 1730 lit cells lit col: 31 lit lit col: >r 143 branch ;s dup does: 284 dup ?branch drop branch 941 ! branch var: col: 5 lit ;s user: @ 1 dup @ ?branch drop 2 ! ;s branch @ 2298 swap ! ;s ;s 637 2@ col: drop swap 647 lit (?do) i' i 291 var: @ >r var: 23 ?branch drop (parse-white) branch 4 count col: var: @ 3 nip nip execute 1+ 983 ?branch 2dup swap col: 997 ;s ?branch dup @ 1 mod ;s branch col: 12 col: 2dup u<> ?branch 1 ! fp@ user: ! 16 >r col: col: col: 21 col: col: lit col: 3 nip nip execute 1- 12401 field: @ field: @ 10 2dup con: swap read-file 6 lit u< ?branch cells 5224 r> (loop) >r over 1 col: var: 2@ col: 5 + lit swap c! 5 ;s var: swap ;s 3445 2drop ;s branch col: 64 con: @ col: 2dup 1644 execute col: col: col: 66 drop 2dup col: col: 160 ;s ;s 0= does: 20 (loop) unloop drop ;s 15 >r 2@ dup >r 3553 col: drop var: dup 16 ;s ! ;s r> 3 and ?branch or >r 78 con: branch ;s lit 5769 ?branch fp@ user: @ 6249 @ ;s 2dup >r 105 col: swap (?do) unloop 599 >r con: rot rot 1 con: cells col: lit 5730 does: + c@ ;s 5 0<> lit and col: 6249 - 1+ r> min 2587 /string branch dup ?branch 28 >= col: col: r> 280 ;s + ;s ! 43 >r user: @ >r 5 rdrop lit ;s user: 1 nip nip execute field: 90 cr ;s col: col: 489 and ?branch ;s col: 180 ! ;s cell+ (loop) 281 ! ;s lit var: 60 ?dup ;s ?branch ;s 4 swap ;s col: user: 204 sp@ cell+ dup cell+ 66 nip ;s user: ! 35 var: @ col: dup 3 ?branch col: does: @ 880 ;s ! does: @ 2627 ;s ;s + ;s 1730 lit and col: con: 53 @ ;s - col: 281 swap - col: dup 3968 ?branch defer: col: 2dup 987 ;s 2@ var: @ 421 c@ col: var: col: 3553 over + (do) 2dup 121 <> swap con: <> 708 @ + ;s 2! 291 >r var: col: con: 1012 ;s var: @ and 61 r@ = ?branch does: 506 col: >r col: dup 1 /string branch dup >r 1 nip execute 0< ;s 3 @ + @ col: 22 ?branch 2drop ;s does: 424 ?branch 1- r> lit 70 drop branch ;s ;s 4060 ;s col: col: col: 16 ;s 2! ;s r> 1 i' i - unloop 49 execute col: defer: col: 66 (type) ;s 1+ var: 1436 0= col: col: r> 5 drop col: ?dup ?branch 1806 @ ;s con: user: 204 cell+ dup cell+ rot 287 rot rot - ?dup 32 dup ?branch drop does: 24 + ;s ! con: 941 branch ;s col: user: 1730 0< ?branch @ over 3 + @ col: lit 12 r> ?branch dnegate r> 717 con: (+loop) i col: 80415 c@ ;s col: col: 1 2drop dup >r lit 27 xor invert ;s col: 6699 @ + @ (hashfind) 147 user: @ um* d+ 66 nip ;s dup ?branch 2 col: dup ! ;s 5 user: @ close-file swap 43 con: ;s lit col: 82 ;s over char+ col: 39 col: = 0= col: 1009 defer: (type) ;s r@ 1005 rdrop ;s cell+ tuck 997 2dup r> col: dup 7 c@ lit <> ?branch 5 user: @ >r col: 5 over r> tuck - 66 ;s user: ! ;s 80 user: +! ;s col: 3069 2@ defer: (type) col: 197 + = ?branch i 997 ;s @ ;s user: 80421 @ and 0= 0= 21 ;s col: con: lit 8 rdrop ;s ;s lit 223 r> ?branch 1+ user: 5062 @ col: col: dup 21 con: lit ;s ;s 789 dup ?branch 2dup swap 5 ?branch ;s var: swap 506 dup 0< ;s r> 1730 ?dup 0= ?branch >r 258 ! ;s con: col: 287 var: 2@ 0= rot 1 lit ! lit col: 574 var: ;s lit col: 23697 user: @ ;s @ 6 swap >r dup allocate 27 pick col: lit over 52 con: var: col: con: 287 (emit) col: col: r> 1217 ;s + ;s @ 5730 swap does: + c@ 1 ?branch rot drop ;s 1 execute + ;s branch 1578 @ ;s lit + 20295 +! ;s branch lit 52 ;s ;s con: var: 997 var: @ @ over 287 rot swap - rot 44 ;s ?branch does: @ 1 ?branch 2drop col: col: 27 >r user: @ lit 24 ?branch ;s ;s does: 4 nip execute 0= ;s 5 >r col: swap >r 5 2@ nip 1- user: 26 ?branch swap drop branch 1 - col: col: user: 11070 r> r> dup count 147 @ um* drop rot 506 dup @ tuck - 60 0< ?branch lit col: 566 @ c! ;s ;s 3915 @ + ;s 2@ 13 laddr# ;s >r user: 997 @ @ over ! 127 ;s over c@ lit 5730 col: con: - ;s 30 r> user: ! r> 284 drop branch lit (+loop) 2 ;s drop col: r> 223 >r over - dup 647 move lit lit ! 1 execute col: >r con: 1 ;s ;s col: 2swap 5 2dup + lit swap 5730 rot + swap does: 676 0= ?branch col: col: 9163 ;s 0= ?branch lit 735 (loop) unloop ;s lit 17 execute col: lit var: 61 ;s ! branch ;s 148 ;s ! ;s lit 223 ?branch 1+ user: +! 776 unloop ;s lit col: 1 col: dup lit = 2 unloop drop branch lit 23 drop (parse-white) branch 2dup 1138 - ;s var: 2! 16 drop ;s ;s ;s 10 rdrop drop r> cell+ 125 - dup lit u< 941 ! ! branch var: 20 ;s cell+ (loop) unloop 3 lit u<= ?branch dup 204 dup 1+ pick >r 4938 ;s r@ lit and 148 - dup lit u> 2420 ?branch col: col: var: 147 0= or ?branch con: 1730 ;s tuck cell+ ! 5 1- + c@ lit 100 ;s ;s branch branch 164 ;s ;s dup does: 61 branch ;s con: (+loop) 17 nip execute col: >r 3 drop ;s does: @ 1 ! ;s cells col: 281 +! lit over = 292 var: field: @ col: 16 2! ;s r> r> 1 ;s >body @ col: 1 ?branch 2drop dup >r 5 or col: dup ?branch 708 ;s execute col: >r 5 + c@ lit <> 506 >r lit r@ um/mod 114 ?dup ?branch ?dup ?branch 1437 @ ;s user: ! 13 r> swap >r fp@ 3967 branch col: sp@ user: 117 branch ;s ;s branch 61 ?branch execute var: @ 281 ! ;s (loop) i 12 ! execute col: col: 125 dup ?branch drop 2dup 12 ?branch dnegate r> user: 28 var: <= ?branch con: 506 swap >r um/mod r> 732 ! ;s ;s does: 68 >r r@ col: dup 28 @ dup var: <= 66 + ;s @ dup 647 dup r> does: @ 68 ;s rdrop dup col: 19 ;s col: >r >r 7 (type) ;s cr 0<> 42 col: ;s ;s col: 1806 user: @ ?dup ?branch 1002 ;s lit col: user: 23 ;s @ branch ;s 281 @ swap - col: 17 @ ?branch col: con: 1 ?branch con: lit ! 12 @ ?branch over col: 61 @ r@ does: @ 2336 col: var: @ ;s 6699 2dup col: con: (hashkey1) 1644 col: lit col: col: 1802 col: col: sp@ user: 506 >r col: dup 0< 129 ;s c! ;s con: 1 2* cells col: swap 1 ?branch col: col: 2dup 287 cr col: col: col: 1730 col: lit + dup 106 (+loop) unloop 2drop con: 152 cr ?dup ?branch ;s 647 (type) (+loop) unloop drop 5166 execute col: lit xor 52 <> col: col: r> 23 /string rot dup con: 506 drop ;s defer: (type) 421 + ;s @ 0= 197 con: (do) dup i 2 @ ?branch dup defer: 223 ;s user: @ over 28 ;s tuck ! cell+ 410 c! ;s ;s col: 997 col: cell+ count lit 1005 ;s cell+ tuck c@ 599 col: >r con: rot 997 lit u> lit and 223 ?branch rdrop ;s >r 5727 +! ;s col: dup 61 = ?branch does: @ 36913 lit var: +! ;s 130 @ ;s swap col: 125 branch ;s dup ?branch 19 drop con: ;s ;s 4075 col: var: @ col: 3 2drop ;s col: does: 648 ;s dup col: col: 143 ;s ?branch drop branch 5 ?branch ;s r> user: 291 @ over ! lit 5 lit branch unloop 0<> 506 um/mod r> swap >r 5 -rot move ;s col: 10 rdrop rdrop rdrop lit 3553 drop con: ?branch lit 121 col: dup con: <> 16728 @ ;s +! ;s 3069 (type) col: col: r> 20 unloop drop ;s swap 394 lit + = ?branch 15 var: r@ + swap 1 @ (loop) unloop var: 35 ;s ;s r> r> 1 2! var: up! sp@ 1 @ ;s r> tuck 1 1+ var: @ = 3874 does: @ col: var: 13 >r col: laddr# ;s 27 r> drop col: con: 11070 col: col: r> r> 2 ! user: ! user: 1 lit <> ?branch col: 223 over - dup r> 7135 @ ;s user: @ 1 >r col: defer: defer: 1801 ?branch col: col: sp@ 31 code-address! ;s lit col: 5 lit user: ! user: 15 2@ dup >r var: 36913 <> ?branch lit var: 5 nip r> rdrop lit 7 user: ! user: col: 37 over col: lit over 25 +! col: var: @ 126 rdrop ;s ;s ;s 795 ;s code-address! ;s ;s 647 ?branch dup does: @ 506 (type) ;s lit col: 7680 ;s ;s ;s dup 87 lit col: 1+ con: 287 ;s cr cr ;s 2853 + ;s @ does: 1 c@ lit = ?branch 1 ;s var: @ over 12 u<> ?branch drop ;s 574 col: var: ;s lit 35 ?branch drop does: @ 23 user: +! ;s user: 1616 rot cell+ swap cell+ 59 2rdrop branch ;s branch 23 ;s (loop) count col: 1 user: ! lit + 14 ;s @ 1+ var: 1437 negate ;s ;s ;s 1775 ;s ;s var: @ 1730 0= ?branch >r drop 3025 user: @ ?dup ;s 599 unloop drop 2drop ;s 2 2dup * allocate col: 203 ;s @ ;s over 1 2swap 2dup col: col: 2 nip execute >body ;s 1952 ;s ;s ;s col: 708 ;s 2! con: + 2046 pick + (loop) dup 27 dup ?branch drop r> 1115 col: lit lit ! 5 execute col: dup does: 8429 col: con: (hashkey1) ;s 1806 user: ! ;s ?branch 7 defer: noop col: r> 647 defer: col: var: count 1148 (type) ;s var: 2@ 9 ?branch 2dup con: swap 4 1+ rot (do) i 3 2! ;s col: r> 5 r> user: ! >r 1 cells allocate col: ?dup 125 2drop rdrop r> ?branch 1811 ! lit user: ! 647 var: c! var: count 80726 /mod cells rot + 7 var: cell+ i cells 461 nip execute col: defer: 120 user: +! ;s 2drop 767 - 1- dup ?branch 574 var: @ var: (?do) 287 ?branch col: var: ;s 3 execute col: var: ! 19 con: - swap lit 61 ;s @ swap does: 5 execute does: col: var: 1 2drop col: col: user: 1 @ lit (?do) i 24 ;s ! con: does: 47 con: ;s branch col: 278 ?branch ;s col: var: 225 col: con: @ col: 1 lit user: ! lit 15 2dup var: r@ + 204 rot move drop r> 6 ! user: @ >r 1 <> ?branch i 1+ 1 + @ (loop) unloop 1 i 1+ col: cells 1 ! lit (do) lit 3 1+ ;s branch col: 4938 lit and 0= ?branch 983 2dup swap col: lit 291 var: over cell+ ! 87 1+ con: * 1- 9171 ;s @ ;s con: 789 col: dup @ dup 50124 col: col: user: @ 125 dup ?branch 2drop rdrop 424 lit and ?branch 1- 279 var: @ dup r@ 1153 does: swap lit max 36915 @ var: @ <> 39 swap drop r> drop 6593 @ ;s lit col: 55 >r var: @ lit 7 ;s does-handler! ;s branch 7 ?branch branch rdrop ;s 506 >r um/mod r> ;s 173 - ?dup ?branch col: 17 ?branch col: con: @ 3126 col: con: swap ! 5 nip nip execute over 933 (s+loop) dup i con: 11 cells ;s branch col: 647 i' i - lit 1808 @ ?branch col: user: 1294 lit lit ! ;s 5 nip execute over ;s 1272 ;s ;s ;s branch 32 ;s >r col: 2dup 908 ;s ;s ?branch ;s 223 1+ user: +! ;s 6 = ?branch r@ user: 5 >body user: @ ?branch 9171 @ ;s con: col: 13 0= or ?branch drop 59 ;s rot col: col: 2048 lit pick + (loop) 3553 @ execute col: drop 2 user: ! user: ! 56 ! branch ;s ;s 1005 cell+ tuck c@ xor 52 @ col: 2dup u< 173 (type) ;s cr ?dup 1 or ?branch 2drop dup 375 (loop) unloop ;s ;s 1 > ?branch con: lit 1 ;s var: ! ;s 291 ?branch 2drop r> var: 1 col: con: 0= ?branch 1138 over - ;s var: 1 fill ;s var: @ 5 ;s c! col: does: 506 con: - dup ! 128 var: col: col: col: 8281 @ execute col: lit 39 ?branch over 0= 0= 131 col: user: @ >r 13 rp@ user: ! execute 61 @ swap does: @ 5877 over @ r@ execute 941 ! branch ;s col: 47 nip nip execute con: 49 faligned nip ;s col: 28 r@ u>= ?branch col: 820 ;s var: col: con: 7 ;s +! ;s does-handler! 287 2@ 0<> rot 0= 8 + ;s col: user: 915 con: over +! @ 26 ;s rdrop ;s col: 27 lit pick col: lit 35 drop does: @ col: 486 ! ;s cell+ swap 7 @ ?branch defer: noop 7 does-handler! ;s branch con: 4938 r> lit and ?branch 1876 >r ;s >r ?branch 28872 ;s ;s ?branch lit 1 lit fill ;s var: 3 u<= ?branch dup user: 19 r@ pick rdrop dup 61 ?branch does: @ + 1416 i col: dup does: 18 execute col: var: @ 9 allocate col: ?dup ?branch 125 lit branch ;s dup 1 lit (do) lit col: 291 var: @ over ! 1005 c@ xor swap c! 2540 ?branch ;s ;s ;s 294 (type) ;s branch ;s 566 con: - lit over 1 user: ! col: var: 125 0= ?branch user: @ 28485 ;s ?branch lit col: 1730 cell+ ! r> var: 1730 xor cells >r var: 281 col: dup negate user: 2658 ;s dup ?branch 0> 370 col: does: @ col: 1806 @ ?dup ?branch read-line 574 col: lit lit 2swap 6699 (hashkey1) ;s r> xor 1806 lit user: +! swap 506 lit + col: col: 574 lit lit 2swap swap 3069 defer: (type) col: col: 10 swap read-file ?branch rot 1 execute col: col: sp@ 3968 dup ?branch defer: col: 647 (?do) i' i - 286 +! ;s branch ;s 287 over - ;s 2dup 125 lit = dup >r 1 ! var: ! col: 223 swap r> col: >r 708 @ ;s execute col: 599 drop 2drop ;s ;s 5 - dup ?branch 2dup 153 +! ;s 2! ;s 13 >r sp@ r> swap 2048 dup lit pick col: 2290 ! ;s ;s col: 2158 var: @ over - 1251 dup ?branch lit and 281 lit over = ?branch 153 ;s +! ;s 2! 53 lit col: >r dup 5730 c! ;s ;s ! 121 - swap ! ;s 1148 defer: (type) ;s var: 1 nip execute 2* ;s 2 ;s @ ;s var: 2 branch lit pick @ 506 lit over < ?branch 506 tuck dabs col: col: 6 user: ! user: @ 49 ;s lit col: 1+ 223 lit col: >r defer: 22 dup @ cells + 446 col: 0< ?branch ;s 16 lit ;s ;s branch 1416 dup r@ does: @ 486 ;s cell+ swap cell+ 197 + = ?branch con: 8 lit col: var: col: 518 execute col: user: @ 1 field: ;s branch col: 287 swap - rot rot 30 dup 0= ?branch ;s 3968 ;s dup ?branch defer: 5730 col: con: dup @ 590 con: - dup @ 19 rdrop ;s col: r> 16 ;s col: defer: defer: 456 + @ execute col: 4 branch dup ?branch lit 19 col: drop >r drop 1 /string ;s ;s col: 1 dup ?branch rot drop 23463 var: +! ;s branch 9 <> ?branch 2dup con: 1 @ 0= ?branch con: 27 - dup ?branch drop 2581 branch dup ?branch over 915 var: col: con: over 459 execute or col: col: 5193 @ r@ execute col: 3 ! (next) var: cell+ 1 (?do) unloop 2drop drop 59 2! ;s ;s rot 197 (+loop) dup i - 1 ?branch ;s var: ! 43 ;s ;s ;s swap 1013 +! ;s move ;s 124 0= ?branch nip ;s 1 compare 0= r> or 212 ?dup ?branch col: col: 287 lit defer: (emit) var: 24 +! ;s ;s col: 156 dup ?branch nip branch 287 2@ 0= rot 0<> 856 col: col: col: r> 53 nip nip execute var: 10 r> cell+ cell+ (loop) 3775 0= 0= ?branch cell+ 243 execute col: ;s ;s 791 ;s branch @ dup 1811 user: ! lit user: 4 ;s col: lit var: 941 @ ?branch dup @ 140 (loop) unloop ;s col: 3 ;s nip 0<> ;s 3874 @ col: var: col: 8 ;s var: @ lit 1 ?branch drop con: ;s 339 aligned swap (?do) con: 1 cells col: lit fill 997 ! var: @ ! 1 0= >r 2dup col: 13 ?branch drop col: var: 6699 xor cells var: @ 506 - does: swap lit 8618 >r ;s count defer: 3553 (do) 2dup i 2@ 5877 over @ over @ 997 ;s ?branch col: cell+ 5 2@ lit (?do) dup 4 var: swap ;s col: 997 2drop ;s var: @ 997 var: @ ! branch 579 ;s col: var: 2@ 3 @ dup @ ?branch 3 2@ nip = ;s 1730 r> var: @ + 27 ?branch drop r> col: 208 +! ;s col: col: 997 var: @ col: >r 1876 swap >r ;s >r 635 ;s @ var: 2@ 281 ?branch branch drop ;s 997 @ and ?dup ?branch 915 swap +! ;s ;s 5 2! ;s branch dup 3553 lit col: drop var: 895 @ (f83find) ;s ;s 1732 pick @ ?dup 0= 158 ?branch ;s ;s dup 52 u< ?branch = ;s 66 faligned nip ;s user: 4514 and ?branch r> lit 105 over >r rot over 6 >r ;s user: ! 279 execute var: @ dup 390 ;s + ;s c! 23 ;s user: @ ?branch 23697 @ ;s @ ;s 287 unloop ;s var: var: 281 over = ?branch branch 1122 col: @ (f83find) ;s 1251 lit and ?branch nip 1005 xor swap c! ;s 66 ?branch drop 2dup col: 61 + ;s ! branch 1 var: 2! var: up! 8 @ 0< ?branch lit 5730 col: col: lit /mod 1352 lit and col: ?dup 59 0= ?branch r@ execute 80421 lit col: col: var: 3553 ?branch lit col: drop 5 2* cells resize col: 305 or swap ! ;s 30 ;s lit col: lit 6699 r> xor cells var: 5 resize col: ?dup ?branch 965 >r r@ does: @ 506 ;s rot col: 0< 287 defer: (emit) var: 2@ 3 ;s ;s rot 2dup 290 @ 0= ?branch var: 9 branch col: var: @ 1437 and ?branch negate ;s 5 lit (?do) dup >r 566 ;s con: - lit 39 con: col: = 0= 3533 drop 2drop lit (+loop) 28 ! ;s over r@ 287 ;s ;s dup var: 231 ;s swap col: col: 2124 @ + ;s ! 2 nip nip execute drop 28 code-address! ;s ;s lit 6 does: col: var: dup 78 ;s drop branch ;s 16728 user: @ ;s +! 987 + ;s 2@ var: 305 swap col: con: /mod 789 ;s ;s branch @ 84 - dup @ swap 5730 c@ ;s ;s over 18 ;s drop ;s ;s 194 swap col: lit col: 7264 2@ over <> ?branch 1 lit (?do) unloop lit 958 ?branch @ lit r@ 2137 ;s ;s branch col: 1 i - unloop ;s 1801 ?branch 2drop ;s branch 506 over - does: swap 287 2@ var: 2@ 0<> 1 cells / ;s var: 1 var: up! sp@ dup 23 ;s @ ;s count 1 <> ?branch col: col: 99 execute col: col: r> 1 defer: noop ;s r> 14 ;s ?branch over col: 3 ?branch execute does: 2@ 113 rdrop r> ?branch r> 279 rdrop ;s execute var: 506 lit col: >r col: 80421 ;s swap @ and 4 swap 1+ rot (do) 1013 ;s swap dup col: 5332 lit and + faligned 1288 @ 0< ?branch var: 951 ?branch 0> ?branch nip 708 ;s ?branch execute var: 997 r> col: dup field: 1634 ;s 2@ defer: (type) 1 <> ?branch drop ;s 1 r> col: var: ! 291 lit cells - var: 6 2dup r> -rot move 35 ;s r> ;s ;s 53 drop ;s branch col: 10 drop r> cell+ cell+ 33093 0= ;s ;s ?branch 1 2drop drop con: ;s 223 over swap r> col: 53 var: ;s branch col: 20 ;s swap var: @ 789 branch @ dup ?branch 125 over c@ lit - 13 col: >r sp@ r> 732 ;s + ;s c@ 197 - con: - unloop 72 unloop ;s branch ;s 31 ;s col: dup con: 5224 (loop) >r over @ 647 + ;s 2@ 2dup 287 defer: (type) lit defer: 1013 ;s +! ;s move 647 (type) col: lit does: 793 defer: (type) ;s lit 941 ?branch dup @ lit 789 swap col: lit + 106 branch lit (+loop) unloop 2 over c@ lit <> 506 @ lit max col: 39 0= ?branch swap drop 246 user: @ over min 287 (type) lit defer: (emit) 285 swap ! ;s (loop) 12 lit /string col: over 1 - lit cells / 130 col: nip swap - 1 0= ?branch con: cells 5 var: 2! 2* cells 3 u> ?branch lit - 1416 ;s ! r@ does: 1806 +! swap user: ! 506 + col: col: col: 10 + -rot con: <> 147 @ col: 2dup col: 185 2drop ;s ;s 0= 1 over col: col: var: 1 dup ?branch dup r> 14405 ;s ;s dup ?branch 1 var: @ dup @ 10 cell+ cell+ (loop) dup 1054 ! ;s ;s lit 566 over +! @ c! 647 nip unloop ;s dup 8 user: @ ?branch ;s 56 (f83find) ;s ;s var: 3308 @ + ;s @ 5 var: 2@ nip 1- 18 ;s ! ;s col: 80421 swap lshift ;s swap 306 + ;s c@ 0= 24 ;s swap ! ;s 126 over c@ lit = 4 execute 0= ;s branch 23 c! col: col: user: 3 ! defer: drop ;s 5 (loop) unloop ;s swap 1 nip nip execute 2* 1730 ! r@ swap col: 19 r> r> rot col: 153 ;s lit cells col: 5 2dup lit col: >r 51 @ execute drop ;s 1730 fill ;s r> ;s 287 cr col: var: 2@ 1 col: var: @ lit 147 drop rot user: @ 5 ?branch 2dup 1- + 160 cell+ (loop) dup @ 997 dup col: col: col: 147 branch col: var: col: 32 ;s ;s ;s r> 8 ;s lit col: var: 1022 >code-address ;s col: col: 5166 lit xor and ;s 599 rot r> var: @ 23 (loop) count col: user: 1 ;s ;s lit branch 39 >r dup 0= ?branch 16 drop ;s swap over 2 drop ;s drop col: 292 ;s dup field: dup 6226 /string (parse-white) 2dup + 14 over col: 2dup col: 1616 rot drop con: rot 7 (type) ;s cr branch 11 drop = ;s ?branch 152 ;s c! col: var: 1 + ! (next) unloop 3 1+ /string ;s ;s 6226 user: @ /string (parse-white) 10 con: ;s ;s branch 226 ;s ;s defer: noop 3 or >r col: 2dup 33 @ ;s does-code! ;s 1 2dup col: var: 2@ 861 ;s ?branch col: var: 2158 @ ;s ;s lit 440 @ ?branch defer: col: 2019 ! lit col: col: 7 ! lit col: >r 909 col: col: var: col: 2 i col: cells var: 23 (parse-white) branch 2dup + 147 ! does: @ does: 350 dup 0= lit and 287 (emit) var: 2@ defer: 10413 0= ;s ;s 0= 16 col: lit lit lit 5 @ >r col: swap 5 ;s var: 2@ nip 440 ! drop ;s ;s 647 ;s cr ;s con: 2 nip 0<> ;s 0= 4 ?branch rdrop ;s lit 58 drop ;s col: col: 5 ?branch ;s col: ?dup 5 ;s col: ?dup ?branch 287 col: var: @ execute 478 (+loop) i col: dup 1002 ;s r@ does: @ 10 cell+ (loop) dup >r 647 defer: defer: col: var: 39 drop ;s swap con: 4938 + faligned ;s r@ 25 col: var: @ 0< 291 ?branch var: @ >r 998 unloop ;s col: col: 30 lit col: lit lit 1 dup ! ;s ;s 1 dup var: ! ?dup 291 col: var: @ 0= 506 (?do) unloop drop ;s 938 ;s ?branch ;s col: 3420 ;s +! ;s ! 7 /does-handler col: col: user: 473 drop col: col: r> 1 1+ dup var: ! 421 ;s c@ col: var: 7 nip execute ! ;s 1 ;s drop var: 2@ 1373 swap (?do) unloop ;s 21 r> ;s ;s branch 654 col: user: @ lit 82 0= ?branch ;s ;s 1 col: var: col: dup 653 (loop) unloop drop 2drop 3968 col: 2dup col: var: 421 @ 0= ?branch does: 33 col: con: col: col: 997 move ;s col: col: 227 @ ?branch col: r> 708 ?branch branch lit col: 24 noop ;s ;s ;s 30 lit user: ! col: 6 >r dup allocate col: 3 ! ;s user: col: 60 col: 0< ?branch lit 25 ;s ;s 0= var: 2 ?branch dup defer: col: 121 con: <> and col: 997 ?dup ;s ?branch dup 767 swap - 1- dup 708 - ;s lit pick 288 ;s ;s ;s does: 24 col: col: defer: noop 18 col: col: con: lit 394 i - count lit 2989 dup @ lit pick 1801 ;s branch col: user: 287 var: 2! var: 2! 1730 var: lit cells lit 10 open-file 0= ?branch rdrop 127 (?do) unloop ;s ;s 506 col: >r tuck dabs 157 + ;s c! col: 1 con: con: branch ;s 253 ?dup ?branch ;s col: 971 ?dup ;s ?branch var: 6 user: ! lit /string 5 r> tuck - dup 146 ;s c@ 0= ?branch 915 lit swap +! ;s 1 user: ! over c@ 23 min /string rot dup 272 drop ;s ;s col: 1 ;s ?branch execute con: 19 pick r@ pick r@ 80422 var: @ = ?branch 1255 ;s (loop) unloop ;s 291 dup ?branch 2drop r> 12 ;s con: ! ;s 4 /string branch over >r 44 ;s ;s ?branch does: 12 /string col: over c@ 82 over char+ col: col: 125 col: lit (?do) count 66 con: ! col: lit 506 r> swap >r um/mod 708 ;s lit pick does: 2982 branch branch lit col: 66 ?branch nip ;s dup 3 ;s ?branch drop does: 4938 r@ lit and ?branch 5 nip nip execute does: 294 1- dup ?branch col: 291 +! var: @ con: 19 ;s col: drop >r 5 user: ! col: ?dup 294 ;s col: r> dup 24272 branch lit col: col: 2 var: @ lit (?do) 5 c! 1+ col: col: 105 @ var: (?do) unloop 1 execute mod ;s branch 5 rdrop lit branch unloop 287 - rot rot - 13 @ >r rp@ user: 70 0<> and ?branch col: 647 dup col: col: defer: 36 ;s + ;s col: 2 (loop) var: cell+ i 236 col: col: col: var: 305 @ or swap ! 1236 dup @ dup ?branch 87 dup col: con: con: 1707 ?branch 0> ?branch col: 4938 faligned ;s r@ lit 4860 r@ does: @ + 268 ?branch 0= swap 0<> 2 nip execute * ;s 1 @ 1- dup 0= 6 >r user: @ user: 125 dup 0> 0= ?branch 3126 con: swap ! ;s 28 over r@ u>= ?branch 11 execute cells ;s branch 52 @ ;s ;s con: 61 = rdrop ;s ?branch 506 ?branch ;s rot col: 9 c@ ;s ;s branch 227 (f83find) ;s dup 0= 6 aligned ;s branch col: 646 + ;s @ var: 506 col: dup 0< ;s 1 >r con: open-file col: 124 r> ;s (loop) unloop 35 @ col: dup con: 837 var: @ ?branch col: 635 @ var: 2@ col: 25 rdrop ;s ;s over 19 rot col: con: <> 287 ! ;s var: var: 1 ?branch i 1+ col: 289 var: ! defer: col: 28 dup lit >= col: 1 dup user: ! user: 68 1- >r r@ col: 49 nip ;s col: user: 75 ;s ! ;s swap 201 nip execute col: ;s 5 2dup 1- + c@ 22 col: var: dup @ 1806 con: user: @ ?dup 52 col: var: @ ?branch 1 0< ;s branch col: 1 dup lit = ?branch 2048 pick ! ! ;s 14 + ;s @ 1+ 301 over col: swap col: 394 dup i - count 1 con: ;s ?branch 1- 10 -rot con: <> ?branch 1 col: 2swap 2dup col: 6249 ;s 2dup >r >r 19 ! ;s rdrop ;s 33 ;s ;s ;s >r 3447 nip nip unloop ;s 223 over min /string over 387 ;s ?branch lit @ 160 ;s c@ 0= or 6 user: +! user: @ 59 ?branch drop 2dup 2>r 895 execute col: @ (f83find) 148 lit = ?branch toupper 647 c! var: count move 6249 r> - 1+ r> 17 0< ?branch ;s ;s 1730 + dup @ 0< 6 branch ;s user: col: 2 0<> ;s 0= col: 6 /string branch ;s user: 25 var: @ 0< ?branch 4938 col: count lit and 6912 ;s user: @ ;s 6 col: swap >r dup 1 lit (?do) i col: 6906 ;s ! ;s ;s 5730 + ;s swap col: 5730 c@ or swap c! 147 @ um* d+ r> 21 cr ?dup ?branch col: 14 ;s ;s ?branch over 468 lit ! user: col: 5 ;s ;s r> user: 80449 var: @ dup var: 3968 defer: col: 2dup col: 294 defer: (type) ;s branch 145 lit u> ?branch dup 160 (loop) dup @ col: 359 unloop ;s ;s col: 19 >r r@ pick r@ 716 (+loop) unloop ;s var: 647 lit does: swap lit 1 ;s lit user: ! 15 + swap cmove var: 1 0<> ;s col: 0= 1 nip execute + ;s 7 cr branch rdrop ;s 647 c! ;s col: lit 647 ?branch ;s ;s var: 4563 defer: (type) ;s cr 5 noop ;s col: does: 27 faligned nip ;s - 72 (?do) unloop ;s branch 291 @ con: >= ?branch 78 @ ?branch con: branch 2727 cell+ count lit and 4 var: ! col: col: 21 ?branch con: min >r 25 col: lit var: +! 356 ;s ;s col: defer: 532 ?branch rdrop ;s ;s 129 ;s 2! ;s ;s 21 min >r var: r@ 15 r@ + swap cmove 5 col: col: lit user: 459 r@ execute or col: 125 dup lit u< ?branch 287 ;s cr var: 2@ 5 ;s user: @ close-file 204 r@ col: dup 1+ 1 @ = ?branch i 8 ;s lit lit col: 197 con: - unloop ;s 125 ! ;s user: @ 6727 col: dup col: col: 292 field: @ col: col: 153 @ ;s lit cells 15 execute col: >r col: col: 933 (s+loop) dup i con: col: 708 over - ;s lit pick 19 ;s ;s ;s r> r> 9171 @ ;s @ ;s con: 1 @ ?branch r> col: var: 1730 r> var: @ + var: 272 count defer: (type) ;s rdrop 506 um/mod r> swap >r um/mod 647 (?do) i' i - lit 39 col: = 0= col: col: 394 - count lit and + 4 nip execute 0= ;s branch 1005 >r ?branch rdrop ;s cell+ 12 user: ! execute col: col: 281 over = ?branch branch drop 5 over r> tuck - dup 708 i col: >r swap dup 2 ;s over lit (?do) dup 3 ?branch nip nip execute @ 574 var: var: @ col: lit 5 defer: noop ;s col: does: 32 ;s dup ?branch drop does: 2627 @ ;s ;s + ;s 129 +! ;s c! ;s con: 1 1- dup 0= col: col: 2 branch lit pick @ ?dup 5730 col: dup col: col: con: 1022 lit >code-address ;s col: col: 6 ! execute col: col: r> 3 col: lit col: 0= ?branch 11 ?branch nip nip execute cells 20 branch ;s con: (+loop) unloop 287 var: 2@ var: 2@ 0<> 3 ;s rot 2dup and var: 941 @ ?branch dup @ lit 136 ;s r@ col: dup 1+ 1 ;s ;s col: 2swap 2dup 18 col: col: col: defer: defer: 196 execute col: defer: noop col: 61 swap does: @ + ;s 39 = 0= col: col: r> 4 i cells + ! (next) 8 drop branch ;s branch col: 153 ;s @ ;s lit cells 13 >r user: @ >r rp@ 1806 lit user: +! swap user: 4938 lit and + faligned ;s 1 user: ! over c@ lit 52 con: <> col: col: r> 5877 >r over @ over @ 2 ?branch nip nip execute drop 2839 ;s ! ;s ;s ;s 124 0> 0= ?branch nip ;s 2 nip = ;s ?branch col: 1730 xor cells >r var: lit 2 ;s nip 0<> ;s 0= 5769 ;s defer: col: defer: col: 506 drop ;s defer: (type) ;s 1 +! ;s col: col: col: 1 2drop dup >r lit col: 68 + @ execute col: col: 2 r> var: ! ;s branch 566 con: - lit over +! 16 ;s ;s r> r> col: 5166 lit xor and ;s 0= 52 nip execute col: var: col: 375 ;s (loop) unloop ;s ;s 1876 swap >r ;s >r ?branch 787 branch @ dup ?branch 2dup 27 ;s r> drop col: con: 1 tuck - lit cells / 440 user: @ ;s user: ! 1 var: 2@ col: col: col: 6702 cells var: @ + @ 24 nip execute col: col: con: 19 cr 0= swap 0<> and 28 var: ! ;s over r@ 204 >r cells sp@ cell+ dup 3968 col: 2dup col: var: @ 13 rp@ user: ! execute col: 287 var: 2! ;s col: col: 4 ;s col: lit var: +! 1 + @ (loop) unloop var: 121 @ ;s over - swap 5 2@ nip 1- user: ! 105 1+ r> move c! ;s 287 col: col: col: col: r> 2882 +! ;s branch branch lit 473 - 1- dup ?branch drop 11070 col: col: r> r> dup 120 +! ;s 2drop ;s ;s 5062 @ col: col: dup field: 23 d+ r> ;s (loop) count 7 @ ?branch defer: noop col: 11070 r> dup count + aligned 1 ?branch 2drop dup >r lit 33 col: r> /does-handler + col: 287 unloop ;s var: var: @ 599 rot r> var: @ lit 789 ;s ;s branch @ dup 223 >r over - dup r> 153 @ ;s lit cells col: 294 defer: (type) ;s branch ;s 227 execute col: col: @ (f83find) 1 ?branch 1- (for) var: cell+ 6 >r >r ;s user: ! 287 ;s col: var: var: @ 147 ! does: @ does: @ 59 rot col: col: col: user: 147 rot user: @ um* d+ 5 resize col: ?dup ?branch ;s 287 2@ var: 2@ rot swap 145 swap (?do) unloop ;s var: 5 col: col: lit user: ! 13 drop col: var: col: lit 53 @ ;s @ ;s - 204 1+ pick >r cells sp@ 708 rdrop ;s ;s con: (+loop) 1407 ;s con: (+loop) unloop ;s 16 move ;s col: defer: defer: 517 nip execute col: user: @ 268 rot 0<> and ?branch 0= 51 col: lit col: col: col: 1616 0= 0= ?branch rot drop 5 1+ dup con: > col: 7 con: defer: noop ;s ;s 113 ?branch r> user: ! ;s 1 dup var: ! ?dup ?branch 53 ;s @ ;s - col: 281 = ?branch branch drop ;s 4 swap drop branch ;s does: 86 ;s ! does: @ col: 7 noop col: r> dup cell+ 226 rdrop ;s ;s col: lit 1 count ;s compare 0= r> 59 r@ execute col: var: col: 997 count lit and ;s var: 1 fp@ user: ! col: var: 68 1- >r r@ col: dup 121 <> and col: col: r> 551 r@ col: >r r@ does: 506 - dup @ tuck - 873 col: col: var: col: con: 4938 col: cell+ dup c@ >r 1 ;s +! ;s col: col: 915 col: var: col: lit swap 42 @ ! ;s ;s col: 1013 ;s swap dup col: col: 1876 >r ;s >r ?branch rdrop 222 (+loop) unloop ;s ;s col: 1138 over - ;s var: 2! 160 @ col: lit col: >r 21 ?branch con: min >r var: 25 ;s ;s col: con: @ 125 con: swap ! ;s over 997 ;s dup faligned swap (?do) 253 swap 0= and ?branch ;s 80726 + swap ;s col: lit 1 nip execute mod ;s branch 642 ;s var: @ col: col: 634 ;s col: col: var: col: 2 ;s drop col: r> /does-handler 951 ?branch 0> ?branch nip nip 895 col: @ (f83find) ;s ;s 1 user: ! col: var: 2@ 1806 col: ?dup ?branch ;s branch 1744 ;s ?branch col: col: var: 2 2dup col: col: r> r> 25 ;s 0= var: @ and 3553 (do) 2dup i 2@ over 647 lit min 2dup defer: (type) 8 + ;s col: user: @ 370 col: does: @ col: var: 8 col: 0= ?branch var: col: 33 + col: col: user: @ 148 ?branch toupper lit - dup 5730 over c@ or swap c! 1 r> - ?branch dup user: 2 2dup * allocate col: ?dup 78 con: branch ;s lit col: 287 dup var: ! col: var: 1 ! ;s branch col: var: 10 (loop) unloop ;s col: col: 47 ?branch nip nip execute con: 28 ?branch con: - dup @ 421 ;s c@ col: var: col: 43 rdrop ;s ;s ;s ;s 3553 lit col: drop var: dup 23 @ ;s @ ;s count 6 ! user: @ >r >r 13223 +! ;s lit col: col: 28 cell+ tuck ! cell+ tuck 3716 ;s col: col: user: @ 3980 and 0= ?branch lit r@ 7135 user: @ ;s user: @ 18 execute col: col: con: lit 5 lit ;s user: @ close-file 9 ?branch col: dup col: dup 152 c! ;s con: col: col: 1808 @ ?branch col: user: @ 61 ;s ?branch execute var: @ 789 @ dup ?branch drop ! 1333 ;s ;s col: col: col: 125 (?do) count col: user: @ 3 swap ! ;s user: col: 4 col: >r ;s ;s col: 19 >r >r lit col: 1+ 14 ;s @ 1+ var: 2@ 279 @ dup r@ = ?branch 10413 0= ;s ;s 0= ?branch 4 0> ?branch col: r> dup 18 ;s ! ;s col: col: 160 ;s c@ 0= or ?branch 5 rdrop ;s nip ?branch var: 1 ;s ?branch col: user: @ 27 pick col: lit over 0<> 1 var: @ = ?branch i 39 >r dup 0= ?branch over 5877 cell+ swap cell+ swap r> 1 ! ;s ;s r> col: 8 ;s drop branch ;s branch 3553 field: @ execute col: drop 5332 count lit and + faligned 1 dup col: col: var: col: 11 ?dup ?branch ;s swap 2dup 1005 ;s cell+ tuck c@ xor 1806 ?branch ;s branch lit user: 6 user: @ = ?branch r@ 23 nip execute col: col: var: 1 execute 2* ;s branch col: 19 r@ pick r@ pick rdrop 6 var: + @ user: ! 1 ! execute col: user: @ 113 rdrop r> ?branch r> user: 197 lit con: (do) dup i 350 dup 0= lit and col: 31 con: swap ! ;s branch 647 var: count col: col: col: 25 2drop ;s ;s 0= var: 66 @ + ;s @ dup 647 ;s ?branch execute var: nip 4 var: col: col: dup field: 1730 ;s r> ;s tuck cell+ 12 branch drop ;s ;s con: 1806 con: user: @ ?dup ?branch 49 faligned nip ;s col: user: 7 (type) ;s r@ col: >r 574 col: var: @ var: (?do) 24 ;s ! con: does: @ 3556 ;s 0= 0= ?branch cell+ 129 unloop ;s lit col: col: 197 ?branch drop lit col: lit 4 execute 0= ;s branch col: 121 col: col: col: con: @ 1250 (?do) con: col: col: col: 147 @ col: 2dup col: lit 839 (f83find) ;s ;s dup ?branch 3 ;s branch ;s ;s does: 129 unloop ;s col: var: @ 3731 <> ?branch col: dup field: 153 ;s +! ;s 2! ;s 5 swap c! 1+ col: col: 732 ! ;s ;s does: @ 5 ?branch ;s col: ?dup ?branch 3553 dup @ 1- cells over 56 tuck ! cell+ tuck ! 125 branch ;s branch col: sp@ 235 col: lit col: user: @ 6249 user: @ ;s 2dup >r 1 con: open-file col: col: r> 2191 ;s col: col: var: @ 287 2! var: var: @ col: 15 ;s execute col: >r col: 1 compare 0= r> or ?branch 23 + ;s @ branch ;s 335 0= ?branch does: @ col: 66 ;s ;s 2drop branch ;s 15 dup >r 2@ dup >r 700 ?branch ;s ;s col: dup 61 @ + ;s @ swap 44 ;s ;s ;s ?branch does: 5 branch unloop 0<> lit and 22273 col: col: col: user: @ 637 var: 2@ col: drop swap 2592 ;s ;s dup ?branch 0> 997 @ and ?dup ?branch 2drop 15 >r col: col: r> r> 708 + @ ;s execute col: 287 defer: (type) ;s lit defer: 8 ;s col: does: @ col: 2 nip execute col: 2dup col: 1730 cells >r var: lit cells 647 r> does: @ + ;s 3 r> ;s ;s ;s branch 5769 user: @ > ?branch ;s 51 branch ;s ;s col: lit 1 cells col: swap >r dup 2 execute col: 2dup col: lit 1 ;s ?branch execute con: con: 1769 ;s lit @ execute col: 69 col: col: user: @ ?branch 971 ?dup ;s ?branch var: @ 5 execute over ;s branch col: 27 lit pick col: lit over 997 @ ?dup ;s ?branch dup 5 2! ;s branch dup ?branch 1 >r ;s user: ! user: 10 ;s r> user: ! rdrop 5758 @ (hashfind) ;s ;s dup 2 dup @ ?branch dup defer: 3553 + (do) 2dup i 2@ 10413 0= 0= ;s ;s 0= 28 ;s over r@ u>= ?branch 5 nip ?branch var: 2@ lit 4 dup ?branch lit /string branch 1138 - ;s var: 2! ;s 10 2dup con: swap read-file ?branch 253 ?branch ;s col: var: @ 13 fp@ >r col: laddr# ;s 647 + ;s 2@ 2dup col: 287 col: var: var: @ col: 36915 0= ;s ;s col: 0= 23 + ;s @ ?branch does: 21 min >r var: r@ cmove 1054 ;s ;s col: col: user: 119 u< ?branch drop ;s user: 637 col: drop swap - 1- 305 ;s over @ or swap 291 var: +! var: @ con: 96 ?branch ?dup ?branch ;s col: 73 nip nip execute col: var: 305 @ or swap ! ;s 28 ! ;s + ;s col: 25 ;s ;s dup 0= col: 8 ?branch var: col: con: swap 2 ?dup 0= ?branch 2dup * 27 dup ?branch drop r> col: 16 swap over col: swap col: 1416 ! r@ does: @ + 48 r> col: col: col: user: 305 lit swap lshift ;s over 1 nip execute col: lit user: 1 1- i' i - unloop 60 col: 0< ?branch lit col: 225 execute and 0= 0= ?branch 128 ;s 2drop ;s does: @ 27 execute col: xor invert ;s 30 ;s dup 0= ?branch ;s 8 con: swap ! ;s var: 461 nip nip execute col: defer: 1 over c@ lit = ?branch 19 ;s col: drop >r drop 1 <> ?branch col: col: 2dup 125 ! ;s over c@ lit 3967 ;s branch col: sp@ user: 287 ;s cr col: var: 2@ 10 ;s ;s ;s col: r> 3 u> ?branch lit - dup 125 ;s dup ?branch drop 2dup 14 r@ col: does: @ + 987 @ + ;s 2@ var: 599 (loop) unloop drop 2drop ;s 291 >r var: col: con: swap 12 drop ;s ;s con: ! 2982 branch branch lit col: col: 2048 pick col: dup @ lit 58 ?branch nip ;s ?branch 2rdrop 647 unloop ;s dup r> does: 908 ;s ?branch ;s col: col: 1 count ;s compare 0= >r 1 lit <> ?branch i 1+ 227 (f83find) ;s dup 0= ?branch 19 col: >r >r lit col: 1 (?do) i col: cells var: 287 ?branch col: var: ;s lit 3 drop ;s does: @ col: 2 @ (loop) var: cell+ i 1005 lit col: user: @ dup 287 var: ! ;s var: var: 1482 ?branch ;s col: col: var: 2 var: @ <> ?branch ;s 59 0= 0= ?branch r@ execute 25 lit var: +! col: var: 1730 drop r@ @ rot ! 33 does-code! ;s ;s ;s branch 350 ;s ;s lit col: user: 997 >r 2dup 2dup r> col: 223 r> col: >r dup ?branch 7 rot 0= and ?branch col: 647 count move lit lit ! 32 dup ?branch drop does: @ 3 execute col: dup col: col: 42 execute col: ;s ;s col: 13 @ execute col: col: does: 3 ?branch execute does: 2@ ;s 22 ;s col: col: col: r> 4 execute col: 0= ?branch var: 2048 ! ! ;s lit pick 291 - var: over cell+ ! 2 /string ;s ;s over c@ 5 nip 1- user: ! lit 281 col: dup negate user: +! 1 - col: col: user: @ 3 branch ;s ;s does: @ 10 col: lit col: col: defer: 9 char+ c@ ;s ;s branch 1730 lit and col: con: (hashkey1) 5 ;s user: ! lit user: 105 lit 2swap swap (?do) unloop 147 ;s ! does: @ does: 21 lit ;s ;s ;s branch 197 con: (+loop) dup i - 1 ;s ;s dup ?branch rot 5 2dup lit col: >r dup 7 ;s ?branch col: col: r> 287 ;s cr col: col: col: 287 col: var: @ execute col: 459 or col: col: col: user: 997 col: >r 2dup 2dup r> 663 ;s user: @ ;s user: 10 lit col: col: defer: defer: 421 + ;s @ 0= ?branch 13 >r fp@ >r col: laddr# 16 execute col: lit lit lit 7 var: cell+ i cells + 5 2* cells resize col: ?dup 1416 ;s @ ;s dup aligned 5769 > ?branch fp@ user: @ 281 negate user: +! lit over 24 ;s ;s ;s swap ! 3 nip nip execute lshift ;s 16 ! ;s r> col: col: 5 ;s drop col: ?dup ?branch 647 @ + ;s 2@ 2dup 1 @ = ?branch i 1+ 16 +! ;s 2! ;s r> 1 dup 0> 0= ?branch ;s 125 swap ! ;s lit lit 1806 +! swap user: ! lit 2581 /string branch dup ?branch over 1 nip var: 2! ;s defer: 43 con: ;s lit col: col: 507 does: @ does: @ col: 1 + ! (next) unloop ;s 941 pick ! ! branch var: 2 >body user: @ ?branch col: 1 ;s branch dup ?branch 2drop 164 ;s ;s dup does: @ 1153 swap lit max lit (?do) 1251 ;s ;s dup ?branch lit 708 0= ;s ;s ?branch branch 3 ;s col: col: var: dup 28 rdrop ;s tuck ! cell+ 446 ?branch ;s col: 2drop col: 529 ! ;s col: col: user: 506 ;s defer: (type) ;s ;s 506 - does: swap lit max 78 ;s con: = ?branch col: 7 cr branch rdrop ;s ;s 647 ! ;s dup col: col: 3 and ?branch or >r col: 5 ! ;s ;s drop ;s 25 nip execute col: col: lit 1437 and ?branch negate ;s ;s 997 0< ?branch var: @ @ 1 ;s >r col: defer: defer: 1022 ;s does: @ col: var: 197 i - con: - unloop 3 (next) var: cell+ i cells 30 >r user: @ >r user: 23 drop (parse-white) branch 2dup + 506 um/mod r> ;s rot lit 5 ;s 2! ;s ;s con: 5730 c! ;s ;s ! ;s 1876 >r swap >r ;s >r 19 ! ;s ;s drop con: 13 laddr# ;s >r user: @ 3 rot 2dup and var: @ 1 ;s over col: col: var: 5 or col: dup ?branch r> 23 move c! ;s con: col: 18 ?dup ?branch ?dup ?branch col: 443 ;s @ does: @ col: 5 1- + c@ lit <> 12 ?branch var: @ ?branch over 1251 dup ?branch lit and ?branch 4 nip execute col: swap col: 106 (+loop) unloop 2drop con: ;s 1801 ;s dup ?branch 2drop ;s 647 defer: defer: col: var: count 9 <> ?branch 2dup con: swap 16 >r >r dup >r col: 708 ;s 2! con: + ;s 287 2! col: col: r> r> 1 open-file col: col: r> r> 599 col: >r con: rot rot 1730 @ over cell+ count lit 43 ?branch con: ;s lit col: 143 drop branch ;s dup does: 5193 over @ r@ execute col: 1 con: / 1+ dup var: 231 swap col: col: col: user: 1 ! ?dup ?branch 1- (for) 66 + ;s @ dup var: 647 min 2dup defer: (type) (+loop) 3 ;s drop ;s ;s col: 1 var: @ lit (?do) var: 13 ?branch ;s ;s ;s ;s 5 dup ?branch r> r> user: 6699 ;s r> xor cells var: 3 swap 1+ /string ;s ;s 196 ;s code-address! ;s con: col: 4514 lit and ?branch r> lit 469 var: @ var: (?do) i 789 @ ?branch col: dup @ 25 ! ;s ;s col: con: 1 ?branch con: lit ! lit 61 @ + ;s ! branch 389 @ ;s ;s lit col: 287 over - ;s 2dup var: 880 + ;s ! does: @ 3 1- ;s branch col: sp@ 2 ! defer: drop ;s drop 5 lit user: ! user: col: 987 + ;s 2@ var: @ 6 execute aligned ;s branch col: 1730 col: con: (hashkey1) ;s xor 19 rot col: con: <> col: 4 lit lit col: >r dup 7 defer: (type) ;s cr branch 13 ;s ;s r> ;s ;s 22 ;s ;s swap col: col: 19 var: ! ;s rdrop ;s 11070 aligned >r swap >r ;s 6 nip nip execute aligned ;s 66 dup var: 2@ col: drop 1 var: @ 0= ?branch con: 23 min /string rot dup con: 5 >r lit col: >r dup 16 execute col: >r >r >r 292 ! ;s ;s var: field: 19 ;s ;s col: drop >r 82 over char+ col: col: user: 6 nip execute aligned ;s branch 6699 con: (hashkey1) ;s r> xor 903 ;s ;s ;s branch col: 1 ;s defer: noop var: @ 1 ! defer: drop ;s ;s 125 dup ?branch 2drop rdrop r> 506 - dup ! ;s col: 10 read-file ?branch rot over + 27 drop r> col: col: col: 1 lit + dup user: ! 3 col: cells var: @ + 469 2swap swap (?do) i col: 121 con: <> and col: col: 1 ;s defer: noop ;s r> 19 ;s @ ;s ;s char+ 6699 @ >r 2dup col: con: 148 +! ;s ! ;s lit 52 2dup u< ?branch = ;s 287 unloop ;s ;s col: var: 1 execute col: col: sp@ user: 291 ?branch ;s lit cells - 6912 @ ;s user: @ ;s 124 ;s col: col: col: con: 281 user: @ swap - col: 5 ;s col: ?dup ?branch ;s 19 r> r> rot col: con: 15 var: swap cmove 2dup var: 5 >r ;s user: ! lit 5877 over @ over @ r@ 56 (f83find) ;s ;s var: @ 1 ?branch 2drop col: col: user: 66 (type) ;s 1+ var: 2@ 287 0= rot 0<> and ?branch 1 branch (+loop) i col: cells 4 (do) i over col: swap 1 nip nip execute 0< ;s 941 ;s ?branch var: @ col: 3 @ ;s branch col: sp@ 4 ;s branch dup ?branch lit 1806 lit user: ! ;s ?branch 21 con: lit ;s ;s ;s 911 dup faligned swap (?do) con: 5 col: user: @ >r col: 5 tuck 1+ 2* cells resize 8 @ lit ! var: var: 5 >r ;s drop col: ?dup 1022 ;s ! ;s ;s lit 5 var: ! col: var: dup 26 nip nip execute col: con: 236 and ?branch ;s col: col: 3 lshift ;s branch col: sp@ 412 con: swap ! ;s lit 21 ;s 0> ?branch col: col: 647 ! ;s ;s dup >r 4 ;s 0> ?branch col: r> 1 >r col: lit (?do) unloop 1730 var: lit cells lit col: 3 ?branch lit - dup lit 121 swap con: <> and col: 128 +! ;s ;s ;s 2drop 3968 defer: col: 2dup col: var: 2158 col: var: @ over - 125 ;s user: @ 0= ?branch 5 nip r> rdrop lit branch 5 ;s >body user: @ ?branch 997 var: @ col: >r 2dup 87 con: 1+ within 0= col: 5730 swap col: con: - ;s 5730 does: + c@ ;s ;s 5758 (hashfind) ;s ;s dup ?branch 31 ! ;s col: dup con: 2048 ;s lit pick + (loop) 8 swap c! ;s ;s ;s 28 cell+ tuck ! cell+ var: 647 lit does: swap lit max 79 (?do) unloop ;s ;s col: 3 does: 2@ ;s con: branch 1 execute col: var: @ 1- 6699 execute col: lit + @ 7 @ ;s @ ;s /does-handler 61 = ?branch does: @ + 111 and ?branch col: col: r> 1 /string ;s ;s col: 2swap 1 var: @ lit > ?branch 1013 @ ;s +! ;s move 120 user: +! ;s 2drop ;s 4 ;s @ ;s ;s col: 1634 ;s 2@ defer: (type) col: 1 2! ;s ;s ;s branch 201 col: ;s ;s branch col: 9 con: ;s ;s ;s branch 4938 ;s ;s dup ?branch col: 225 @ r@ execute and 0= 4 unloop drop ;s swap 1+ 45 ?branch ;s col: user: @ 5 cells resize col: ?dup ?branch 287 rot swap - rot rot 8 lit @ var: ! ;s 25 col: lit var: +! col: 9 drop con: ;s ;s ;s 1806 ?dup ?branch read-line col: ?dup 1 code-address! ;s lit col: col: 51 + @ execute drop ;s 11070 col: r> r> dup count 693 ;s execute col: >r r@ 197 (do) dup i - count 291 ?branch var: @ >r var: 35 @ ?branch var: @ col: 1 execute col: user: @ >r 8 var: var: ! ;s ;s 1806 branch lit user: +! swap 1416 swap dup r@ does: @ 647 ;s 2@ col: col: dup 3553 over + (do) 2dup i 19 u>= ?branch col: var: @ 281 col: user: @ swap - 6249 col: defer: col: col: user: 647 dup ?branch ;s ?branch dup 8618 swap >r ;s count defer: 1 @ u>= ?branch drop con: 6699 var: @ + @ (hashfind) 1 ! var: @ con: cells 1 lit > ?branch con: lit 1 > ?branch con: lit ! 1 2@ nip var: 2! ;s 281 ;s (loop) i over col: 291 cell+ dup @ 0< ?branch 15 2dup var: r@ + swap 57 ! ;s ;s col: var: 5 over >r lit col: >r 143 ;s ;s ?branch drop branch 8 var: @ lit ! var: 3553 @ 1- cells over + 4909 +! ;s c! ;s (loop) 6 /string branch ;s user: col: 5730 + swap does: + c@ 30 lit user: ! col: col: 20 nip execute col: con: col: 1730 col: lit fill ;s r> 4 var: swap ;s col: user: 506 (type) ;s lit col: >r 1582 lit @ execute col: lit 21 col: col: lit col: >r 19 ! ;s rdrop ;s col: 19 r@ pick rdrop dup col: 1769 ;s ;s lit @ execute 1 negate ;s ;s ;s 0= 4 nip nip execute 0= ;s 6 user: ! user: @ >r 11 nip execute cells ;s branch 290 var: @ 0= ?branch var: 1730 ;s xor cells >r var: 449 cr ;s con: (+loop) unloop 18 ;s ! ;s does: @ 30 @ ;s col: lit >code-address 4 col: var: col: col: dup 941 branch ;s col: user: @ 156 dup @ dup ?branch nip 27 ?branch drop r> col: col: 265 ;s ?branch r@ col: >r 506 over - does: swap lit 1 defer: noop ;s r> col: 225 r@ execute and 0= 0= 128 col: var: col: col: col: 292 ;s ;s dup field: dup 8 ;s ;s lit lit col: 25 ;s ;s ;s dup 0= 25 ;s 1- var: 2! ;s 5 close-file swap 2dup or col: 789 2dup swap col: lit + 3553 execute col: drop con: ?branch 1 user: ! fp@ user: ! 468 lit ! user: col: con: 506 0< ;s r> col: >r 287 0= swap 0<> and ?branch 80421 and 0= 0= ;s ;s 1 ;s con: ! ;s branch 119 dup lit u< ?branch drop 61 @ r@ does: @ + 22 2drop ;s does: @ col: 15 cmove var: over r> + 4938 dup c@ >r col: count 1 ;s 2dup col: var: 2@ 708 ;s + rdrop ;s con: 16 @ ;s >r col: col: 59 ?branch 2rdrop branch ;s branch 2019 ! lit col: col: col: 226 ;s ;s col: lit lit 105 var: @ var: (?do) unloop 80421 ;s swap @ and 0= 1 ;s swap col: 2dup con: 274 ;s does: @ does: @ 23 ;s + ;s @ branch 236 ;s col: col: col: var: 142 lit over 0<> ?branch faligned 66 2drop branch ;s branch col: 997 @ @ over ! var: 178 branch lit (+loop) 2dup i 5 con: > col: col: r> 3 ! ;s user: col: con: 480 min user: ! ;s col: 708 ;s lit pick does: @ 10 ?branch rot over + -rot 20 ;s @ ;s swap var: 1 rdrop ;s var: ! ;s 429 defer: (type) ;s cr rdrop 1 execute col: con: / 1+ 5 r> user: ! >r ;s 47 execute con: ;s branch col: 5 ?branch 2dup 1- + c@ 20295 var: +! ;s branch lit 5166 xor and ;s 0= 0= 10 rdrop rdrop rdrop lit ;s 789 swap col: lit + dup 789 dup ?branch 2dup swap col: 28 >r ?branch rdrop ;s tuck 6 @ user: ! lit /string 506 >r lit r@ um/mod r> 58 ;s drop ;s col: col: 10 ;s char+ c@ ;s col: 1 (?do) var: cell+ i cells 28 >= col: col: r> r> 1 col: var: 2@ 2* cells 142 col: lit over 0<> ?branch 39 drop r> drop ;s swap 1031 dup 0= col: col: r> 31 user: ! ;s var: col: 11 var: 2@ drop = ;s 997 @ ;s dup faligned swap 506 ;s ;s 2dup d0= ?branch 145 u> ?branch dup user: @ 19 ;s col: var: @ ?branch 566 over +! @ c! ;s 611 0= ?branch ;s col: col: 2 0<> ;s 0= col: 0= 652 ;s ;s 0= ?branch ;s 23 @ over min /string rot 1 cells col: lit fill ;s 287 var: 2@ var: 2@ rot 2 >r ;s count ;s compare 4 rot (do) i over col: 4 execute col: col: lit var: 291 lit var: +! var: @ 5 ;s ;s col: col: lit 1 lit cells / ;s var: 1730 ?dup 0= ?branch >r drop 28 <= ?branch con: - dup 4938 ?branch col: cell+ dup c@ 6 r> user: @ >r user: 16 nip execute col: >r >r 39 0= ?branch over 0= 0= 30 ?branch var: @ field: @ 3 dup lit u> ?branch lit 287 2@ 0<> rot 0= and 1 lit user: ! lit col: 15 drop branch ;s ;s branch 6249 2dup >r >r user: @ 997 var: @ ! branch ;s 82 r> move c! ;s col: 287 ;s col: var: @ var: 2048 dup lit pick col: dup 647 lit lit ! ;s ;s 1730 @ rot ! r@ swap 27 lit lit col: >r >r 125 r> user: ! ;s user: 708 ?branch branch lit col: col: 280 ?branch 0<> swap 0= and 245 2dup col: lit col: >r 25 ;s dup 0= col: col: 9171 @ ;s con: col: col: 5730 dup @ + ;s swap 125 unloop lit branch ;s dup 39 col: >r dup 0= ?branch 1 ?branch nip nip execute field: 1662 ?branch col: col: col: col: 1077 aligned swap (?do) unloop ;s 1 ;s compare 0= >r 2dup 4 branch ;s does: @ col: 997 ;s move ;s col: col: 23 r> ;s (loop) count col: 130 2@ col: nip swap - 36915 ;s ;s col: 0= ?branch 128 0= ?branch con: does: @ 227 @ (f83find) ;s dup 0= 1730 tuck cell+ ! r> var: 78 @ ?branch con: branch ;s 958 @ lit r@ lit and 6 @ = ?branch drop con: 1730 and col: con: (hashkey1) ;s 5 1- user: ! lit col: 1730 swap col: lit fill ;s 47 nip execute con: ;s branch 1 con: ;s ?branch col: user: 4938 faligned ;s r@ lit and 5 ;s c! col: does: @ 140 ;s (loop) unloop ;s col: 136 drop r> ;s r@ col: 965 col: >r r@ does: @ 2 nip nip execute col: 2dup 2 ;s +! ;s ;s branch 129 ;s lit user: @ col: 5 lit branch unloop 0<> lit 2 +! ;s ;s branch col: 9 con: ! ;s ;s ;s 2 drop ;s drop col: r> 66 ;s ! ;s ;s 2drop 5769 ?branch fp@ user: @ > 1416 i col: dup does: @ 1730 var: @ + var: @ 15 2@ dup >r var: swap 997 and ?dup ?branch 2drop 2drop 9 +! ;s ! ;s (loop) 4 >r ;s ;s col: lit 6699 @ execute col: lit + 2 0= ?branch 2dup * allocate 807 col: col: col: r> r> 16728 col: user: @ ;s +! 142 ?branch drop branch ;s dup 1730 cells lit col: lit pick 1730 lit + dup @ 0< 121 col: dup con: <> swap 1 ;s @ ;s >r over 3447 nip nip unloop ;s ;s 440 user: ! drop ;s ;s 3 or >r col: 2dup col: 39 swap con: col: = 0= 136 move drop r> ;s r@ 45 (?do) unloop ;s ;s lit 43 @ ?branch con: ;s lit 18 0= ?branch col: var: col: 5 ;s col: col: lit user: 7 (loop) unloop ;s ;s branch 17 ?branch col: con: @ col: 4 ;s var: swap ;s col: 5 + ;s c! col: does: 689 >r @ col: col: col: 4938 ;s r@ lit and 0= 484 ?branch ;s col: col: r> 10 c@ ;s col: user: @ 80726 /mod cells rot + swap 9194 >r swap >r ;s count 197 lit + = ?branch i 394 lit and + faligned over 19 ;s ! ;s lit col: 12 drop ;s dup col: lit 23 col: lit lit col: >r 5730 - ;s con: / col: 12 drop ;s ;s col: col: 708 @ + @ ;s execute 23 ;s @ branch ;s col: 1 con: con: branch ;s ;s 284 dup ?branch drop branch lit 1 @ lit > ?branch con: 14 + ;s @ 1+ var: 1634 @ + ;s 2@ defer: 5 branch ;s ;s col: col: 5730 swap does: + c@ ;s 61 @ swap does: @ + 5 open-file 0= ?branch nip nip 287 rot rot - ?dup ?branch 4 drop branch ;s does: @ 3025 col: user: @ ?dup ;s 31 ;s col: dup con: ! 1801 ;s ?branch col: col: sp@ 1 + dup user: ! user: 281 swap ! ;s lit var: 61 dup r@ = ?branch does: 708 + ;s 2! con: + 3 execute 1+ ;s branch col: 289 dup @ dup ?branch 2drop 1005 col: user: @ dup 0= 1578 ;s @ ;s lit + 1 0= >r 2dup col: col: 25 ;s ;s 0= var: @ 5 var: 2@ lit (?do) dup 2 con: ! ;s ;s branch 4080 var: col: @ @ ;s 19 rdrop ;s ;s col: >r 69 execute col: col: user: @ 1039 ;s ;s ;s col: lit 125 col: over c@ lit - 197 - con: - unloop ;s 291 >= ?branch ;s lit cells 52 col: con: @ col: 2dup 58 nip ;s ?branch 2rdrop branch 6226 >r user: @ /string (parse-white) 294 branch ;s col: col: r> 105 2swap swap (?do) unloop ;s 287 2dup var: 2! var: 2! 66 ?branch faligned nip ;s user: 1 (?do) unloop 2drop drop con: 647 unloop ;s lit col: user: 2 ;s count ;s compare 0= 39 lit col: >r dup 0= 1 - unloop ;s dup ?branch 5 drop col: ?dup ?branch ;s 33 user: @ ;s does-code! ;s 52 ?branch = ;s 0= ?branch 1806 ;s con: user: @ ?dup 997 move ;s col: col: col: 1616 rot cell+ swap cell+ swap 21 @ ?branch con: min >r 7 ;s rdrop ;s col: col: 7 defer: (type) ;s r@ col: 41 (?do) unloop ;s lit col: 231 ;s swap col: col: col: 284 ?branch drop branch lit (+loop) 125 lit (?do) count col: user: 147 ?branch col: swap >r swap 58 0= ?branch nip ;s ?branch 117 branch ;s ;s branch col: 10 drop r> cell+ cell+ (loop) 36916 ;s col: 0= ?branch var: 258 +! ;s ! ;s con: 1 swap col: 2dup con: swap 1 >r 2dup col: col: r> 5 ;s r> user: ! col: 28 col: var: @ dup lit 34 swap 0= and ?branch col: 281 user: +! lit over = 4 nip execute col: con: swap 40 (?do) unloop ;s var: var: 10 + -rot con: <> ?branch 24 ! con: does: @ col: 3 +! ;s ;s ;s rot 1 0< ;s branch col: sp@ 6699 field: @ execute col: lit 6 ! drop ;s ;s ;s 7 = ;s ?branch branch rdrop 647 ?branch dup does: @ + 14 @ var: ! ;s ;s 19 * 1- >r r@ pick 14 col: does: @ + ;s 1 ?branch drop branch ;s r> 1616 rot drop con: rot rot 4 drop ;s swap 1+ rot 3 execute col: lit col: 0= 6 ?branch ;s swap 2dup r> 227 col: col: @ (f83find) ;s 6249 @ ;s 2dup >r >r 1616 rot rot cell+ swap cell+ 21 r@ cmove var: r> ;s 8 var: @ 0< ?branch lit 78 ;s ;s ;s 0= ?branch 61 + ;s @ swap does: 647 defer: (type) col: lit does: 10 con: swap read-file ?branch rot 1737 var: 2! ;s lit col: 24 + ;s ! con: does: 1 @ lit (?do) var: cell+ 148 lit = ?branch toupper lit 647 (+loop) unloop drop ;s ;s 24 ;s swap ! ;s ;s 1 ;s @ ;s col: col: 5 ?branch rdrop ;s nip ?branch 165 nip execute col: lit col: 119 ?branch drop ;s user: col: 8 ;s (loop) lit col: col: 15 0= ?branch ;s col: user: 789 col: dup @ dup ?branch 1 con: cells allocate col: ?dup 237 >r dup ?branch over c@ 11 1+ var: 2@ drop = 1 0= r> or ?branch 2drop 1 1+ /string ;s ;s col: 47 drop ;s col: 2dup col: 1148 (type) ;s var: 2@ defer: 36913 ?branch lit var: +! ;s 31 ;s user: ! ;s var: 281 ;s lit var: ! ;s 125 col: lit (?do) count col: 473 drop col: col: r> r> 279 ?branch rdrop ;s execute var: 1 nip nip execute mod ;s 1610 ;s lit col: col: col: 287 ! ;s ;s dup var: 6 ;s ;s ;s col: defer: 341 execute col: does: @ col: 285 or swap ! ;s (loop) 2 ;s branch @ dup @ 997 ?dup ;s ?branch col: cell+ 1 var: 2! col: var: 2@ 204 dup cell+ rot move drop 60 c! ;s ;s col: 2drop 506 ;s rot lit over < 387 ?branch lit @ execute col: 125 col: col: user: @ >r 676 0= ?branch col: col: var: 653 var: @ lit (do) >r 1 nip execute + ;s branch 1 col: dup lit = ?branch 789 ! ;s ;s branch @ 27 ;s ;s r> drop col: 2049 ! ;s ;s ;s ;s 6249 r> - 1+ r> min 149 var: @ ;s col: col: 5 ?branch ;s var: swap ;s 127 lit var: +! ;s col: 5166 @ r@ execute col: lit 147 @ u>= ?branch con: ;s 18 ?branch ?dup ?branch col: col: 933 ?branch lit (s+loop) dup i 5224 swap r> (loop) >r over 20 ;s swap var: @ lit 86 dup faligned swap (?do) unloop 87 within 0= col: col: r> 287 ;s lit defer: (emit) var: 1730 r@ swap col: lit fill 2 col: ?dup ?branch ;s over 291 col: var: @ 0= ?branch 997 execute col: col: col: user: 3420 @ ;s +! ;s ! 9 con: <> ?branch 2dup con: 712 and ?branch ;s ;s ?branch 2 execute >body ;s branch col: 6 user: @ user: @ = 31 - swap ! ;s col: 204 dup 1+ pick >r cells 280 0= and ?branch 0<> swap 574 col: var: ;s lit col: 126 ?branch rdrop ;s ;s ;s 61 ?branch execute var: @ does: 19 ;s ;s char+ c@ ;s 5 ;s @ var: @ 1+ 1 var: 2@ lit (?do) unloop 341 @ execute col: does: @ 15 ;s col: var: col: col: 1730 con: (hashkey1) ;s xor cells 15 con: ;s ;s does: @ 54 ;s @ ;s >r var: 25 col: var: @ 0< ?branch 997 col: dup lit u> lit 1022 @ ;s dup user: ! 506 (?do) unloop drop ;s defer: 1 <> ?branch i 1+ var: 7 ! lit col: >r sp@ 7650 ;s ;s ;s dup ?branch 12 ?branch lit /string col: over 16 ;s ! ;s r> col: 5 unloop ;s swap col: col: 1 ?branch drop con: ;s ?branch 6 + @ user: ! lit 6 branch dup ?branch rdrop ;s 35 ?branch var: @ col: dup 2394 var: col: con: swap ! 1425 ;s var: 2! ;s lit 1 1+ dup var: ! col: 28 ;s code-address! ;s ;s over 6 lit u< ?branch cells var: 12401 @ field: @ execute col: 1 ;s dup col: col: var: 421 @ 0= ?branch does: @ 21 ;s col: con: lit ;s 2 + @ (loop) var: cell+ 647 defer: (type) (+loop) unloop drop 1 <> ?branch drop ;s dup 28 + ;s col: r> /does-handler 33 col: col: con: <> col: 895 execute col: @ (f83find) ;s 36915 var: @ var: @ <> 5 ;s (loop) unloop ;s swap 30 ;s ?branch ;s ;s col: 6 unloop ;s ;s branch col: 3447 ;s ;s dup ?branch nip 339 aligned swap (?do) con: col: 1801 branch col: user: @ ?branch 475 ! user: col: con: swap 287 defer: (emit) var: 2@ defer: 13 0= or ?branch drop col: 68 ?branch col: user: @ ?branch 1 con: <> ?branch drop ;s 39 col: lit col: >r dup 27 col: xor invert ;s col: 25 ;s ;s over col: lit 689 cell+ >r @ col: col: 203 defer: noop ;s ;s branch 637 2@ col: drop swap - 506 unloop drop ;s defer: (type) 147 ;s branch col: var: col: 3 nip execute lshift ;s branch 66 nip ;s dup ?branch 0> 120 ;s 2drop ;s ;s branch 294 ;s col: r> dup cell+ 647 execute var: nip unloop ;s 3 execute 2drop ;s branch col: 1 execute col: var: @ lit 506 dup ! ;s col: col: 80415 @ = ?branch c@ ;s 25 rdrop ;s 0> ?branch col: 1 execute + ;s branch col: 59 dup ?branch drop 2dup 2>r 17 execute col: lit var: +! 642 ;s ;s var: @ col: 19 r@ pick r@ pick r@ 1 ! col: var: 2@ col: 1641 ;s ;s 2drop ;s branch 87 con: * 1- >r r@ 80421 col: col: con: /mod cells 1 or ?branch 2drop dup >r 27 r@ execute col: xor invert 3731 over <> ?branch col: dup 5 execute does: col: var: dup 321 execute col: col: col: r> 121 ;s over - swap ! 506 @ tuck - ;s r> 80421 @ and 0= 0= ;s 1730 ;s tuck cell+ ! r> 5769 user: ! ;s dup ?branch 1 ;s var: 2! col: var: 1 >r over >r lit col: 708 >r swap dup r@ does: 1 ;s +! ;s ;s ;s 5730 col: col: con: dup @ 941 @ (hashfind) ;s ;s var: 8618 >r ;s count defer: (type) 8 execute col: col: var: dup 27 drop col: con: @ col: 506 col: >r lit r@ um/mod 41 0= and ?branch col: col: 647 2@ defer: (type) col: lit 16 >r col: col: col: user: 12 dup col: lit over 0<> 153 lit cells col: col: user: 8 ?branch rdrop ;s ;s lit 1 nip nip execute 2* ;s 1 fill ;s var: @ over 121 ;s ;s con: = ?branch 789 ?branch col: dup @ dup 1811 user: ! lit user: ! 6 execute col: col: r> user: 469 (+loop) unloop ;s col: var: 60 lit col: col: col: col: 287 var: ! ;s lit col: 3 ;s ;s drop ;s does: 3 ;s ;s ;s col: con: 708 col: >r swap dup r@ 1 (next) unloop ;s ;s branch 34 ! ;s ;s ;s col: 350 swap c! ;s ;s col: 505 @ var: 2@ col: drop 218 drop con: branch rdrop ;s 506 2drop col: col: col: user: 16 code-address! ;s ;s r> r> 35 ;s r> ;s ;s does: 129 lit user: @ col: col: 53 execute drop ;s branch col: 997 ;s user: ! lit col: 66 ! ;s ;s 2drop branch 35 user: ! ;s col: con: 291 @ con: >= ?branch ;s 223 ?branch 1+ user: +! ;s 16 ! ;s col: col: col: 291 var: @ con: >= ?branch 1 dup user: ! user: ! 13 col: laddr# ;s >r user: 958 lit and 0= ?branch @ 566 +! @ c! ;s ;s 2009 (type) ;s cr col: col: 33 +! ;s ;s ;s >r 6699 lit + @ >r 2dup 5 nip nip execute does: col: 7 >r ?branch rdrop ;s var: 157 col: col: r> dup cell+ 125 ?branch 2drop rdrop r> ?branch 30 ?dup ;s ?branch ;s ;s 5730 or swap c! ;s ;s 14 branch rdrop ;s ;s con: 2 pick + (loop) unloop drop 1022 >code-address ;s col: col: col: 1580 i con: col: col: dup 287 - rot rot - ?dup 951 dup ?branch 0> ?branch nip 87 dup col: con: con: 1+ 265 ?branch r@ col: >r r@ 287 (type) ;s cr cr ;s 15 ;s var: @ and ?branch 121 dup con: <> swap con: 1046 ;s ;s col: dup col: 279 var: @ dup r@ = 287 col: col: var: @ execute 3553 drop var: dup @ 1- 1352 and col: ?dup ?branch ;s 124 dup 0> 0= ?branch nip 66 drop 2dup col: col: user: 10 (loop) dup >r 2@ dup 287 defer: (type) ;s cr cr 1 unloop ;s dup ?branch dup 1 2drop col: col: user: @ 635 + ;s @ var: 2@ 3 nip nip execute 2drop ;s 1 (loop) unloop var: @ ;s 28 @ swap var: ! ;s 27 >r user: @ lit pick 234 nip nip execute col: lit 708 con: + ;s lit col: 16 r> r> r> col: col: 53 nip execute var: ;s branch 1 (for) var: cell+ i cells 3447 ;s dup ?branch nip nip 9194 ;s con: col: col: user: 6 /string branch dup ?branch rdrop 997 ;s @ ;s user: ! 647 var: nip unloop ;s dup 647 2@ col: col: dup lit 469 swap (?do) i col: dup 16 ;s r> r> col: col: 13 ;s ;s ;s r> ;s 9 ?branch ;s ;s col: col: 52 ;s - col: col: col: 6 +! user: @ user: ! 290 @ 0= ?branch var: @ 2 @ dup @ ?branch dup 61 execute var: @ does: @ 17 var: @ 0< ?branch ;s 1 ?branch ;s >body @ col: 6 col: ?dup ?branch ;s var: 5 dup ?branch rdrop ;s nip 25 - ;s 1- var: 2! 469 col: swap (?do) i col: 1769 @ ;s ;s lit @ 51 ;s + @ execute drop 1 ;s ! ;s (loop) unloop 1730 col: lit + dup @ 281 ?branch branch drop ;s ;s 66 ;s @ dup var: 2@ 24 defer: noop ;s ;s ;s 915 col: var: col: con: over 1 ! lit + dup user: 54 @ ;s >r var: @ 1545 @ execute col: col: col: 6 user: @ >r >r ;s 1005 cell+ tuck c@ xor swap 61 ;s ! branch ;s con: 478 con: (+loop) i col: dup 771 defer: (type) ;s cr ;s 36915 @ var: @ <> ?branch 1 i 1+ var: @ = 3 ;s ;s ;s ?branch col: 307 ;s dup does: @ col: 197 + = ?branch i - 13 col: col: con: col: col: 204 pick >r cells sp@ cell+ 5 c@ ?branch con: does: @ 59 0= ?branch r@ execute col: 3775 0= ?branch cell+ swap cell+ 196 nip execute col: defer: noop 7 = ;s ?branch col: col: 506 + col: col: col: col: 647 count col: col: col: user: 105 @ col: swap (?do) unloop 1247 ;s ;s + @ ;s 9 c@ ;s ;s branch col: 227 user: @ ?branch col: r> 1 2! var: up! sp@ dup 22 branch ;s r> ;s ;s 4 swap 1+ rot (do) i 31 ;s col: r> /does-handler + 5 ?branch ;s r> user: ! 148 toupper lit - dup lit 1 cells / ;s var: 2! 324 ;s ;s col: lit col: 3 @ col: lit lit col: 239 con: (+loop) i col: >r 287 col: col: var: ;s lit 100 ;s ;s branch branch lit 160 ;s ;s 0= does: @ 1 ;s var: ! var: @ 16 col: >r >r >r >r 11 ! ;s ;s ;s does: 9 ;s char+ c@ ;s ;s 5 ?branch nip nip execute does: 5 ?branch var: 2@ lit (?do) 647 i' i - lit min 608 @ ;s col: col: var: 11 ;s ! ;s ;s branch 125 - dup lit u< ?branch 77 ?branch ;s ;s ;s 0= 506 max lit (?do) unloop drop 647 ;s ! does: @ + 12 2drop rdrop r> ?branch dnegate 34 execute col: col: var: @ 471 ;s ;s ;s col: var: 265 rdrop ;s cr rdrop ;s 36 execute col: col: var: col: 941 @ ! branch ;s col: 19 ;s ;s swap con: - 653 cell+ swap r> (loop) unloop 4938 lit r@ lit and ?branch 517 nip nip execute col: user: 3 execute does: 2@ ;s con: 6 branch ;s user: col: con: 3 ;s dup ?branch ;s nip 647 swap c! ;s col: lit 287 var: @ execute col: col: 19 pick rdrop dup col: con: 1769 ;s ;s ;s 2drop ;s 80726 ;s col: lit swap lshift 103 user: ! ;s col: var: 1 user: ! lit + dup 66 ?branch drop 2dup col: col: 21 nip execute col: dup col: 19 rot 0<> and ?branch col: 506 lit max col: >r lit 647 col: defer: defer: col: var: 28 ;s ! ;s + ;s 13 >r sp@ r> swap >r 6 @ user: @ = ?branch 1 lit (?do) unloop 2drop drop 469 @ col: swap (?do) i 1 r> or ?branch 2drop dup 54 unloop drop 2drop r> ;s 20 var: @ lit (do) dup 8 (loop) lit col: col: col: 287 col: var: ! ;s lit 1 @ ;s over col: col: 25 ! r> user: ! r> 651 ;s 0= ?branch ;s col: 66 2dup col: col: user: @ 145 lit u> ?branch dup user: 1 con: swap ! ;s rp@ 15 >r con: open-file 0= ?branch 424 ?branch 1- r> lit and 13 var: ! ;s ;s branch 2054 col: col: user: @ ?dup 12 swap ! ;s con: @ 1 2@ lit (?do) unloop 2drop 125 lit - dup lit u< 4 @ ;s ;s col: dup 1 <> ?branch ;s ;s ;s 1 r> col: var: ! col: 291 con: >= ?branch ;s lit 9 cell+ var: ! ;s col: 1 ;s @ ;s r> tuck 121 col: col: con: @ col: 160 0= does: @ col: var: 106 2drop con: ;s ;s ;s 1 lit ! lit col: >r 148 lit - dup lit u> 1 rp@ user: ! fp@ user: 13 ;s col: col: r> dup 693 code-address! ;s ;s col: col: 1744 ;s ;s ?branch col: col: 6226 (parse-white) 2dup + r> - 1022 ;s col: lit >code-address ;s 16 ;s r> r> r> col: 5 nip execute over ;s branch 19 drop >r drop col: var: 287 ;s ;s branch lit col: 1 nip ;s ;s branch col: 4938 cell+ dup c@ >r col: 5 ;s col: var: 2@ tuck 23 @ ;s col: over >r 624 ?branch col: col: r> r> 1 ! ;s cells col: col: 5730 col: lit /mod rot + 5 ;s + ;s c@ ?branch 5 ! ;s lit col: user: 31 var: @ ?branch col: col: 239 rdrop ;s con: (+loop) i 5 ;s ;s con: col: col: 20 execute col: con: col: col: 7 @ ;s +! ;s does-handler! 160 + ;s c@ 0= or 1730 rot ! r@ swap col: 2 lit pick + (loop) unloop 80 +! ;s col: col: user: 3711 (+loop) 2dup i 2@ over 78 = ?branch col: col: col: 68 move drop r> ;s rdrop 4 ;s col: col: 2dup lit 19 ;s cr 0= swap 0<> 1205 swap ! ;s ;s ;s 15 dup >r con: open-file 0= 5 unloop 0<> lit and col: 666 +! ;s ! ;s cell+ 66 0= ?branch nip ;s dup 997 var: @ and ?dup ?branch 15 ;s ;s ;s var: @ 129 user: @ col: col: col: 105 @ var: (?do) unloop ;s 574 var: @ col: swap (?do) 5224 (loop) >r over @ over 2 i col: cells var: @ 20 ! ;s cell+ (loop) unloop 72 unloop ;s branch ;s ;s 5769 @ > ?branch fp@ user: 19 @ ;s ;s char+ c@ 1 execute con: con: branch ;s 36 user: @ >r user: @ 5 +! ;s 2! ;s branch 147 user: @ um* drop rot 3968 ?branch defer: col: 2dup col: 218 dup r@ = ?branch drop 24 ! ;s ;s ;s swap 3711 lit (+loop) 2dup i 2@ 61 ! branch ;s con: (+loop) 6226 /string (parse-white) 2dup + r> 1005 ?branch rdrop ;s cell+ tuck 1578 lit + aligned ;s con: 506 col: >r tuck dabs col: 305 col: swap col: con: /mod 394 faligned over lit + = 2 + (loop) unloop drop branch 291 over ! lit var: +! 121 dup col: dup con: <> 2 + ;s ! ;s col: 27 - dup ?branch drop r> 1 @ ;s >r over >r 30 ?dup ;s ?branch ;s col: 5062 var: @ col: col: dup 265 (type) ;s rdrop ;s cr 1416 dup r@ does: @ + 7 ;s branch con: defer: noop 197 drop lit col: lit con: 469 (?do) i col: >r swap 16 +! ;s ! ;s r> 6249 2dup + r> - 1+ 23 0= ?branch ;s ;s branch 506 tuck - ;s r> over 708 @ over - ;s lit 305 swap lshift ;s over @ 997 @ ?dup ;s ?branch col: 26 ;s ?branch swap drop branch 8 ! ;s var: @ lit 1 col: lit fill ;s var: 196 ! ;s code-address! ;s con: 2 >body ;s branch col: sp@ 287 cr var: 2@ defer: (type) 574 >r ;s count ;s var: 146 + ;s c@ 0= ?branch 160 + ;s @ col: lit 1 ! ;s lit user: ! 32 ;s >r col: 2dup col: 86 ! does: @ col: var: 1 + ;s ! ;s does: 1251 lit and ?branch nip nip 79 execute col: col: defer: defer: 6 aligned ;s branch col: sp@ 7 does-handler! ;s branch con: defer: 1 2@ col: col: col: col: 72 (?do) unloop ;s branch ;s 5 var: 2@ nip 1- user: 127 swap (?do) unloop ;s ;s 5 ! lit user: ! user: 6 and 0= 0= ?branch rot 24 ;s col: lit user: ! 1 ?branch i 1+ col: cells 394 + faligned over lit + 291 var: @ >r var: col: 12 @ col: 2dup u<> ?branch 506 ?branch ;s rot col: 0< 647 ;s 2@ 2dup col: lit 54 drop 2drop r> ;s ;s 20 (do) dup @ col: col: 125 2swap dup >r col: lit 24 var: @ ;s does: @ 20 or swap ! ;s ;s 2254 con: swap ! ;s ;s 7 @ ;s /does-handler col: col: 708 - ;s lit pick does: 6646 col: col: dup field: @ 10 con: open-file 0= ?branch rdrop 33 col: con: col: col: defer: 676 ;s ;s 0= ?branch col: 2982 ;s branch branch lit col: 17 nip nip execute col: >r 14 execute col: var: @ ?branch 2818 ?branch over c@ r@ <> 152 ;s dup ?branch ;s ;s 951 0> ?branch nip nip execute 647 (type) (+loop) unloop drop ;s 30 ;s ?branch ;s col: user: 2989 @ lit pick ! ! 281 dup negate user: +! lit 694 ;s cr rdrop ;s ;s 39 swap drop r> drop ;s 915 lit swap +! ;s ;s 1250 ;s c! ;s (loop) unloop 31 ! ;s branch ;s ;s 70 0<> and ?branch col: col: 647 lit swap (?do) dup i 16 ;s r> col: col: col: 281 swap ! ;s (loop) i 15 swap cmove var: over r> 12 ?branch drop ;s dup col: 13 or ?branch drop col: var: 10 ?branch rdrop drop r> cell+ 147 user: @ u>= ?branch con: 506 ;s con: - dup ! 80415 ?branch c@ ;s col: col: 19 swap ! ;s ;s does: 390 ;s ;s + ;s c! 1 lit (?do) var: cell+ i 5 user: ! ;s ?branch ;s 291 col: cell+ dup @ 0< 11 nip nip execute cells ;s 16 drop ;s swap over col: 997 2dup 2dup r> col: dup 7 ;s cr 0<> swap 0= 506 lit col: >r col: dup 24 swap +! ;s ;s col: 152 + ;s c! col: var: 350 ;s ;s col: dup lit 34 ;s cr ;s col: var: 66 dup ?branch drop 2dup col: 5166 and ;s 0= 0= ?branch 3 var: ! defer: drop ;s 24 var: ! ;s ;s lit 27 user: @ lit pick col: 6 = ?branch r@ user: +! 506 lit over < ?branch lit 287 2@ 0= rot 0<> and 1 ?branch r> col: var: ! 1185 @ col: col: col: user: 56 dup @ swap con: - 1 ;s >r over >r lit 1 ?branch col: user: @ >r 16 drop ;s ;s ;s branch 292 dup field: dup var: ! 196 ;s con: col: lit lit 125 user: ! ;s user: @ 19 1- >r r@ pick r@ 1806 ?branch read-line col: ?dup ?branch 1 drop con: ;s ?branch 1- 1 lit = ?branch dup var: 66 count defer: (type) ;s 1+ 13 r> ;s ;s ;s r> 1 ;s nip ;s ;s branch 9 u>= ?branch col: dup col: 9 r@ u>= ?branch col: dup 3611 ;s col: col: col: user: 1439 ;s ;s lit col: col: 5 2* cells + 2! ;s 795 ! ;s code-address! ;s ;s 647 (type) col: lit does: swap 287 defer: (type) ;s cr var: 32 r> ;s ;s ;s does: 915 var: col: lit swap +! 653 swap r> (loop) unloop drop 197 dup 0= ?branch drop lit 72 swap (?do) unloop ;s branch 3 u<= ?branch dup user: @ 56 swap con: - dup @ 66 faligned nip ;s user: ! 161 nip execute col: col: defer: 19 ;s ;s drop con: ;s 146 ;s ;s does: @ does: 4 ;s r> col: >r ;s 56 @ swap con: - dup 1 /string ;s var: 2! var: 125 lit lit 2swap dup >r 239 ;s ;s con: (+loop) i 647 @ + ;s ! does: 506 col: 2drop col: col: col: 1 dup lit = ?branch dup 6 col: r> user: @ >r 1 dup ?branch rdrop ;s over 11 execute cells ;s branch col: 80726 con: /mod cells rot + 34 ! col: col: user: @ 129 ! ;s lit user: @ 3533 ?branch drop 2drop lit (+loop) 15 + dup >r con: open-file 5 ! r> user: ! >r 291 ! lit var: +! var: 574 col: lit lit 2swap swap 25 @ and ?branch 2drop ;s 941 ! ! branch var: col: 142 0<> ?branch faligned nip ;s 120 2drop ;s ;s branch col: 147 ;s ?branch col: swap >r 53 execute var: ;s branch col: 173 - ?dup ?branch col: col: 1801 ?branch col: col: sp@ user: 287 (type) lit defer: (emit) col: 5 swap 2dup or col: dup 5 rdrop rdrop lit ;s user: 3501 lit and ?branch ;s ;s 1063 ;s ! ;s ;s col: 1 var: 2@ 2* cells col: 7 cr 0<> swap 0= and 4 1+ rot (do) i over 5 ;s ;s r> user: ! 941 + var: @ ?branch dup 15 + swap cmove var: over 279 ?branch ;s ;s 0= col: 287 var: 2! var: 2! ;s 236 col: col: col: var: col: 421 c@ col: var: col: lit 421 + ;s c@ col: var: 35 ! ;s col: con: @ 130 col: nip swap - 1- 25 ?branch rdrop ;s ;s over 1 execute col: con: 0= ?branch 2158 var: @ ;s ;s lit 789 @ dup ?branch 2dup swap 291 lit cells - var: over 9 col: col: col: col: con: 61 + ;s @ r@ does: 708 ;s + swap dup r@ 3 0< ?branch ;s ;s r> 1806 ;s branch lit user: +! 23 ;s + ;s @ ?branch 24 ;s +! ;s col: lit 160 (loop) dup @ col: col: 149 col: var: @ ;s col: 289 dup var: ! defer: col: 5 ?branch 2dup + lit swap 5 @ close-file swap 2dup or 2 branch @ dup ?branch 2drop 1 ?branch i 1+ var: @ 988 (?do) unloop ;s col: col: 223 col: lit col: >r defer: 28 var: @ dup lit >= 1013 @ ;s swap dup col: 5 ! ;s lit col: >r 12 dnegate r> user: ! ;s 574 ;s ?branch col: var: ! 3 ?branch 2drop ;s col: does: 18 + ;s ! col: var: 1 nip nip execute field: ;s 12 r> ?branch dnegate r> user: 1 r> tuck - lit cells 506 ;s con: - dup @ 732 ;s ;s + ;s c@ 2 ?branch dup defer: col: cell+ 6 2dup r> -rot move ;s 506 rot lit over < ?branch 647 (type) ;s cr ;s con: 16 unloop drop ;s swap over 1 execute 0< ;s branch col: 446 rot col: 0< ?branch ;s 105 ;s col: over >r rot 820 ! ;s var: col: con: 647 ?dup ?branch ;s ;s var: 33 ;s ;s ;s >r col: 316 ;s col: var: col: lit 1 var: 2! var: up! sp@ 59 ?branch drop 2dup 2>r col: 971 ;s col: user: @ ?dup 23 @ ;s count + c! 5730 ;s swap col: con: - 113 r> ?branch r> user: ! 506 ;s col: 2drop col: col: 26 ;s ;s ?branch swap drop 3 ?branch ;s ;s r> col: 1730 >r drop r@ @ rot 121 ?branch rdrop ;s ;s con: 6 cells var: + @ user: 6 swap >r dup allocate col: 1 ! lit (do) lit col: 1 +! ;s ! ;s cells 19 r@ u>= ?branch col: var: 1806 user: @ ?dup ?branch read-line 148 - dup lit u> ?branch 1416 @ ;s dup aligned swap 5 @ execute col: dup does: 129 +! ;s 2! ;s ;s 156 branch dup @ dup ?branch 5 @ var: @ 1+ dup 105 col: over >r rot over 287 var: 2! var: var: @ 16 2! ;s r> r> r> 3 ;s ;s ?branch drop does: 30 lit col: lit lit ! 129 ;s c! ;s con: col: 1 drop ;s nip ;s ;s 1 ?branch nip nip execute 0< 33 col: user: @ ;s does-code! 5730 ;s con: / col: col: 61 ;s @ r@ does: @ 18 c@ 0= ?branch col: var: 1616 0= ?branch rot drop con: 4 ?branch nip nip execute 0= 2033 col: user: @ ?branch col: 5 ;s lit col: >r sp@ 13 @ >r rp@ user: ! 424 lit and ?branch 1- r> 9 ;s col: var: @ dup 11 col: col: var: dup @ 23 (loop) count col: user: @ 16 lit lit lit ;s ;s 3 and ?branch 2drop ;s col: 8 lit col: >r >r user: 2989 dup @ lit pick ! 87 col: con: con: 1+ within 246 user: @ over min /string 440 @ ;s user: ! drop 287 var: 2@ rot swap - 306 ;s + ;s c@ 0= 18 ;s + ;s ! col: 1 ! over c@ lit = 12 rdrop r> ?branch dnegate r> 1 = ?branch i 1+ col: 86 faligned swap (?do) unloop ;s 10 cell+ (loop) dup >r 2@ 147 0= or ?branch con: does: 7 execute ! ;s branch col: 68 ;s rdrop dup col: con: 16 >r col: col: user: @ 8 @ ?branch ;s ;s col: 2 var: @ ;s ;s branch 3980 lit and 0= ?branch lit 1 ;s rp@ user: ! fp@ 60 ?branch lit col: col: col: 1 @ ;s swap col: 2dup 24 ?branch ;s ;s does: @ 3 nip execute col: var: ! 5 over ;s branch col: sp@ 196 c! ;s ;s col: lit 6 user: ! lit /string branch 1 noop var: @ lit > 5 ?dup ?branch ;s ;s r> 105 over 1+ r> move c! 96 ?dup ?branch ?dup ?branch ;s 1730 lit fill ;s r> ;s 629 ;s ;s col: var: col: 154 c! ;s ;s col: col: 66 defer: (type) ;s 1+ var: 80421 swap @ and 0= 0= 24 @ ;s does: @ col: 8 0< ?branch lit @ var: 1806 swap user: ! lit user: 647 lit (?do) i' i - 21 execute col: col: col: con: 1 ! ;s does: col: var: 6 user: ! lit col: >r 1 lit = ?branch lit /string 232 lit col: user: @ swap 125 ;s lit lit 2swap dup 965 >r r@ does: @ + 599 con: rot rot r> var: 10 r> user: ! rdrop rdrop 49 nip execute col: defer: col: 647 lit ! ;s ;s col: 227 @ execute col: col: @ 28 var: <= ?branch con: - 3968 2dup col: var: @ col: 7 ?branch defer: noop col: r> 51 swap 0<> and ?branch col: 218 con: branch rdrop ;s ?branch 647 2dup defer: (type) (+loop) unloop 1 0> 0= ?branch ;s ?branch 7 defer: (type) ;s cr 0<> 294 - 1- dup ?branch col: 1 execute col: >r con: open-file 1 ;s 2! ;s ;s ;s 1 var: ! ;s ;s r> 3 @ ?branch ! ;s ;s 5 + lit swap c! 1+ 647 ?branch ;s ;s var: c! 80449 col: var: @ dup var: 8 ! var: var: ! ;s 19 - swap lit col: 1+ 114 rot - ?dup ?branch ?dup 16 ;s code-address! ;s ;s r> 5 ;s + ;s ! ;s 5 ?dup ?branch ;s var: swap 3 var: 2@ nip = ;s 1 ;s ;s ;s dup col: 3553 con: ?branch lit col: drop 31 swap ! ;s branch ;s 15 and ?branch con: ;s ;s 1 / 1+ dup var: ! 201 execute col: ;s ;s branch 789 drop ! ;s var: col: 5 ;s var: ! col: var: 5 nip nip execute over ;s 5 ;s swap 2dup 1+ var: 938 (?do) i col: dup does: 36915 0= ?branch var: @ var: 1 ;s drop var: 2@ nip 66 0> ?branch col: user: @ 1 c@ lit = ?branch lit 287 0<> swap 0= and ?branch 45 col: col: dup col: dup 1 lit fill ;s var: @ 15 over r> + dup >r 647 ! does: @ + ;s 1 var: @ 1- dup 0= 941 ?branch dup @ lit pick 284 ;s dup ?branch drop branch 216 nip execute col: defer: defer: 350 ;s col: dup lit u> 2410 ;s @ does: @ + 17 col: var: @ ?branch col: 5 c@ lit <> ?branch 2dup 1 var: swap ;s 2dup col: 1022 ;s ! ;s code-address! ;s 14 over col: 2dup col: lit 443 ;s + ;s @ does: 3533 drop 2drop lit (+loop) 2dup 350 0= lit and col: ?dup 125 lit 2swap dup >r col: 2 ;s user: @ ?branch col: 1 dup ! ;s ;s branch 39 nip execute col: col: dup 109 execute col: var: col: col: 1 dup user: ! over c@ 5 user: ! col: ?dup ?branch 52 @ col: 2dup u< ?branch 204 cells sp@ cell+ dup cell+ 19 col: col: var: @ ?branch 128 ;s c@ 0= ?branch con: 5730 col: col: lit /mod rot 5769 @ > ?branch ;s defer: 4080 col: @ @ ;s ;s 10 0= ?branch rdrop drop r> 5 2! ;s var: 2@ nip 220 ;s defer: noop ;s ;s 1578 ;s lit + aligned ;s 80421 dup var: @ = ?branch 1583 col: lit col: col: var: 506 @ c! ;s ;s 2dup 1 user: @ u>= ?branch drop 1251 and ?branch nip nip execute 51 nip execute col: lit lit 2587 r@ <> ?branch lit /string 223 min /string over swap r> 2 branch @ dup @ ?branch 68 r> ;s rdrop dup col: 5730 rot + swap does: + 66 dup con: ! col: lit 96 ;s ;s branch col: var: 160 2drop ;s ;s 0= does: 5 2dup 1+ var: 2! 2* 574 ;s col: var: 2@ var: 1 mod ;s branch col: sp@ 6 ;s col: col: dup col: 25 ;s ;s ;s lit col: 78 swap ! ;s drop branch 3874 does: @ col: var: col: 5 rdrop lit ;s user: @ 18 nip execute col: var: @ 59 branch over 0= 0= ?branch 59 ;s ;s branch over 0= 18 ;s ! col: var: col: 1437 ?branch negate ;s ;s ;s 997 u> lit and col: ?dup 105 >r rot over 1+ r> 287 col: var: ! ;s var: 23 1+ user: +! ;s user: 394 i - count lit and 5 ;s drop ;s ;s branch 2 ?dup ?branch ;s over lit 7 defer: noop col: r> dup 506 ;s rot col: 0< ?branch 1138 @ over - ;s var: 36913 <> ?branch lit var: +! 15 +! ;s ;s ;s var: 740 + @ ;s col: col: 56 ! cell+ tuck ! cell+ 5 r> tuck - dup ?branch 129 (loop) unloop ;s col: var: 3533 2@ over <> ?branch drop 447 col: user: @ ?branch defer: 1 user: @ >r var: @ 5 col: 2dup lit col: >r 3 con: swap ! ;s user: 472 ;s ;s ;s ;s ;s 5730 col: con: - ;s con: 4286 col: col: col: col: user: 5 2@ lit (?do) dup >r 9 allocate col: ?dup ?branch ;s 1254 field: @ execute col: col: 1005 c@ xor swap c! ;s 647 dup r> does: @ + 36915 ?branch var: @ var: @ 194 2drop ;s ;s ?branch 2dup 27 r> drop col: con: @ 294 dup ?branch col: col: r> 647 unloop drop ;s ;s defer: 647 var: c! var: count move 299 ;s ;s col: col: var: 125 over c@ lit = dup 1 i' i - unloop ;s 106 con: ;s ;s ;s dup 997 col: cell+ count lit and 5 r> -rot move ;s col: 39 ;s swap con: col: = 839 @ (f83find) ;s ;s dup 2882 var: +! ;s branch branch 56 @ execute col: col: user: 286 var: +! ;s branch ;s 2420 ?branch col: col: var: @ 287 var: ! col: var: ! 2 ;s @ ;s var: ! 6 swap 2dup r> -rot move 41 swap (?do) unloop ;s lit 5 ;s user: @ close-file swap 10 r> cell+ cell+ (loop) dup 1730 r@ @ rot ! r@ 25 rdrop ;s ;s over col: 1 execute field: ;s branch col: 988 swap (?do) unloop ;s col: 6 lit /string branch ;s user: 125 branch ;s dup ?branch 2drop 114 - ?dup ?branch ?dup ?branch 121 ;s ;s var: @ ?branch 1 (loop) unloop ;s col: lit 1 swap ;s branch col: sp@ 506 col: >r col: dup 0< 287 @ over - ;s 2dup 1 swap ! ;s col: col: 939 ;s ! ;s ;s dup 6 dup allocate col: ?dup ?branch 12 = dup >r ?branch lit 36915 col: 0= ?branch var: @ 113 dup >r ?branch col: over 16 ?branch ;s ;s ;s branch 287 (type) ;s cr var: 2@ 21 user: @ ?branch con: min 6699 @ + @ (hashfind) ;s 1436 negate ;s ;s ;s dup 291 cells - var: over cell+ 5 execute col: col: con: col: 12401 field: @ field: @ execute 224 = ?branch drop con: branch 75 ! ;s swap col: col: 156 @ dup ?branch nip branch 2818 dup ?branch over c@ r@ 1580 con: col: col: dup field: 30 code-address! ;s lit col: lit 1 (?do) unloop lit branch ;s 78 ! ;s drop branch ;s 5 cells + 2! ;s var: 5 rdrop lit branch unloop 0<> 25 over - ;s 1- var: 143 2drop ;s ;s ?branch drop 5 ?branch ;s ;s r> user: 1 0= ?branch ;s >body @ 8 col: user: @ ?branch ;s 5 2! 2* cells + 2! 147 um* drop rot user: @ 1 defer: noop var: @ lit 7 ;s r@ col: >r r@ 41 branch ;s con: (+loop) i 506 ;s r> over - does: 281 (loop) i over col: swap 125 over c@ lit - dup 6 @ >r user: @ user: 62 ! ;s ;s branch col: 280 ?branch con: does: @ col: 941 var: @ col: lit + 5 nip nip r> rdrop lit 5730 lit /mod rot + swap 147 branch col: var: col: lit 1616 con: rot rot cell+ swap 292 var: field: @ col: col: 153 @ ;s +! ;s 2! 7 ;s does-handler! ;s branch con: 469 con: (+loop) unloop ;s col: 28872 0= ;s ;s ?branch lit 4 r> ;s ;s ;s dup 54 @ ;s @ ;s col: 506 >r tuck dabs col: col: 3 (?do) unloop ;s ;s ;s 599 unloop drop 2drop ;s ;s 121 rdrop ;s ;s con: = 2 dup var: ! col: col: 3 nip execute 1- ;s branch 80421 var: @ dup var: @ 27 invert ;s col: col: col: 160 cell+ (loop) dup @ col: 290 0= ?branch var: @ over 2048 pick ! ! ;s lit 223 /string over swap r> col: 70 branch ;s ;s ;s branch 647 dup col: col: defer: defer: 1 field: ;s branch col: sp@ 506 col: col: user: @ lit 20 swap var: @ lit (do) 106 drop branch lit (+loop) unloop 23697 col: user: @ ;s @ 997 col: dup col: col: col: 5 col: 0= ?branch ;s ;s 911 faligned swap (?do) con: col: 1260 +! ;s c! ;s col: 80421 ;s col: col: con: /mod 118 +! ;s ;s ;s drop 19 cell+ var: ! ;s rdrop 22 ?branch 2drop ;s does: @ 3 lit col: 0= ?branch var: 3 2! ;s col: r> /does-handler 1 dup user: ! lit + 87 1+ within 0= col: col: 272 defer: (type) ;s rdrop ;s 5 var: 2@ tuck 1+ 2* 52 con: var: col: con: swap 2 user: @ ?branch col: col: 30 col: lit user: ! col: 3 nip execute 1+ ;s branch 5 ! >r ;s drop col: 47370 col: col: user: @ ;s 1876 ;s >r ?branch rdrop ;s 2853 + ;s @ does: @ 647 i - lit min 2dup 18 lit ;s col: con: lit 506 over < ?branch lit + 1 ;s lit branch (+loop) i 2159 col: var: @ ;s ;s 941 var: @ ?branch dup @ 6298 ;s lit col: col: user: 113 ?branch col: over c@ lit 4 var: ! col: col: user: 506 ?branch lit + col: col: 287 ;s cr cr ;s ;s 1435 var: 2@ defer: (type) col: 20 lit (do) dup @ col: 17 @ 0< ?branch ;s ;s 7 (type) ;s rdrop ;s col: 10 rot over + -rot con: 1 @ lit (?do) i col: 708 ;s ;s ?branch branch lit 99 nip execute col: col: col: 6 ;s ;s col: defer: noop 486 ! ;s cell+ swap cell+ 87 con: con: 1+ within 0= 19 >r r@ pick r@ pick 288 ;s ;s ;s does: @ 24 col: var: @ ;s does: 5 ! col: ?dup ?branch ;s 689 col: r> dup cell+ >r 1436 0= col: col: r> r> 82 ;s +! ;s col: over 5 ! ;s ?branch ;s r> 941 @ col: lit + dup 15 code-address! ;s ;s ;s branch 52 - col: col: col: user: 1002 ;s lit col: user: @ 281 @ swap - col: dup 15 r> + dup >r con: 19 defer: (type) ;s cr 0= 294 (type) ;s branch ;s col: 2124 does: @ + @ ;s 3 + ! (next) var: cell+ 1641 ;s 2drop ;s branch col: 59 2>r col: col: user: @ 3 execute col: 0= ?branch ;s 1 var: @ dup @ ?branch 997 @ over ! var: @ 5 lit <> ?branch 2dup + 127 var: +! ;s col: col: 9163 0= ?branch lit col: col: 44 ;s ;s ?branch does: @ 289 ! defer: col: cell+ dup 19 >r lit col: 1+ con: 98 ;s col: lit col: >r 1 ! var: ! col: lit 147 c@ 0= or ?branch con: 1 col: var: @ lit (?do) 86 0= ?branch does: @ does: 42 2! ;s ;s col: var: 197 con: - unloop ;s ;s 11 @ cells + ;s ! 28 ! cell+ var: ! ;s 37 over col: lit over 0<> 6249 - 1+ r> min user: 281 ! ;s (loop) i over 4 execute col: swap col: con: 1002 (type) ;s r@ does: @ 1148 defer: (type) ;s var: 2@ 288 ;s dup var: ! col: 6 col: swap >r dup allocate 566 lit over +! @ c! 59 ;s 2! ;s ;s rot 4938 r@ lit and 0= ?branch 90 cr ;s col: col: r> 647 (?do) dup i con: col: 8 ! ;s ;s col: r> 3 ;s ?branch col: does: @ 35 r> ;s ;s does: @ 291 2drop r> var: ! ;s 292 ;s ;s var: field: @ 708 + @ ;s + rdrop 1 drop con: ;s ?branch col: 7 ?branch branch rdrop ;s ;s 6 ;s ;s col: col: dup 1 swap drop branch ;s dup 1 = ?branch dup var: ! 1730 lit col: lit pick @ 1 ?branch col: col: 2dup lit 49 ;s col: dup col: dup 27 r> col: col: col: col: 1251 ?branch lit and ?branch nip 6 u< ?branch cells var: + 16 col: lit lit lit lit 145 dup lit u> ?branch dup 478 (+loop) i col: dup does: 1 col: var: col: dup ! 23 user: +! ;s user: @ 5 c! 1+ col: col: col: 1641 ?branch 0> ?branch col: col: 574 ;s var: var: @ col: 157 ;s + ;s c! col: 47 var: col: col: col: user: 6699 + @ >r 2dup col: 226 ! ;s ;s defer: noop 23 col: col: defer: col: col: 11070 count + aligned >r swap 226 swap ! ;s ;s defer: 292 ;s var: field: @ col: 11374 col: dup field: @ field: 6912 defer: col: col: user: @ 387 ;s ?branch lit @ execute 3553 var: dup @ 1- cells 204 rot move drop r> ;s 635 @ + ;s @ var: 647 swap (?do) dup i con: 287 ;s ;s ;s branch lit 3 execute col: var: ! ;s 2037 ?branch nip nip execute col: 506 r@ um/mod r> swap >r 647 ?branch execute var: nip unloop 1 rdrop ;s var: @ ?branch 8 swap ! ;s ;s lit 1 @ ?branch drop ;s ;s 25 ! ;s ;s ;s lit 82 +! ;s col: over >r 279 rdrop ;s execute var: @ 152 c! col: var: col: @ 1 var: @ con: cells col: 3553 col: drop var: dup @ 27 col: >r >r user: @ 7 branch con: defer: noop ;s 997 2drop 2drop ;s var: @ 647 ;s dup >r does: @ 1730 ?branch @ over cell+ count 25 ;s ;s branch ;s ;s 7 ;s ;s col: col: con: 105 ;s ;s drop ;s col: 5 (loop) unloop ;s swap col: 8 rdrop ;s ;s lit lit 3 ;s ?branch execute does: 2@ 27 ;s branch ;s ;s ;s 1352 lit and col: ?dup ?branch 566 aligned ;s con: - lit 128 ;s ;s 2drop ;s does: 39 drop ;s swap con: col: 6 user: @ user: ! user: 933 lit (s+loop) dup i con: 347 @ does: @ + ;s 279 ;s ;s 0= col: col: 6 ! lit /string branch ;s 1005 tuck c@ xor swap c! 59 2rdrop branch ;s branch col: 287 var: 2@ var: 2@ 0= 789 dup ?branch drop ! ;s 5 ?branch ;s >body user: @ 148 user: @ lit = ?branch 13 lit col: >r sp@ r> 173 defer: (type) ;s cr ?dup 1 ?dup ?branch ;s var: ! 292 con: swap ! ;s col: 5 > col: col: r> r> 127 +! ;s col: col: var: 5769 fp@ user: @ > ?branch 4938 c@ >r col: count lit 233 ;s + ;s c! does: 30 dup 0= ?branch ;s ;s 125 0= ?branch user: @ dup 236 swap 0<> and ?branch ;s 28 over r@ u>= ?branch col: 647 @ + ;s 2@ col: 253 +! ;s ;s ;s ;s 30 0= ?branch ;s ;s dup 3501 r> lit and ?branch ;s 1002 ;s r@ does: @ + 1 ;s col: lit col: col: 21 col: con: lit ;s ;s 1022 col: lit >code-address ;s col: 6298 ;s +! ;s c! ;s 1416 ;s dup aligned swap (?do) 7 (type) ;s cr 0<> swap 647 2@ 2dup col: lit swap 740 ;s + @ ;s col: 1 var: ! col: lit lit 4 ;s ;s r> col: >r 11 cells + ;s @ var: 11 @ cells + ;s @ 125 @ >r user: col: con: 37 ?branch ;s col: col: col: 47 con: ;s branch col: sp@ 2 dup @ dup ?branch 2dup 19 ;s swap con: - swap 269 branch drop ;s ;s col: 6249 1+ r> min user: ! 152 ;s cr ?dup ?branch ;s 147 + ;s @ col: 2dup 1 col: var: ! col: col: 599 lit col: >r con: rot 4 col: col: lit var: +! 3447 nip unloop ;s ;s ;s 126 dup >r col: lit (?do) 2 @ <> ?branch ;s ;s 414 execute col: >r r@ does: 1 nip execute col: dup lit 574 var: var: @ col: swap 164 @ ;s ;s col: col: 25 1- var: 2! ;s lit 1013 +! ;s move ;s col: 446 0< ?branch ;s col: 2drop 4 0= ;s branch col: sp@ 1163 @ ;s @ ;s swap 997 @ col: >r 2dup 2dup 14 @ + ;s @ 1+ 506 r> swap >r um/mod r> 1 drop ;s dup var: ! 1806 read-line col: ?dup ?branch ;s 1 >r lit col: >r sp@ 1 unloop 2drop drop con: ;s 1288 @ 0< ?branch var: @ 8 col: col: col: con: col: 735 ;s (loop) unloop ;s lit 24 ;s ;s ;s col: dup 440 ?branch defer: col: col: user: 12 con: @ col: 2dup u<> 5834 @ ;s +! ;s col: 895 field: @ execute col: @ 16 >r >r >r dup >r 39 ?branch over 0= 0= ?branch 125 user: @ >r user: col: 82 move c! ;s col: col: 279 >r r@ col: >r r@ 78 con: = ?branch col: col: 997 over ! var: @ ! 1 @ ;s @ ;s r> 10 rdrop drop r> cell+ cell+ 3 col: var: @ ;s lit 1 ?branch 1- i' i - 1 >body @ col: col: col: 2 over lit (?do) dup lit 56 @ ! branch ;s ;s 10 con: col: col: defer: defer: 1002 defer: (type) ;s r@ does: 309 branch ;s col: col: var: 6 ?branch nip nip execute aligned 789 dup @ dup ?branch drop 291 @ over ! lit var: 3 lit - dup lit u<= 223 over - dup r> ?branch 4 ;s col: dup count col: 197 ;s dup 0= ?branch drop 25 ;s over col: lit over 204 col: dup 1+ pick >r 36913 var: @ <> ?branch lit 2048 lit pick col: dup @ 197 ?branch i - con: - 599 r> var: @ lit (do) 80726 swap ;s col: lit swap 3659 ;s (loop) con: col: col: 4075 col: var: @ col: col: 287 unloop ;s var: 2! ;s 5 @ 1+ dup con: > 197 = ?branch con: (+loop) dup 1801 ! ;s dup ?branch 2drop 3 dup ?branch ;s nip 0<> 125 ;s dup ?branch 2drop rdrop 647 col: lit does: swap lit 3 ?branch col: does: @ col: 125 c@ lit = dup >r 13 >r rp@ user: ! execute 5730 swap c! ;s ;s ! 121 ;s var: @ ?branch con: 43 ;s ;s col: var: @ 1 col: user: @ >r var: 7 ;s ?branch branch rdrop ;s 304 con: does: @ col: var: 28 ;s over col: col: col: 291 ! dup @ dup ?branch 24 +! ;s col: lit user: 287 ;s var: 2! ;s col: 51 ;s ?branch col: lit col: 223 @ ;s user: @ over 1644 2drop ;s branch col: sp@ 915 over +! @ ! ;s 1 dup @ ?branch drop ;s 120 1+ user: +! ;s 2drop 39 over 0= 0= ?branch swap 3 1+ ;s branch col: sp@ 10 open-file 0= ?branch rdrop drop 87 col: 1+ con: * 1- 5730 ;s over c@ or swap 469 var: (?do) i col: dup 1 var: ! ?dup ?branch 1- 226 ;s ;s defer: noop ;s 14 ?branch over col: 2dup col: 57 +! ;s ;s ;s dup 30 user: ! col: col: user: 2 drop ;s branch col: sp@ 156 ?branch nip branch dup @ 3775 0= 0= ?branch cell+ swap 11070 r> r> dup count + 1022 +! ;s ! ;s code-address! 1 swap ! ;s rp@ user: 506 ;s 2dup d0= ?branch ;s 2181 col: col: var: @ ;s 6 ?branch cells var: + @ 647 col: lit lit ! ;s 647 ;s var: c! var: count 10 over + -rot con: <> 28 over col: col: col: user: 1 0= ?branch ;s ?branch 2rdrop 121 ;s @ ;s ;s var: 6226 defer: col: defer: col: col: 1801 2drop ;s branch col: user: 506 max col: >r lit r@ 1 ;s ;s >r col: defer: 39 con: col: = 0= col: 39 0= ?branch swap drop r> 28 ;s ;s over col: col: 941 lit pick ! ! branch 2 * allocate col: ?dup ?branch 52 col: 2dup u< ?branch = 19 pick r@ pick r@ pick 1 ;s var: @ ?branch r> 84 con: - dup @ swap 1 -rot move ;s drop var: 3968 dup ?branch defer: col: 2dup 113 = dup >r ?branch col: 987 ;s 2@ var: @ col: 1 col: 2dup con: swap read-file 22 2! ;s ;s swap col: 54 2drop r> ;s ;s ;s 12 ?branch dnegate r> user: ! 958 0= ?branch @ lit r@ 1077 dup aligned swap (?do) unloop 506 c! ;s ;s 2dup d0= 2124 @ does: @ + @ 197 lit col: lit con: (do) 1 ?dup ?branch 1- (for) var: 10 user: ! rdrop rdrop rdrop 291 over cell+ ! dup @ 128 2drop ;s does: @ does: 13 c@ 0= or ?branch drop 86 ?branch does: @ does: @ 506 ;s r> col: >r tuck 647 - lit min 2dup defer: 33 @ ;s does-code! ;s ;s 147 @ um* drop rot user: 997 ?branch var: @ @ over 23 dup con: = ?branch drop 287 swap - rot rot - 197 ?branch con: (+loop) dup i 23 ?branch drop (parse-white) branch 2dup 18 ?branch col: var: col: lit 24 ;s ;s swap ! ;s 204 cell+ rot move drop r> 66 con: ! col: lit over 2587 c@ r@ <> ?branch lit 36915 0= 0= ;s ;s col: 82 char+ col: col: user: @ 1 @ ;s r> tuck - 14 ;s ?branch over col: 2dup 24 execute col: col: defer: noop 6 ?branch rdrop ;s var: ! 1 con: lit ! lit col: 6249 + r> - 1+ r> 6249 r> min user: ! ;s 997 ?dup ;s ?branch dup @ 506 col: dup 0< ;s r> 4 r> col: >r ;s ;s 1 ?branch nip nip execute swap 941 ! branch var: col: con: 5 -rot move ;s col: var: 1 dup ?branch 2drop col: col: 21 var: r> ;s ;s branch 13 + ;s ! ;s ;s 5730 c@ ;s ;s over c@ 3 ;s ;s col: con: lit 21 r> ;s ;s branch col: 4 cell+ i cells + ! 2 ! user: ! user: col: 469 @ var: (?do) i col: 647 ;s defer: (type) col: col: 42 col: ;s ;s col: var: 1 nip execute 0< ;s branch 5730 /mod rot + swap does: 3968 ;s dup ?branch defer: col: 66 ;s 2drop branch ;s branch 93 execute col: col: r> dup 197 col: lit con: (do) dup 5 tuck - dup ?branch 2dup 4 dup count col: var: @ 1801 ! ;s ?branch col: col: 506 r> over - does: swap 12 dup >r ?branch lit /string 18 ! ;s does: @ col: 8 c! ;s ;s ;s branch 18 execute col: dup col: dup 9194 con: col: col: user: @ 1 dup >r lit col: >r 1 @ 0= ?branch con: cells 5730 ;s ;s ! ;s ;s 350 ! ;s ;s col: defer: 11374 dup field: @ field: @ 1 unloop var: @ ;s ;s 1580 dup i con: col: col: 908 0= ;s ;s ?branch ;s 287 ;s cr col: var: @ 20295 +! ;s branch lit col: 358 xor swap c! ;s ;s 3 ;s ?branch drop does: @ 1 rot drop ;s nip ;s 3 execute 1- ;s branch col: 178 drop branch lit (+loop) 2dup 997 lit u> lit and col: 468 col: lit lit ! user: 506 2dup d0= ?branch ;s rot 647 drop ;s ;s defer: (type) 305 lshift ;s over @ or 735 (loop) unloop ;s lit col: 4 ;s ;s col: dup count 35 var: @ ?branch var: @ 1 execute col: var: @ dup 1801 ;s branch col: user: @ 129 ;s ! ;s lit user: 1 lit /string branch dup >r 457 col: defer: col: defer: col: 4 count col: var: @ col: 80415 = ?branch c@ ;s col: 42 ;s 2! ;s ;s col: 1732 lit pick @ ?dup 0= 1 var: 2@ nip var: 2! 5 1+ col: col: col: user: 23 (parse-white) branch 2dup + r> 3 ?branch or >r col: 2dup 1 execute swap ;s branch col: 5769 user: @ > ?branch fp@ 59 ;s ;s ;s branch over 1730 count lit and col: con: 292 field: @ col: col: col: 19 pick r@ pick rdrop dup 6 >r user: @ user: @ 4938 dup ?branch col: cell+ dup 1 ;s ?branch 1- i' i 27 ! ;s ;s r> drop 3967 branch col: sp@ user: @ 152 cr ?dup ?branch ;s col: 80415 c@ ;s col: col: con: 8321 @ ;s @ ;s lit 23 ;s @ ;s col: over 12 /string col: over c@ lit 5730 + ;s swap col: con: 61 + ;s @ = rdrop 653 r> (loop) unloop drop 2drop 8 ;s ! ;s (loop) lit 2 * ;s branch col: sp@ 287 unloop ;s var: 2! var: 201 nip execute col: ;s ;s 292 ;s dup field: dup var: 58 col: col: defer: col: defer: 287 2@ var: 2@ 0= rot 287 ;s ?branch col: var: ;s 402 ?branch does: @ col: var: 1022 ;s @ ;s dup user: 6 r@ user: +! user: @ 1 (do) lit col: col: col: 10 0= ?branch ;s ;s ;s 1178 ! ;s ;s col: col: 4 branch dup ?branch lit /string 647 + ;s 2@ col: col: 201 nip nip execute col: ;s 147 swap user: @ um* drop 15 swap cmove 2dup var: r@ 1 c@ lit <> ?branch i 18 col: con: lit ;s col: 30 ;s @ ;s col: lit 820 ;s var: col: con: swap 1 ?branch ;s ;s ;s lit 1 ?branch dup var: ! ?dup 6 + ;s @ var: ! 345 c! ;s col: col: col: 350 ;s ;s col: defer: col: 1416 @ + ;s ! r@ 1 ?branch rdrop ;s var: @ 19 ;s col: >r >r user: 125 user: @ 0= ?branch user: 71 @ ;s @ ;s >r 506 dup @ tuck - ;s 287 2@ rot swap - rot 39 dup 0= ?branch over 0= 223 - dup r> ?branch 1+ 1 >r con: open-file col: col: 80726 cells rot + swap ;s 2 cells + @ (loop) var: 52 col: con: <> col: col: 35 var: @ col: dup con: 424 r@ lit and ?branch 1- 39 execute col: col: dup col: 1 2! ;s defer: noop var: 2 execute * ;s branch col: 25 +! col: var: @ 0< 3 cell+ i cells + @ 1 @ dup @ ?branch drop 5769 col: sp@ user: @ > 15 >r 2@ dup >r var: 31 ?branch var: @ ?branch col: 61 ;s @ = rdrop ;s 446 col: 0< ?branch ;s col: 6 branch ;s col: col: con: 16 lit lit ;s ;s branch 1 execute col: lit user: ! 1 execute col: dup ! ;s 24 col: col: defer: noop col: 712 ?branch ;s ;s ?branch execute 197 lit + = ?branch con: 1 ?branch dup user: ! over 292 field: dup var: ! defer: 7 +! ;s does-handler! ;s branch 6 con: branch ;s col: col: 61 = rdrop ;s ?branch r@ 694 cr rdrop ;s ;s con: 440 ;s user: ! drop ;s 647 lit ! ;s dup col: 152 ;s c! col: var: col: 5 2! ;s ;s con: col: 5 ! ;s (loop) unloop ;s 67 ;s col: col: col: col: 997 ;s @ ;s dup faligned 61 r@ = ?branch does: @ 5730 c@ or swap c! ;s 1806 ?branch col: user: @ ;s 5730 ;s ;s over c@ or 23 con: col: col: defer: col: 8 ;s lit col: var: col: 66 nip ;s user: ! ;s 81 var: col: col: col: col: 653 @ lit (do) >r over 992 ;s ;s col: lit >code-address 6912 col: user: @ ;s user: 5 ;s defer: noop ;s col: 285 i over col: swap col: 6 ;s @ var: ! ;s 574 var: @ col: lit lit 1 col: dup ! ;s ;s 12 ;s ;s con: ! ;s 5 var: 2! 2* cells + 13 ;s >r user: @ >r 281 lit var: ! ;s ;s 23 nip nip execute col: dup 61 ?branch does: @ + ;s 25 @ over - ;s 1- 1730 (hashkey1) ;s xor cells >r 28 - dup @ swap var: 472 nip nip execute col: col: 1009 count defer: (type) ;s r@ 3 drop ;s ;s col: var: 24 +! ;s ;s col: col: 27 ;s - dup ?branch drop 506 user: @ lit max col: 52 @ ;s ;s con: var: 1022 ;s dup user: ! lit 1 execute mod ;s branch col: 997 2drop ;s var: @ field: 469 rdrop ;s con: (+loop) unloop 2422 2@ defer: (type) col: col: 21 execute col: col: lit col: 60 @ ?dup ;s ?branch ;s 27 faligned nip ;s - dup 43 ;s con: = ?branch var: 1250 c! ;s (loop) unloop ;s 5 @ >r col: swap >r 253 0= and ?branch ;s col: 280 ;s ;s + ;s ! 5 2dup + lit swap c! 280 rot 0= and ?branch 0<> 599 >r con: rot rot r> 958 ?branch @ lit r@ lit 708 @ ;s + rdrop ;s 8 ;s ;s + ;s col: 75 ;s ! ;s swap col: 5 ?branch r> r> user: ! 106 branch lit (+loop) unloop 2drop 281 - col: dup negate user: 7 user: ! user: col: con: 198 cr ;s con: (+loop) i 10 char+ c@ ;s col: user: 6699 col: con: (hashkey1) ;s r> 506 r> ;s rot lit over 13223 var: +! ;s lit col: 22 and ?branch 2drop ;s does: 8 nip execute col: col: user: 1013 ;s @ ;s swap dup 19 execute col: lit lit col: 1722 cr col: col: r> r> 915 col: con: over +! @ 3 ?branch nip nip execute 1+ 33 /does-handler + col: col: user: 23 >r user: @ over min 52 ;s @ ;s ;s con: 997 ;s ?branch dup @ 0< 1 ;s ;s dup col: col: 59 over 0= 0= ?branch r@ 39 ?branch swap drop r> drop 5730 + c@ ;s ;s over 5 drop = ;s ?branch col: 14 ?branch r@ col: does: @ 341 + @ execute col: does: 39 r> drop ;s swap con: 3 ?branch nip nip execute 1- 429 (type) ;s cr rdrop ;s 469 swap (?do) i col: >r 580 ;s branch ;s col: col: 821 swap ! ;s ;s branch 506 defer: (type) ;s lit col: 287 (emit) var: 2@ defer: (type) 160 ;s @ col: lit col: 8 branch ;s branch col: var: 5 + ;s @ var: @ 16728 user: @ ;s +! ;s 4 ;s lit swap 1+ /string 53 var: ;s branch col: sp@ 15 var: r@ + swap cmove 3 nip nip execute 1+ ;s 5 var: @ 1+ dup con: 12 branch ;s ;s ;s ;s 156 dup ?branch nip branch dup 1027 @ field: @ field: @ 6 ;s 0= ?branch ;s >body 80421 lit swap lshift ;s swap 951 ;s ;s does: @ col: 3644 unloop ;s ;s ;s dup 148 dup user: @ u>= ?branch 574 lit lit 2swap swap (?do) 5166 col: lit xor and ;s 3 ;s ;s ?branch execute does: 78 ?branch con: branch ;s lit 82 @ ;s over char+ col: 3689 lit col: col: col: user: 2 unloop ;s ;s branch ;s 20 @ ;s swap var: @ 121 and col: col: r> r> 4 swap ;s col: user: @ 350 ;s col: dup 0= lit 459 over @ r@ execute or 28 ;s code-address! ;s ;s lit 647 ;s ;s var: c! var: 3 @ and ?branch or >r 2046 lit pick + (loop) dup 2 defer: drop ;s drop col: 532 >r ?branch rdrop ;s ;s 173 col: con: @ col: col: 764 col: col: defer: defer: col: 1416 ;s ! r@ does: @ 676 ;s 0= ?branch col: col: 80415 var: @ = ?branch c@ 13 col: >r sp@ r> swap 1 lit branch (+loop) i col: 307 ;s + ;s @ col: 1 1- (for) var: cell+ i 80726 col: lit swap lshift ;s 1 2drop drop con: ;s ?branch 196 con: col: lit lit ! 350 col: dup 0= lit and 5 0= ?branch nip nip r> 793 count defer: (type) ;s lit 121 ;s ;s ;s drop ;s 1 /string branch dup >r col: 2 (loop) var: cell+ i cells 1730 @ ?dup 0= ?branch >r 268 0<> and ?branch 0= swap 891 swap +! ;s ;s ;s 1634 + ;s 2@ defer: (type) 7 nip nip execute ! ;s 5 ?dup ?branch ;s col: ?dup 469 ;s ;s con: (+loop) unloop 506 r> col: >r tuck dabs 35 ?branch drop does: @ col: 24 noop ;s ;s ;s branch 18 execute col: col: col: defer: 3420 ;s +! ;s ! ;s 12 col: 2dup u<> ?branch drop 147 swap >r swap user: @ 279 ;s execute var: @ dup 469 (+loop) unloop ;s var: 2! 1416 col: dup does: @ + 5 user: @ >r col: swap 68 drop r> ;s rdrop dup 708 ;s ;s ?branch execute var: 59 ?branch r@ execute col: var: 206 @ @ ;s ;s col: 1163 +! ;s ! ;s ;s 247 (+loop) unloop ;s var: var: 16 ;s move ;s col: defer: 66 @ dup var: 2@ col: 1 ;s dup ?branch rot drop 279 >r ?branch rdrop ;s execute 287 ;s cr var: 2@ defer: 1217 ;s ;s + ;s @ 22 ;s 2! ;s ;s swap 1 var: up! sp@ dup user: 66 ?branch nip ;s dup ?branch 12 ;s con: @ col: 2dup 4 ?branch lit /string branch over 6298 lit col: col: user: @ 1416 + ;s ! r@ does: 16918 ;s lit col: col: var: 2046 pick + (loop) dup lit 31 ;s code-address! ;s lit col: 2587 <> ?branch lit /string branch 3659 (loop) con: col: col: col: 23697 user: @ ;s @ ;s 394 dup i - count lit 2046 (loop) dup lit pick col: 223 ;s >r over - dup 12 ! ;s con: @ col: 279 execute col: >r r@ col: 253 and ?branch ;s col: var: 3 and var: @ and ?branch 5 r> user: ! col: ?dup 9 ;s branch col: var: @ 1 ! ;s rp@ user: ! 121 over - swap ! ;s 124 ;s (loop) unloop lit branch 223 @ over min /string over 143 ;s ?branch drop branch ;s 1730 >r var: lit cells lit 708 2! con: + ;s lit 1 2swap 2dup col: col: r> 27 ;s ! ;s ;s r> 27 >r >r user: @ lit 15 var: over r> + dup 148 @ lit = ?branch toupper 28 ;s + ;s col: r> 23 + c! col: col: user: 1 ;s r> tuck - lit 226 ;s col: lit col: user: 61 var: @ does: @ + 979 (type) ;s ;s col: col: 287 cr ;s ;s ;s branch 8 user: @ ?branch ;s ;s 78 branch ;s lit col: col: 5730 con: - ;s con: / 23 r> move c! ;s con: 15 cmove 2dup var: r@ + 1148 count defer: (type) ;s var: 100 var: +! ;s ;s branch 87 rdrop dup col: con: con: 1610 ;s 0= 0= ?branch rot 52 con: @ col: 2dup u< 223 >r defer: col: col: user: 5 ;s over r> tuck - 13 sp@ r> swap >r fp@ 708 + @ ;s + swap 21 var: r@ cmove var: r> 11 ;s con: ! ;s ;s 12 >r ?branch lit /string col: 5 r> r> user: ! r> 2510 and ?branch ;s ;s ;s 105 (?do) unloop ;s var: 2! 25 var: @ and ?branch 2drop 227 col: @ (f83find) ;s dup 23 over min /string rot dup 1013 swap dup col: col: user: 125 >r col: lit (?do) count 1 col: 2swap 2dup col: col: 290 ?branch var: @ over ! 708 @ ;s execute col: >r 1730 fill ;s r> ;s tuck 9 var: ! ;s col: var: 59 2dup 2>r col: col: user: 647 max lit (?do) i' i 1 ;s nip 0<> ;s col: 258 ;s ! ;s con: col: 1 @ ;s var: ! col: 147 or ?branch con: does: @ 80 1+ user: +! ;s col: 5 (loop) unloop ;s ;s ;s 12 ;s dup col: lit over 647 move lit lit ! ;s 1 execute col: dup lit = 10 con: ;s ;s branch col: 59 ;s ?branch 2rdrop branch ;s 125 ! ;s user: @ 0= 233 c! does: @ col: var: 1 col: var: @ dup @ 473 ?branch drop col: col: r> 80421 col: col: var: @ dup 258 ! ;s con: col: col: 2 unloop drop branch lit pick 148 count col: user: @ lit 1730 ?branch >r drop r@ @ 33 ;s does-code! ;s ;s ;s 13 execute col: col: does: @ 507 ;s + @ ;s + 72 unloop ;s ;s col: col: 1005 @ dup 0= col: col: 708 @ ;s + swap dup 194 swap col: lit col: >r 80726 rot + swap ;s col: 1 ;s cells col: col: user: 941 (hashfind) ;s ;s var: @ 997 ?branch 2drop 2drop ;s var: 566 - lit over +! @ 1148 ;s var: 2@ defer: (type) 3 ;s ;s ?branch col: does: 2 r> ;s ;s ;s ;s 23 ;s (loop) count col: user: 1 ?branch rot drop ;s nip 33093 0= 0= ;s ;s ?branch 7 nip execute ! ;s branch 1 2* ;s branch col: sp@ 1 var: ! var: @ con: 82 ;s @ ;s over char+ 2 ;s ;s over c@ lit 287 ;s ;s dup var: ! 4 nip nip execute col: swap 3 lit u> ?branch lit - 223 r> ?branch 1+ user: +! 222 con: (+loop) unloop ;s ;s 4080 col: var: col: @ @ 56 - dup @ swap con: 223 dup r> ?branch 1+ user: 506 lit + col: col: col: 54 >r var: @ lit (do) 3 nip nip execute 1- ;s 13 user: @ >r rp@ user: 997 ;s var: @ and ?dup 4514 and ?branch r> lit and 708 does: @ + ;s 2! 5166 execute col: lit xor and 1 ;s var: ! ;s ;s 291 var: over cell+ ! dup 13 r> swap >r fp@ >r 287 cr col: var: 2@ var: 15 ?branch con: ;s ;s does: 1 ;s dup ?branch dup r> 28 ! ;s over r@ u>= 434 ! drop ;s ;s branch 424 and ?branch 1- r> lit 6 var: @ = ?branch drop 915 +! @ ! ;s ;s 5 ;s nip ?branch var: 2@ 1801 user: ! ;s ?branch col: 3 ?branch ! ;s ;s branch 3980 0= ?branch lit r@ lit 987 2@ var: @ col: col: 15 var: @ and ?branch con: 58 execute col: col: defer: col: 1641 ! ;s ;s ;s 2drop 1 >r var: @ lit (?do) 469 lit 2swap swap (?do) i 647 2dup col: lit swap (?do) 647 dup >r does: @ + 231 c@ r@ <> ?branch rdrop 19 (type) ;s cr 0= swap 9163 ;s 0= ?branch lit col: 1 execute col: var: @ ;s 14 0< ?branch ;s ;s ;s 3659 c! ;s (loop) con: col: 1 ;s ;s lit branch (+loop) 1592 execute col: lit col: col: 1 lit (?do) unloop lit branch 19 rdrop ;s ;s ;s r> 6 drop = ;s ?branch branch 506 dabs col: col: col: col: 16 ;s @ ;s >r col: 24 dup ?branch ;s ;s does: 30 ?branch ;s ;s col: lit 2 lit (?do) dup lit pick 106 lit (+loop) unloop 2drop con: 23 ;s @ ;s count + 4938 >r col: count lit and 121 col: dup col: dup con: 647 ?branch ;s ?branch dup does: 5877 swap cell+ swap r> (loop) 789 ?branch drop ! ;s var: 43 con: = ?branch var: @ 5 0= ?branch ;s >body user: 6 ?branch drop con: branch ;s 287 var: ! ;s ;s dup 51 @ execute drop ;s branch 941 branch var: col: con: swap 25 0= ?branch ;s col: var: 5 con: open-file 0= ?branch nip 3 1+ var: 2@ nip = 218 ?branch drop con: branch rdrop 3 var: @ and ?branch or 223 rdrop ;s >r over - 80421 lshift ;s swap @ and 3 ?branch nip nip execute lshift 8 unloop ;s ;s ;s ;s 506 tuck dabs col: col: col: 23463 lit var: +! ;s branch 1054 ! ;s ;s lit col: 574 (type) ;s cr col: var: 5224 r> (loop) >r over @ 1806 user: @ ;s con: user: 287 count ;s var: 2! col: 23 ;s @ ?branch does: @ 51 ?branch col: lit col: col: 997 and ;s var: @ col: 1013 dup col: col: user: @ 1 col: var: 2@ lit (?do) 1 user: ! execute col: user: 2 1+ /string ;s ;s over 5 2dup 1- + c@ lit 16 +! ;s ! ;s col: 6298 @ ;s +! ;s c! 441 ;s ;s dup ?branch drop 647 ;s dup r> does: @ 160 ! ;s ;s dup does: 28 code-address! ;s ;s over col: 66 ;s 1+ var: 2@ col: 14 ;s ;s ?branch over col: 27 @ r@ execute col: xor 23 c! col: col: user: @ 80726 col: con: /mod cells rot 708 ;s ?branch branch lit col: 3 dup lit u<= ?branch dup 11 cells + ;s ! ;s 2588 ?branch lit /string branch dup 3 >body user: @ ?branch ! 154 ;s col: var: @ ;s 5 - dup ?branch 2dup 1- 23 count + c! col: col: 3 2drop ;s col: does: @ 14 ;s ?branch r@ col: does: 19 ;s rdrop ;s col: r> 196 code-address! ;s con: col: lit 456 ;s + @ execute col: 147 col: swap >r swap user: 49 nip ;s col: user: @ 34 cr ;s col: var: @ 47 ;s drop ;s col: 2dup 113 2drop rdrop r> ?branch r> 350 defer: col: col: col: col: 789 ;s branch @ dup ?branch 287 count ;s var: 2! ;s 301 ! ;s lit col: col: 156 nip branch dup @ dup 5 >r col: swap >r dup 18 +! ;s ! ;s does: 1841 ;s ;s ;s ;s col: 219 and 0= 0= ?branch cell+ 1 ;s ;s ?branch execute con: 1730 lit cells lit col: lit 3915 does: @ + ;s 2@ 1 ;s var: ! lit (do) 1 ;s >body @ col: col: 19 ;s ;s r> r> rot 5727 ;s +! ;s col: dup 4938 + faligned ;s r@ lit 13 ?branch drop col: var: col: 233 ;s c! does: @ col: 130 ;s @ ;s swap col: 3 cells + ! (next) var: 5 ?dup ?branch ;s ;s ;s 23 ;s ;s ;s branch ;s 305 (loop) unloop ;s ;s lit 121 <> swap con: <> and 7 ;s /does-handler col: col: user: 908 ;s ;s ?branch ;s col: 6249 ;s user: @ ;s 2dup 653 (do) >r over @ over 23 ?branch ;s ;s branch col: 506 lit max lit (?do) unloop 1722 ;s cr col: col: r> 5 execute col: dup does: @ 20 cell+ (loop) unloop drop ;s 5 user: @ close-file swap 2dup 56 @ (f83find) ;s ;s var: 226 col: defer: noop col: col: 517 execute col: user: @ ?branch 3 ;s con: branch ;s ;s 2 dup defer: col: cell+ dup 12 ?branch over col: lit over 21 cr ?dup ?branch col: col: 173 rot - ?dup ?branch col: 4 ;s ;s col: lit var: 188 +! ;s ;s ;s does: 1 var: @ ;s over col: 599 rot rot r> var: @ 2587 lit /string branch dup ?branch 287 cr col: col: col: col: 20 var: ! ;s ;s ;s 421 ;s @ 0= ?branch does: 11070 dup count + aligned >r 2 ?branch col: col: r> dup 789 + var: @ ?branch col: 2048 ! ;s lit pick + 7264 2dup i 2@ over <> 124 r> ;s (loop) unloop lit 147 u>= ?branch con: ;s ?branch 15 ;s code-address! ;s ;s ;s 16 execute col: lit lit ! 237 col: >r dup ?branch over 12 - swap ! ;s con: 1012 ;s ;s var: @ and 28485 ;s ?branch lit col: col: 15 @ and ?branch con: ;s 54 ;s >r var: @ lit 1 u>= ?branch drop con: ;s 6699 xor cells var: @ + 28 @ dup var: <= ?branch 6590 ;s @ ;s lit col: 287 0<> rot 0= and ?branch 24272 branch lit col: col: var: 5 c! col: does: @ col: 289 r> var: ! ;s ;s 1730 cell+ ! r> var: @ 5730 @ + ;s swap col: 1 i 1+ col: cells var: 28 +! ;s ! ;s + 103 ;s col: var: @ col: 323 ;s col: var: col: con: 1153 does: swap lit max lit 1 var: @ ?branch r> col: 1730 + dup @ 0< ?branch 3553 cells over + (do) 2dup 19 rdrop ;s col: r> dup 23 con: = ?branch drop (parse-white) 12 u<> ?branch drop ;s dup 1 ?branch ;s ?branch 2rdrop branch 748 @ col: col: col: col: 1 / ;s var: 2! col: 1260 ;s c! ;s col: col: 18 ! col: var: col: @ 5 r> rdrop lit branch unloop 1 = ?branch lit /string branch 6699 col: lit + @ >r 6 @ user: ! user: @ 689 r> dup cell+ >r @ 2 nip 0<> ;s 0= col: 6 @ = ?branch r@ user: 233 ;s + ;s ! does: 915 var: col: con: over +! 291 cell+ ! dup @ dup 1 ;s var: swap ;s 2dup 3 ;s ;s rot 2dup and 15 code-address! ;s ;s col: var: 54 (loop) unloop drop 2drop r> 291 ?branch 2drop r> var: ! 861 ;s ;s ?branch col: var: 80421 @ dup var: @ = 18 con: lit ;s col: con: 5 col: ?dup ?branch ;s col: 873 ;s col: lit lit ! 31 ! ;s code-address! ;s lit 350 ! ;s col: dup 0= 1 col: con: / 1+ dup 2 ?branch nip nip execute >body 158 ?branch ;s ;s dup ?branch 16 lit ;s ;s branch col: 1 over col: col: var: col: 8 ?branch lit @ var: ! 8 ;s var: @ lit ! 6699 >r 2dup col: con: (hashkey1) 1 ;s var: 2! var: up! 105 rot over 1+ r> move 997 ;s var: @ field: @ 1806 ! lit user: ! ;s 49 ;s lit col: 1+ con: 7 nip execute col: 0= ?branch 1 ! fp@ user: ! col: 287 ;s var: 2! var: var: 1 nip 0<> ;s col: 0= 915 con: over +! @ ! 1730 0= ?branch >r drop r@ 642 ! ;s ;s var: @ 19 ?branch ;s ;s col: drop 1801 dup ?branch 2drop ;s branch 109 ?branch col: col: col: user: 287 2@ var: 2@ 0<> rot 5224 cell+ swap r> (loop) >r 983 ?branch 2dup swap col: lit 291 var: @ over ! lit 28 tuck ! cell+ var: ! 28 dup lit >= col: col: 1578 + aligned ;s con: - 287 defer: (type) lit defer: (emit) 287 (type) ;s lit defer: (emit) 33 r> /does-handler + col: col: 287 - ;s 2dup var: 2! 19 con: - swap lit col: 997 ?branch dup @ 0< ?branch 708 ;s code-address! ;s ;s col: 7 /does-handler col: col: user: @ 506 col: user: @ lit max 17 nip execute col: lit var: 3025 user: @ ?dup ;s ?branch 125 c@ lit - dup lit 647 defer: col: var: count col: 9 -rot con: <> ?branch 2dup 23 @ branch ;s col: col: 459 execute or col: col: col: 291 @ >r var: col: con: 647 ;s ;s dup >r does: 80421 swap lshift ;s swap @ 2658 ;s dup ?branch 0> ?branch 125 @ 0= ?branch user: @ 7 ;s +! ;s does-handler! ;s 1 nip execute col: con: 0= 282 @ ;s col: col: col: 147 >r swap user: @ um* 143 execute col: lit col: >r 506 con: - dup ! ;s 58 drop ;s col: col: user: 1 col: var: @ ;s over 160 ! ;s cell+ (loop) dup 125 lit branch ;s dup ?branch 1 2! col: var: 2@ 2* 506 - ;s r> over - 574 @ col: lit lit 2swap 51 ;s ;s ?branch col: lit 1 swap ;s 2dup col: var: 5 swap ! ;s lit col: 1 1+ /string ;s var: 2! 399 ;s ;s ;s col: col: 3 ;s drop ;s does: @ 125 >r user: col: con: swap 43 = ?branch var: @ ?branch 130 nip swap - 1- dup 2158 col: col: var: @ over 6699 r> xor cells var: @ 728 user: col: con: swap ! 7 (type) ;s cr branch rdrop 27 xor invert ;s col: col: 1730 @ 0< ?branch @ over 1 ;s ! ;s does: col: 1416 @ + @ ;s + 287 2! var: 2! ;s lit 1616 ?branch rot drop con: rot 1 nip execute col: dup ! 19 ;s ;s ;s swap con: 1 @ ;s var: ! lit 1 branch dup >r col: lit 27 user: ! ;s col: col: 392 ;s con: col: col: col: 15 dup >r var: swap cmove 49 ;s col: user: @ swap 5769 sp@ user: @ > ?branch 60 ;s col: con: @ col: 23 ;s count + c! col: 4 ;s swap 1+ rot (do) 9171 ;s @ ;s con: col: 19 lit col: >r >r lit 10 ;s drop ;s ;s ;s 1801 ?branch 2drop ;s branch col: 933 ;s ?branch lit (s+loop) dup 971 @ ?dup ;s ?branch var: 148 col: user: @ lit = 3659 ;s c! ;s (loop) con: 5769 min user: ! ;s dup 5769 > ?branch ;s defer: col: 992 ;s ;s col: col: r> 75 +! ;s ! ;s swap 291 ;s lit cells - var: 5 col: col: 2dup lit col: 1 drop var: 2@ nip var: 468 lit lit ! user: col: 125 swap ! ;s over c@ 1 -rot con: <> ?branch drop 2 user: ! user: ! user: 4514 ?branch r> lit and ?branch 1 2@ 2* cells col: swap 2048 col: dup @ lit pick 1 swap 1+ /string ;s var: 1 sp@ dup user: ! lit 265 ;s rdrop ;s cr rdrop 14 ;s ;s ;s ?branch over 1 cells + @ (loop) unloop 291 @ dup ?branch 2drop r> 61 ;s @ swap does: @ 7 ;s col: col: con: <> 941 ! branch ;s col: user: 286 ! ;s ;s ;s branch 647 >r does: @ + ;s 16 >r dup >r col: col: 8 lit col: var: col: col: 61 @ + ;s @ = 647 ;s ;s defer: (type) col: 708 @ + ;s 2! con: 268 ?branch 0= swap 0<> and 915 col: lit swap +! ;s 3553 @ execute col: drop con: 4 lit /string branch over >r 647 var: count move lit lit 291 +! var: @ con: >= 3553 drop con: ?branch lit col: 154 cells col: col: user: @ 287 execute col: col: var: ;s 22 drop branch ;s r> ;s 312 dup does: @ col: var: 8 lit ! var: var: ! 82 ;s over char+ col: col: 7 ;s cr branch rdrop ;s 287 lit defer: (emit) var: 2@ 2 nip nip execute * ;s 1 col: lit (?do) unloop lit 3533 2drop lit (+loop) 2dup i 861 col: var: 2@ var: 2@ 4 col: dup count col: var: 59 ;s ;s rot col: col: 52 ;s con: var: col: con: 18 col: col: con: lit ;s 2 nip execute >body ;s branch 78 var: @ ?branch con: branch 28 @ dup lit >= col: 19 ;s ;s col: >r >r 20582 ;s branch lit col: col: 160 @ ! ;s ;s dup 2 var: ! ;s branch @ 22 col: var: dup @ cells 1 ;s r> col: col: var: 6 ;s col: defer: noop col: 147 ;s @ col: 2dup col: 473 1- dup ?branch drop col: 8618 ;s count defer: (type) ;s 4 con: branch ;s ;s branch 10 ! rdrop rdrop rdrop lit 1 0= ?branch con: cells allocate 1 dup ! ;s col: var: 4 swap ! ;s (loop) unloop 35 ;s user: ! ;s col: 61 @ + ;s @ r@ 51 drop ;s branch col: var: 1247 @ ;s ;s + @ 30 ;s ?branch var: @ field: 19 col: drop >r drop col: 4 /string branch over >r lit 16 >r >r >r >r dup 42 @ execute col: ;s ;s 1 nip execute 2* ;s branch 5769 ?branch ;s defer: col: defer: 147 @ um* d+ r> ;s 45 rdrop ;s ;s ;s col: 21 >r var: r@ cmove var: 197 0= ?branch drop lit col: 287 ! col: var: ! ;s 5 swap 2dup 1+ var: 2! 226 defer: noop col: col: col: 3126 col: con: swap ! ;s 35 >r col: 2dup col: lit 3 @ ;s +! ;s ;s 148 ?branch dup user: @ u>= 4938 and + faligned ;s r@ 5 lit (?do) dup >r 2@ 997 r> col: dup field: @ 60 0< ?branch lit col: col: 647 c! ;s col: lit lit 1 +! ;s ;s ;s branch 47 nip nip execute con: ;s 294 count defer: (type) ;s branch 294 1- dup ?branch col: col: 194 2dup swap col: lit col: 3 ?branch nip nip execute 2drop 197 = ?branch i - con: 1 ?branch dup r> - ?branch 289 var: ! defer: col: cell+ 7 user: @ ?branch defer: noop 933 dup ?branch ;s ?branch lit 22 dup @ cells + ;s 642 var: @ col: col: col: 49 ;s ;s lit col: 1+ 1 ;s col: 2swap 2dup col: 1 dup ?branch rot drop ;s 25 col: col: col: con: <> 147 ?branch con: ;s ?branch col: 5 move ;s col: var: 2@ 3 @ 1+ var: 2@ nip 1 ;s ;s ;s lit branch 421 ;s + ;s @ 0= 7 nip nip execute col: 0= 5 dup con: > col: col: 3 execute @ ;s branch col: 30 @ >r user: @ >r 5 <> ?branch 2dup + lit 5730 dup col: col: con: dup 1357 col: ?dup ?branch ;s ;s 160 ;s 0= does: @ col: 1 cells allocate col: ?dup ?branch 1 ! col: lit lit col: 8 ;s lit lit col: >r 31 @ ?branch col: col: col: 473 dup ?branch drop col: col: 708 + rdrop ;s con: (+loop) 305 over @ or swap ! 4938 col: count lit and + 997 c! ;s col: col: user: 10 cell+ cell+ (loop) dup >r 287 cr col: var: @ var: 3069 (type) col: col: r> r> 3 var: @ ;s lit col: 1288 dup @ 0< ?branch var: 506 dup 0< ;s r> col: 2063 dup does: @ + ;s 3775 ?branch cell+ swap cell+ swap 3 ! ;s col: col: var: 78 - swap ! ;s drop 5 lit swap c! 1+ col: 125 user: @ dup 0> 0= 997 cell+ count lit and ;s 647 col: col: dup lit u> 160 ;s cell+ (loop) dup @ 1 - ?branch dup user: ! 1 nip nip execute + ;s 997 2dup r> col: dup field: 647 ;s cr ;s con: (+loop) 128 c@ 0= ?branch con: does: 3 - dup lit u<= ?branch 5 rdrop ;s var: ! col: 3 nip execute @ ;s branch 287 cr cr ;s ;s ;s 8 0= ?branch var: col: con: 147 um* d+ r> ;s (loop) 223 over min /string over swap 204 r@ col: dup 1+ pick 23 >r >r user: @ over 4 branch over >r lit col: 350 unloop ;s ;s lit col: 66 col: dup con: ! col: 2048 lit pick ! ! ;s 136 r> ;s r@ col: dup 21 ;s cr ?dup ?branch col: 708 pick does: @ + ;s 11 col: ?dup ?branch ;s swap 1 var: col: dup ! ;s 1 con: ;s ?branch 1- i' 1806 ?dup ?branch ;s branch lit 279 execute var: @ dup r@ 279 col: >r r@ col: >r 19 ?branch col: var: @ dup 3 ?branch ;s nip 0<> ;s 105 (?do) unloop ;s col: var: 59 2! ;s ;s rot col: 5 2dup or col: dup ?branch 2 (loop) unloop drop branch lit 130 var: 2@ col: nip swap 647 col: lit swap (?do) dup 394 over lit + = ?branch 1 + ;s branch col: sp@ 52 ;s ;s con: var: col: 5730 / col: col: lit /mod 143 branch ;s dup does: @ 16 ;s swap over col: swap 5 lit ;s r> user: ! 17 var: @ ?branch col: con: 12 var: @ ?branch over col: 39 0= 0= ?branch swap drop 226 noop col: col: col: r> 153 ;s lit cells col: col: 1 branch dup ?branch 2drop col: 227 @ ?branch col: r> dup 66 ! col: lit over 0<> 3 lit u<= ?branch dup user: 90 ;s cr ;s col: col: 287 ;s var: 2! col: col: 1730 over cell+ count lit and 19 0= ?branch ;s ;s col: 507 @ ;s + @ execute 339 dup aligned swap (?do) con: 197 + = ?branch con: (+loop) 1730 col: lit pick @ ?dup 147 user: @ um* d+ r> 538 var: ! ;s ;s col: 14 lit col: >r dup ?branch 3447 ?branch nip nip unloop ;s 9 ?branch 2dup con: swap read-file 32 r> r> col: col: col: 18 ;s ;s drop ;s ;s 4 ! ;s col: col: 2dup 1 var: 2! ;s defer: noop 100 lit var: +! ;s ;s 19 drop col: var: @ dup 121 ;s @ ;s over - 933 ?branch ;s ?branch lit (s+loop) 1 ;s compare 0= r> or 3 ;s 2! ;s col: r> 30 r> user: ! r> user: 1730 ! r@ swap col: lit 3553 ?branch lit col: drop var: 53 @ ;s - col: col: 23 branch 2dup + r> - 23 rot dup con: = ?branch 342 @ execute col: col: var: 9 branch col: var: @ dup 1 defer: drop ;s ;s branch 2583 defer: (type) ;s cr col: 574 var: ;s lit col: col: 80421 lit col: col: var: @ 194 ;s ;s ?branch 2dup swap 20 (loop) unloop drop ;s swap 5 ;s ?branch ;s r> user: 6699 2dup col: con: (hashkey1) ;s 119 drop ;s user: col: con: 3 + @ col: lit lit 5 + ;s c@ ?branch con: 3 nip execute 2drop ;s branch 58 (loop) unloop ;s ;s col: 350 user: ! ;s col: dup 279 ;s 0= col: col: r> 997 ;s var: @ col: >r 15 col: >r col: col: r> 173 con: @ col: col: user: 43 var: @ ?branch con: ;s 231 r@ <> ?branch rdrop ;s 506 < ?branch lit + col: 286 +! ;s branch ;s col: 950 @ does: @ col: var: 3 i cells + @ (loop) 5 dup ?branch 2dup 1- + 5 (?do) dup >r 2@ dup 5 col: dup does: @ col: 1730 0< ?branch @ over cell+ 3533 over <> ?branch drop 2drop 5 ?branch nip nip r> rdrop 1 var: ! var: ! col: 8 ! ;s (loop) lit col: 2 nip execute * ;s branch 218 branch rdrop ;s ?branch r@ 3 ! ;s ;s ;s drop 4 rdrop ;s lit swap 1+ 37648 ?branch lit col: col: var: 5730 con: / col: col: lit 1735 ;s ;s dup ?branch ;s 507 + @ ;s + @ 1 nip nip execute swap ;s 1802 col: col: sp@ user: @ 236 0<> and ?branch ;s col: 287 ;s ;s col: var: var: 27 ?branch faligned nip ;s - 997 ! var: @ ! branch 30 user: ! r> user: ! 268 and ?branch 0= swap 0<> 105 col: swap (?do) unloop ;s 3 2dup and var: @ and 25 >r ?branch rdrop ;s 0> 35 drop does: @ col: var: 1730 @ + var: @ ?branch 424 1- r> lit and ?branch 218 r@ = ?branch drop con: 647 lit lit ! ;s dup 1 noop ;s r> col: col: 125 ?branch user: @ dup 0> 204 sp@ cell+ dup cell+ rot 1730 dup @ 0< ?branch @ 997 ?branch col: cell+ count lit 997 var: @ @ over ! 767 swap - 1- dup ?branch 3 ;s ;s ;s rot 2dup 129 @ ;s swap col: col: 1 i - unloop ;s dup 5 ;s 2! ;s branch dup 997 dup col: col: col: user: 637 drop swap - 1- dup 28 code-address! ;s ;s lit col: 26 ?branch swap drop branch ;s 1 ! (next) unloop ;s ;s 1 con: ! ;s branch col: 1 col: dup ! ;s col: 106 unloop 2drop con: ;s ;s 52 = ;s 0= ?branch ;s 147 con: ;s ?branch col: swap 895 @ execute col: @ (f83find) 25 var: +! col: var: @ 2 (?do) dup lit pick col: 124 (loop) unloop lit branch ;s 59 drop 2dup 2>r col: col: 1730 ! r> var: @ + 1 nip execute swap ;s branch 223 lit col: >r defer: col: 5 rdrop ;s over r> tuck 1012 aligned ;s con: - dup 28 ?branch rdrop ;s tuck ! 142 over 0<> ?branch faligned nip 12 2dup u<> ?branch drop ;s 6 does: col: var: dup @ 28 var: @ dup var: <= 204 cell+ dup cell+ rot move 125 ;s over c@ lit = 25 0= var: @ and ?branch 653 lit (do) >r over @ 1022 dup user: ! lit col: 35 col: var: @ ?branch var: 2581 branch dup ?branch over c@ 196 @ ;s @ ;s ;s 506 swap >r um/mod r> ;s 421 ;s + ;s c@ col: 8 swap ! ;s var: @ 19 rdrop ;s ;s ;s swap 12 @ ?branch over col: lit 4514 r@ lit and ?branch r> 350 defer: defer: col: col: col: 708 + swap dup r@ does: 100 +! ;s ;s branch branch 203 noop ;s ;s branch col: 3533 <> ?branch drop 2drop lit 125 lit = dup >r ?branch 394 and + faligned over lit 1 ;s var: @ over ! 15 r@ + swap cmove var: 147 drop rot user: @ um* 5166 r@ execute col: lit xor 1 dup r> - ?branch dup 2 drop col: r> /does-handler + 52 u< ?branch = ;s 0= 441 drop ;s ;s branch col: 281 ! ;s lit var: ! 212 ?dup ?branch col: col: r> 387 ;s ;s ?branch lit @ 42 + @ execute col: ;s 23 = ?branch drop (parse-white) branch 6 dup lit u< ?branch cells 5 + 2! ;s var: 2@ 173 @ col: col: user: @ 3 ;s ;s ;s ?branch drop 1730 r> ;s tuck cell+ ! 2 ;s 0= col: 0= ?branch 1 col: var: 2@ col: col: 231 ?branch col: r> dup cell+ 31 swap ! ;s col: dup 647 lit max lit (?do) i' 105 var: (?do) unloop ;s col: 4938 ;s dup ?branch col: cell+ 28 ;s tuck ! cell+ tuck 1 c@ lit <> ?branch col: 3968 ! ;s dup ?branch defer: 287 (emit) col: col: r> r> 4 ;s ;s ;s dup does: 233 + ;s c! does: @ 3447 dup ?branch nip nip unloop 28 swap var: ! ;s over 1 ;s ! ;s cells col: 2605 0= ;s ;s ?branch col: 1 0<> ;s col: 0= ?branch 47 ;s col: 2dup col: lit 3731 2@ over <> ?branch col: 6226 @ /string (parse-white) 2dup + 282 col: var: col: con: swap 279 and ?branch ;s ;s 0= 3 @ + @ col: lit 66 ?branch 0> ?branch col: user: 1 >r col: defer: defer: col: 3874 @ @ ;s ;s + 1 nip execute col: con: / 197 - unloop ;s ;s ;s 128 ;s user: col: con: swap 6 drop con: branch ;s col: 3 2@ nip = ;s ?branch 60 @ c! ;s ;s col: 708 + ;s lit col: col: 21 con: min >r var: r@ 1 col: var: @ 1- dup 2 ?branch 2dup * allocate col: 148 = ?branch toupper lit - 2 ;s over c@ lit <> 1 lit <> ?branch col: col: 1 compare 0= >r 2dup col: 2 nip nip execute drop ;s 717 ;s con: (+loop) i col: 506 ;s lit col: >r col: 576 swap >r ;s count ;s 350 col: defer: defer: col: col: 119 lit u< ?branch drop ;s 80 user: +! ;s col: col: 68 * 1- >r r@ col: 1 var: ! lit (do) lit 1 @ 1- dup 0= col: 6 ;s swap 2dup r> -rot 6699 + @ (hashfind) ;s ;s 1 @ con: cells col: lit 281 +! lit over = ?branch 1 up! sp@ dup user: ! 245 col: 2dup col: lit col: 1027 var: @ field: @ field: 6593 @ ;s lit col: col: 280 and ?branch 0<> swap 0= 1 nip execute col: >r con: 1 ?branch nip nip execute 2* 1 @ (loop) unloop var: @ 281 lit over = ?branch branch 1 ;s var: ! col: col: 5877 @ over @ r@ execute 3553 1- cells over + (do) 223 over swap r> col: >r 5 0<> lit and col: ?dup 4 lit swap 1+ /string ;s 414 drop 2drop ;s ;s ?branch 27 @ lit pick col: lit 11 2@ drop = ;s ?branch 287 ! ;s var: var: @ 7 ! ;s branch col: sp@ 5 ;s var: 2@ nip 1- 5 1+ var: 2! 2* cells 1662 0> ?branch col: col: col: 440 @ ?branch defer: col: col: 350 ;s col: defer: col: defer: 287 defer: (emit) col: col: r> 128 dup ?branch ;s ;s dup 60 rot col: 0< ?branch lit 19 r> rot col: con: <> 23 /string rot dup con: = 1 nip = ;s ?branch branch 17 @ ?branch col: con: @ 19 ;s r> r> rot col: 1437 lit and ?branch negate ;s 223 ;s user: @ over min 1 move ;s drop var: 2@ 124 (type) ;s cr ;s col: 997 lit and ;s var: @ 239 (+loop) i col: >r swap 185 drop 2drop ;s ;s 0= 1 ?branch execute con: con: branch 125 col: user: @ >r user: 287 var: 2! col: col: r> 51 2drop ;s ;s ?branch col: 789 var: @ ?branch col: dup 3 execute lshift ;s branch col: 7264 i 2@ over <> ?branch 5 ?branch nip nip execute over 1437 r> lit and ?branch negate 1013 ;s +! ;s move ;s 506 lit r@ um/mod r> swap 291 swap ! ;s col: var: 1578 @ ;s lit + aligned 28485 ;s ;s ?branch lit col: 16 ;s >r col: col: col: 8 @ 0< ?branch lit @ 1005 user: @ dup 0= col: 1 ?branch drop ;s dup var: 5 + @ execute col: dup 3 +! ;s 2! ;s col: 1 ?branch nip nip execute mod 19 ;s drop con: ;s ;s 647 ;s dup col: col: defer: 252 ?branch rdrop ;s ;s col: 13 >r col: laddr# ;s >r 6724 ;s col: dup col: col: 1005 rdrop ;s cell+ tuck c@ 1737 2! ;s lit col: col: 10 swap read-file ?branch rot over 2 nip execute drop ;s branch 1 r> col: col: var: col: 1732 pick @ ?dup 0= ?branch 2 0= col: 0= ?branch ;s 5 col: dup ?branch r> r> 223 <> ?branch rdrop ;s >r 197 (+loop) dup i - count 28 dup @ swap var: ! 223 col: >r defer: col: col: 125 ! ;s lit lit 2swap 941 ?branch var: @ col: lit 1 1+ col: cells var: @ 32 +! ;s ;s ;s col: 24 ;s + ;s ! con: 1 ?branch con: cells allocate col: 3980 ?branch lit r@ lit and 1251 ;s dup ?branch lit and 5730 con: dup @ + ;s 716 con: (+loop) unloop ;s var: 2141 ;s col: col: r> r> 3874 @ col: var: col: @ 1616 drop con: rot rot cell+ 2 @ ;s @ ;s var: 216 execute col: defer: defer: col: 1 2dup col: var: 2@ lit 1 execute col: var: col: dup 180 ;s ! ;s cell+ (loop) 1 var: @ lit (?do) i 60 ;s ;s col: 2drop col: 59 ;s rot col: col: col: 197 con: (do) dup i - 290 col: var: ! ;s ;s 49 ?branch faligned nip ;s col: 10 drop con: ;s ;s branch 8 ;s ;s lit col: var: 486 ;s cell+ swap cell+ swap 305 swap col: con: /mod cells 291 defer: col: cell+ dup @ 997 @ ;s user: ! lit 291 0< ?branch var: @ >r 6249 ;s 2dup >r >r user: 4860 r@ does: @ + ;s 287 var: 2@ defer: (type) lit 59 ;s branch over 0= 0= 3 2@ ;s con: branch ;s 3553 col: drop con: ?branch lit 1 con: cells col: lit fill 287 execute col: col: col: col: 70 ;s drop branch ;s ;s 998 unloop ;s col: col: user: 257 drop ;s ;s col: r> 291 ;s col: var: @ 0= 5 noop ;s col: does: @ 672 ! ;s ;s col: dup 997 ?dup ?branch 2drop 2drop ;s 61 + ;s ! branch ;s 2 drop branch lit pick @ 574 ;s count ;s var: 2! 3 ! (next) var: cell+ i 287 lit defer: (emit) col: col: 225 over @ r@ execute and 934 ;s ! ;s ;s var: 121 con: <> swap con: <> 98 ;s branch ;s ;s branch 5 + c@ lit <> ?branch 279 rdrop ;s ?branch r@ col: 1 cells + ! (next) unloop 1 @ >r var: @ lit 2 ?branch ;s over lit (?do) 1 lit (?do) i col: cells 5 1+ 2* cells resize col: 61 @ = rdrop ;s ?branch 16 dup >r col: col: user: 599 col: lit col: >r con: 440 user: @ ?branch defer: col: 1 r> -rot move ;s drop 25 ?branch ;s col: var: col: 19 >r drop col: var: @ 574 unloop ;s col: var: 2@ 574 ?branch col: var: ! ;s 53 nip nip execute var: ;s 7 ;s @ ;s /does-handler col: 23 +! ;s user: @ ?branch 6 >r dup allocate col: ?dup 56 ! branch ;s ;s col: 1806 user: +! swap user: ! 105 over >r rot over 1+ 130 @ var: 2@ col: nip 1806 @ ?dup ?branch read-line col: 4 <> ?branch rdrop ;s over 506 con: - dup @ tuck 13223 lit var: +! ;s lit 57 ;s ;s ;s ;s does: 3 var: @ + @ col: 5 2@ tuck 1+ 2* cells 4563 count defer: (type) ;s cr 1 swap ! ;s lit user: 30 ;s lit col: lit lit 52 <> col: col: r> r> 15 >r var: swap cmove 2dup 5727 +! ;s col: dup col: 1 - lit cells / ;s 506 lit (?do) unloop drop ;s 21 ;s user: @ ?branch con: 6699 (hashkey1) ;s r> xor cells 1 execute col: var: col: con: 404 ! ;s col: var: @ 11070 + aligned >r swap >r 979 defer: (type) ;s ;s col: 1 ;s lit user: ! lit 16 ;s col: defer: defer: col: 18 ;s c@ 0= ?branch col: 506 >r col: dup 0< ;s 2124 does: @ + ;s ! 180 dup @ col: col: col: 1 dup ?branch dup r> - 28 dup var: <= ?branch con: 997 ;s ?branch col: cell+ count 287 var: 2@ 0<> rot 0= 997 @ ;s @ ;s user: 47 ;s 0= ?branch ;s ;s 689 dup cell+ >r @ col: 21 swap drop branch ;s r> 19 swap ! ;s ;s drop 113 >r ?branch col: over c@ 506 >r um/mod r> ;s rot 25 ?branch rdrop ;s 0> ?branch 4 <> ?branch rdrop ;s lit 1250 swap (?do) con: col: col: 1 nip execute field: ;s branch 647 nip unloop ;s dup r> 3435 @ ;s @ ;s dup 473 count defer: (type) ;s ;s 3069 defer: (type) col: col: r> 36 col: col: var: col: @ 23 @ ?branch does: @ col: 1 lit (do) lit col: col: 2 ! ;s branch @ dup 287 ;s 2dup var: 2! var: 275 ;s ;s col: r> dup 1 ;s - col: col: user: 1 1+ var: @ = ?branch 1 (+loop) i col: cells var: 16 ;s 2! ;s r> r> 2 nip nip execute >body ;s 4 ?branch rdrop ;s lit swap 4 execute col: con: swap ! 482 ;s ;s ;s ;s branch 32 ;s ;s >r col: 2dup 5 rdrop rdrop lit ;s r> 1730 cell+ count lit and col: 19 swap lit col: 1+ con: 44 ;s ?branch does: @ col: 125 @ dup 0> 0= ?branch 3 nip nip execute @ ;s 124 d+ r> ;s (loop) unloop 287 2@ defer: (type) lit defer: 1 ;s user: ! user: ! 1 ?branch ;s var: ! var: 958 and 0= ?branch @ lit 1 <> ?branch ;s ;s col: 506 d0= ?branch ;s rot col: 9163 ;s ;s 0= ?branch lit 7 ?branch nip nip execute ! 55 drop branch ;s ;s ;s 3731 ?branch col: dup field: @ 2818 over c@ r@ <> ?branch 1707 dup ?branch 0> ?branch col: 2019 user: ! lit col: col: 2433 ?branch ;s ;s ;s dup 2 @ ?branch dup defer: col: 5301 con: col: col: col: user: 93 nip execute col: col: r> 53 ?branch nip nip execute var: 6 ?branch r@ user: +! user: 647 xor swap c! ;s col: 64 +! ;s ;s ;s ?branch 1806 col: user: @ ;s con: 1808 user: @ ?branch col: user: 6 user: +! user: @ user: 2410 @ + ;s @ does: 301 over col: swap col: con: 87 lit col: 1+ con: * 1 2* cells col: swap >r 12 lit /string col: over c@ 13 swap >r fp@ >r col: 223 ?branch rdrop ;s >r over 11 @ 1+ var: 2@ drop 635 ;s @ var: 2@ col: 647 ;s ?branch dup does: @ 5 ! execute col: col: user: 4 ;s col: user: @ >r 459 @ r@ execute or col: 5 ?branch rdrop ;s over r> 574 lit @ execute col: col: 16 lit lit lit lit ;s 194 ;s ?branch 2dup swap col: 27 nip ;s - dup ?branch 3 user: @ ?branch ! ;s 5 ;s ! ;s ;s drop 1 ?branch drop ;s ;s branch 22 var: dup @ cells + 173 (type) ;s cr ?dup ?branch 8 ;s + ;s col: user: 2 ?branch nip nip execute * 486 ;s ! ;s cell+ swap 1 ?branch nip nip execute + 5 rdrop lit ;s r> user: 121 @ ;s ;s var: @ 19 swap con: - swap lit 5 nip execute does: col: var: 28 lit >= col: col: r> 87 1+ con: * 1- >r 11 cells ;s branch col: sp@ 6 col: col: r> user: @ 997 dup lit u> lit and 203 @ ;s @ ;s over 1580 ;s dup ?branch ;s ?branch 2 @ ?dup 0= ?branch 2dup 2 over c@ lit <> ?branch 26 2drop ;s ;s ?branch swap 459 r@ execute or col: col: 3 dup var: ! defer: drop 2041 ;s ;s branch col: sp@ 7 rdrop ;s ;s col: col: 566 ;s con: - lit over 1806 @ ;s con: user: @ 1 unloop ;s col: lit col: 1 ! execute col: col: sp@ 2 @ ;s ;s branch col: 1 ;s does: col: var: dup 700 ?dup ?branch ;s ;s col: 223 swap r> col: >r dup 68 >r r@ col: dup 1+ 3308 does: @ + ;s @ 647 c! var: count move lit 708 lit pick does: @ + 13 col: col: does: @ col: 20 @ lit (do) dup @ 5 ?branch ;s swap 2dup 1+ 248 ?dup ?branch ;s col: col: 20 ;s cell+ (loop) unloop drop 5 ! col: var: dup @ 1 col: con: 0= ?branch lit 647 col: var: count col: col: 291 dup ?branch 2drop r> var: 292 ! ;s ;s dup field: 5730 col: con: dup @ + 9 execute col: lit col: user: 1 col: >r con: open-file col: 1 execute col: col: con: <> 2046 + (loop) dup lit pick 5 col: var: 2@ tuck 1+ 6226 user: @ /string (parse-white) 2dup 6 @ >r >r ;s user: 49 col: col: col: r> dup 506 @ lit max col: >r 36913 @ <> ?branch lit var: 1582 @ execute col: lit col: 2 @ ?branch col: col: r> 281 swap - col: dup negate 5 ;s c@ ?branch con: does: 5 user: ! >r ;s drop 49 execute col: defer: col: defer: 1 con: 0= ?branch lit (bye) 7 rdrop ;s col: col: r> 287 var: 2@ 0= rot 0<> 713 @ ! ;s ;s does: 42 @ ;s ;s col: var: 35 @ col: dup con: ! 66 1+ var: 2@ col: drop 287 2! ;s col: col: r> 33 ;s col: user: @ ?branch 6226 >r >r user: @ /string 2158 var: @ over - ;s 21 cmove var: r> ;s ;s 197 ?branch i - con: - unloop 291 @ con: >= ?branch ;s lit 13 execute col: col: col: con: <> 19 rdrop ;s ;s col: >r >r 49 nip ;s col: user: @ swap 1 user: @ >r var: @ lit 1 2@ lit (?do) unloop 2drop drop 434 user: ! drop ;s ;s branch 3 @ and ?branch 2drop ;s col: 1 ;s >body @ col: col: col: 2 ;s over lit (?do) dup lit 1 ;s ;s defer: noop ;s r> 72 (?do) unloop ;s branch ;s ;s 9 drop con: ;s ;s ;s branch 506 ?branch ;s rot col: 0< ?branch 5 col: dup does: @ col: var: 23 + ;s @ ?branch does: @ 4 ;s ;s col: dup count col: 59 2>r col: col: user: @ >r 4938 ;s r@ lit and 0= ?branch 5 ?dup ?branch ;s swap 2dup 1+ 1002 count defer: (type) ;s r@ does: 14 @ + ;s @ 1+ var: 24 ;s ;s col: var: @ ;s 253 swap +! ;s ;s ;s ;s 15 execute col: col: var: @ ;s 3 nip execute col: lit col: 0= 5 rdrop rdrop lit ;s user: @ 163 ;s ;s ;s col: lit lit 1801 2drop ;s branch col: user: @ 1436 0= col: col: r> r> dup 11 1+ var: 2@ drop = ;s 247 (+loop) unloop ;s var: 2! var: 708 ;s + swap dup r@ does: 146 ;s ;s does: @ does: @ 23 + c! col: col: user: @ 4 ?branch rdrop ;s lit swap 1+ 294 count defer: (type) ;s branch ;s 473 ;s count defer: (type) ;s ;s 3874 does: @ col: var: col: @ 54 >r var: @ lit (do) >r 5166 lit xor and ;s 0= 0= 8 lit @ var: ! ;s ;s 5769 fp@ user: @ > ?branch ;s 218 = ?branch drop con: branch rdrop 287 lit defer: (emit) col: col: r> 11 col: col: var: dup @ cells 3 and ?branch nip nip execute @ 4 ;s col: user: @ >r col: 911 faligned swap (?do) con: col: col: 1 dup ?branch rdrop ;s over r> 506 swap lit max lit (?do) unloop 34 ;s cr ;s col: var: @ 647 defer: defer: col: var: count col: 10 over + -rot con: <> ?branch 160 0= does: @ col: var: col: 27 ! ;s ;s r> drop col: 4 @ ;s @ ;s ;s col: 6226 2dup >r >r user: @ /string 3 ;s dup ?branch ;s nip 0<> 223 lit col: >r defer: col: col: 708 @ + ;s 2! con: + 1 ?branch i 1+ col: cells var: 8 ;s ;s ;s ;s col: r> 6 and 0= 0= ?branch rot drop 106 2drop con: ;s ;s ;s dup 5 ;s var: ! col: var: dup 121 ;s ;s var: @ ?branch con: 287 (emit) var: 2@ defer: (type) lit 58 ;s col: col: user: @ ?branch 42 ;s + @ execute col: ;s 28 ;s ;s over col: col: col: 15 0= ?branch ;s col: user: @ 584 var: @ col: col: col: user: 28 dup lit >= col: col: r> 281 user: @ swap - col: dup 121 <> swap con: <> and col: 24 execute col: col: defer: noop col: 3533 2@ over <> ?branch drop 2drop 5730 + swap does: + c@ ;s 10 drop con: ;s ;s branch col: 226 rdrop ;s ;s col: lit col: 1 ;s col: var: @ ;s over 8 ;s ;s lit col: var: col: 54 r> (loop) unloop drop 2drop r> 1 nip execute col: var: @ 1- 27 lit pick col: lit over 0<> 997 user: @ ;s @ ;s user: 5301 con: col: col: col: user: @ 82 r> move c! ;s col: col: 10 ;s (loop) unloop ;s col: col: 17 var: @ 0< ?branch ;s ;s 1 ?branch r> col: var: ! col: 392 ;s con: col: col: col: user: 197 - con: - unloop ;s ;s 6699 @ execute col: lit + @ 17 @ ?branch col: con: @ col: 3553 drop var: dup @ 1- cells 1 var: @ lit (?do) i col: 51 0= swap 0<> and ?branch col: 647 col: defer: defer: col: var: count 23 + ;s @ branch ;s col: 3 ?branch ;s ;s ?branch execute does: 227 @ (f83find) ;s dup 0= ?branch 1 = ?branch lit /string branch dup 429 defer: (type) ;s cr rdrop ;s 1 @ ;s +! ;s col: col: 2 ;s lit pick + (loop) unloop 291 con: swap ! ;s col: var: 647 drop ;s ;s defer: (type) col: 950 @ does: @ col: var: col: 1 con: ;s ?branch 1- i' i 68 r> ;s rdrop dup col: con: 5 rdrop ;s over r> tuck - 18 ?dup ?branch ?dup ?branch col: col: 608 + @ ;s col: col: var: 459 @ r@ execute or col: col: 28 var: <= ?branch con: - dup 689 cell+ >r @ col: col: col: 194 ;s ;s ?branch 2dup swap col: 204 cell+ dup cell+ rot move drop 22 (f83find) ;s ;s dup ?branch ;s 6249 ;s 2dup >r >r user: @ 287 count defer: (type) ;s cr cr 25 var: @ and ?branch 2drop ;s 30 @ ?dup ;s ?branch ;s ;s 1 col: var: @ 1- dup 0= 5 swap c! 1+ col: col: col: 3 var: 2@ nip = ;s ?branch 66 defer: (type) ;s 1+ var: 2@ 36913 @ <> ?branch lit var: +! 5 +! ;s ! ;s ;s drop 1 ;s var: ! lit (do) lit 8 ;s lit lit col: >r >r 4 var: cell+ i cells + ! 2 r> var: ! ;s branch @ 20 ;s ! ;s cell+ (loop) unloop 21 nip execute col: col: col: con: 27 invert ;s col: col: col: user: 1 con: ;s ?branch col: user: @ 1005 user: @ dup 0= col: col: 61 ;s ! branch ;s con: (+loop) 606 (loop) unloop ;s lit col: user: 1580 ;s ;s dup ?branch ;s ?branch 287 defer: (type) lit defer: (emit) col: 1 var: up! sp@ dup user: ! 28 + ;s col: r> /does-handler + 124 @ dup 0> 0= ?branch nip 6 dup var: @ = ?branch drop 129 ;s +! ;s c! ;s con: 5 ;s (loop) unloop ;s ;s ;s 6 var: @ = ?branch drop con: 3 rdrop ;s ;s ;s col: con: 30 ?dup ;s ?branch var: @ field: 27 ?branch faligned nip ;s - dup 3 var: @ + @ col: lit 287 2@ var: 2@ 0<> rot 0= 8 col: 0= ?branch var: col: con: 281 dup negate user: +! lit over 908 ;s ?branch ;s col: col: var: 3 lit col: 0= ?branch var: col: 771 count defer: (type) ;s cr ;s 9163 0= ?branch lit col: col: var: 16 ! ;s col: col: col: user: 225 @ r@ execute and 0= 0= 140 c! ;s (loop) unloop ;s col: 7 nip nip execute ! ;s branch 941 ?dup ;s ?branch var: @ col: 19 >r r@ pick r@ pick r@ 5730 + c@ ;s ;s over c@ 25 +! col: var: @ 0< ?branch 1 cells col: lit fill ;s var: 1 code-address! ;s lit col: col: col: 287 dup var: ! col: var: ! 10413 0= 0= ;s ;s 0= ?branch 8 >r ?branch rdrop ;s ;s lit 291 cell+ dup @ 0< ?branch var: 71 user: @ ;s @ ;s >r 997 col: >r 2dup 2dup r> col: 36915 ;s ;s col: 0= ?branch var: 80421 lshift ;s swap @ and 0= 18 lit ;s col: con: lit ;s 1 dup user: ! over c@ lit 105 rot over 1+ r> move c! 18 ?branch over 0= 0= ?branch r@ 653 cell+ swap r> (loop) unloop drop 4 swap ! ;s (loop) unloop ;s 9 over r@ u>= ?branch col: dup 287 ;s cr var: 2@ defer: (type) 6 execute and 0= 0= ?branch rot 440 ;s user: ! drop ;s ;s 18 c@ 0= ?branch col: var: col: 713 +! @ ! ;s ;s does: 6699 execute col: lit + @ >r 292 col: con: swap ! ;s col: 196 c! ;s ;s col: lit >code-address 5062 @ col: col: dup field: @ 1 nip execute col: con: / 1+ 33 /does-handler + col: col: user: @ 1644 2drop ;s branch col: sp@ user: 43 var: @ ?branch con: ;s lit 708 var: @ over - ;s lit 127 ?branch lit var: +! ;s col: 5 ;s ;s + ;s ! ;s 5 ;s + ;s c! col: does: 258 +! ;s ! ;s con: col: 3 ?branch nip nip execute 1+ ;s 997 2drop 2drop ;s var: @ field: 5 col: 2dup lit col: >r dup 5 user: @ >r col: swap >r 287 col: col: var: @ execute col: 2 2dup col: col: r> r> dup 24 col: col: defer: noop col: col: 2 cells + @ (loop) var: cell+ 226 ;s ;s col: lit lit ! 9194 ;s con: col: col: user: @ 1 col: var: 2@ col: col: col: 2 dup var: ! col: col: user: 1005 ;s >r ?branch rdrop ;s cell+ 988 (?do) unloop ;s col: col: user: 13 c@ 0= or ?branch drop col: 1 i cells + @ (loop) unloop 3 and ?branch nip nip execute lshift 8 swap c! ;s ;s ;s branch 1437 r> lit and ?branch negate ;s 992 ;s ;s col: lit >code-address ;s 1801 ;s branch col: user: @ ?branch 3501 r> lit and ?branch ;s ;s 31 nip ;s user: ! ;s var: 113 = dup >r ?branch col: over 13 >r col: laddr# ;s >r user: 647 ;s defer: (type) col: col: r> 1737 var: 2! ;s lit col: col: 5 ;s defer: noop ;s col: does: 32 ;s ;s dup ?branch drop does: 915 over +! @ ! ;s ;s 1 nip execute + ;s branch col: 1 (?do) var: cell+ i cells + 1 @ lit (?do) var: cell+ i 12 ?branch var: @ ?branch over col: 513 var: ! ;s ;s col: col: 5 2* cells + 2! ;s var: 17 nip execute col: lit var: +! 3 dup ?branch ;s nip 0<> ;s 1 col: lit fill ;s var: @ 17 ?branch col: con: @ col: col: 5 and ?branch nip nip execute does: 895 field: @ execute col: @ (f83find) 31 ;s user: ! ;s var: col: 147 u>= ?branch con: ;s ?branch col: 16 drop ;s swap over col: swap 1730 lit and col: con: (hashkey1) ;s 3659 ;s c! ;s (loop) con: col: 61 does: @ + ;s ! branch 16 nip nip execute col: >r >r 1 ?branch 1- (for) var: cell+ i 291 ! lit var: +! var: @ 291 ?branch var: @ >r var: col: 1 con: swap ! ;s lit user: 1 col: dup ! ;s ;s branch 8 xor swap c! ;s ;s ;s 3 nip nip execute @ ;s branch 1 ! defer: drop ;s ;s branch 1005 >r ?branch rdrop ;s cell+ tuck 1 @ ?branch r> col: var: ! 3 ! ;s ;s ;s drop ;s 27 execute col: xor invert ;s col: 103 ;s col: var: @ col: col: 5 +! ;s 2! ;s branch dup 218 r@ = ?branch drop con: branch 979 defer: (type) ;s ;s col: col: 1 nip execute col: col: con: <> 25 var: +! col: var: @ 0< 3 var: cell+ i cells + @ 5 >r ;s drop col: ?dup ?branch 301 over col: swap col: con: /mod 5 user: @ close-file swap 2dup or 1 lit fill ;s var: @ over 6298 ;s lit col: col: user: @ 201 ?branch nip nip execute col: ;s 290 @ 0= ?branch var: @ over 787 ;s branch @ dup ?branch 2dup 1 cells + ! (next) unloop ;s 56 tuck ! cell+ tuck ! cell+ 1 ;s lit user: ! lit col: 3 dup lit u> ?branch lit - 7 @ ;s @ ;s /does-handler col: 154 c! ;s ;s col: col: user: 292 ;s ;s dup field: dup var: 87 rdrop dup col: con: con: 1+ 19 rot col: con: <> col: col: 12 ?branch over col: lit over 0<> 62 ! ;s ;s branch col: sp@ 693 ;s code-address! ;s ;s col: col: 39 lit col: >r dup 0= ?branch 5 @ close-file swap 2dup or col: 66 dup ?branch drop 2dup col: col: 1 mod ;s branch col: sp@ user: 689 col: r> dup cell+ >r @ 25 ;s ;s 0= var: @ and 15 con: ;s ;s does: @ col: 1 ?branch swap drop branch ;s dup 28 ! ;s code-address! ;s ;s over 5 lit branch unloop 0<> lit and 1027 @ field: @ field: @ execute 394 count lit and + faligned over 2 var: @ <> ?branch ;s ;s 5 (loop) unloop ;s swap col: col: 231 ;s swap col: col: col: user: 27 0<> ?branch faligned nip ;s - 795 ;s ! ;s code-address! ;s ;s 61 + ;s @ swap does: @ 506 2dup d0= ?branch ;s rot col: 253 and ?branch ;s col: var: @ 13 col: col: does: @ col: var: 291 +! var: @ con: >= ?branch 1 execute col: var: col: con: swap 87 within 0= col: col: r> r> 551 r@ col: >r r@ does: @ 1876 >r ;s >r ?branch rdrop ;s 358 c@ xor swap c! ;s ;s 469 ;s ;s con: (+loop) unloop ;s 647 ;s ;s var: c! var: count 287 2@ var: 2@ 0= rot 0<> 5 (loop) unloop ;s ;s branch col: 15 ! ;s code-address! ;s ;s ;s 4 rdrop ;s lit swap 1+ /string 2 ;s +! ;s ;s branch col: 1031 dup 0= col: col: r> r> 61 ;s ?branch execute var: @ does: 8 drop branch ;s branch col: var: 647 >r does: @ + ;s 2@ 105 var: @ col: swap (?do) unloop 421 ;s ;s + ;s c@ col: 7 ;s col: col: col: r> r> 279 ?branch rdrop ;s execute var: @ 12 branch ;s ;s ;s ;s col: 291 over cell+ ! dup @ dup 14 nip execute col: var: @ ?branch 5727 ;s +! ;s col: dup col: 125 c@ lit = dup >r ?branch 152 (type) ;s cr ?dup ?branch ;s 51 2drop ;s ;s ?branch col: lit 9 ;s ;s col: col: col: col: 5 ?branch 2dup 1- + c@ lit 2581 lit /string branch dup ?branch over 647 c! var: count move lit lit 5 var: 2@ tuck 1+ 2* cells 506 >r lit r@ um/mod r> swap 236 ;s col: col: col: var: col: 42 2! ;s ;s col: var: col: 486 +! ;s ! ;s cell+ swap 3 @ col: lit lit col: >r 933 ?branch lit (s+loop) dup i con: 18 col: con: lit ;s col: con: 1730 col: lit + dup @ 0< 117 branch ;s ;s branch col: sp@ 142 lit over 0<> ?branch faligned nip 1 <> ?branch ;s ;s col: col: 5 ;s ;s defer: noop ;s col: 5166 over @ r@ execute col: lit 1 - unloop ;s dup ?branch dup 72 aligned swap (?do) unloop ;s branch 5 branch ;s ;s col: col: col: 9 ;s col: col: col: col: con: 223 user: @ ;s user: @ over 218 @ dup r@ = ?branch drop 100 +! ;s ;s branch branch lit 39 col: >r dup 0= ?branch over 1 dup >r col: lit (?do) unloop 7 ;s @ ;s /does-handler col: col: 20 ;s ;s 0= ?branch ;s ;s 1 fp@ user: ! col: var: 2@ 933 lit (s+loop) dup i con: col: 506 swap >r um/mod r> ;s rot 1744 ;s ;s ?branch col: col: var: 2 nip nip execute * ;s branch 28 code-address! ;s ;s over col: col: 30 r> user: ! r> user: ! 124 um* d+ r> ;s (loop) unloop 5730 /mod rot + swap does: + 10 >r con: open-file 0= ?branch rdrop 1 ;s col: 0= ?branch var: col: 1 0= r> or ?branch 2drop dup 52 col: 2dup u< ?branch = ;s 23 con: col: col: defer: col: col: 5 ! ;s ;s ;s col: var: 5 rdrop rdrop rdrop lit ;s user: 31 ! ;s col: dup con: ! 147 @ um* d+ r> ;s (loop) 130 col: nip swap - 1- dup 287 ;s cr col: col: col: col: 52 col: con: @ col: 2dup u< 33 branch ;s ;s col: lit lit 287 over - ;s 2dup var: 2! 1 count ;s compare 0= >r 2dup 188 +! ;s ;s ;s does: @ 16 drop ;s ;s ;s branch col: 1 lit <> ?branch col: col: 2dup 980 r@ does: @ + ;s 2@ 647 lit max lit (?do) i' i 2158 col: var: @ ;s ;s lit 1 = ?branch i 1+ col: cells 2 defer: drop ;s drop col: r> 7 col: user: @ ?branch defer: noop 1 1- dup 0= col: col: r> 23 dup con: = ?branch drop (parse-white) 1744 0= ;s ;s ?branch col: col: 1730 ?dup 0= ?branch >r drop r@ 61 ;s ;s ?branch execute var: @ 41 (?do) unloop ;s lit col: user: 160 +! @ ! ;s ;s dup 10 ;s char+ c@ ;s col: user: 25 ! ;s ;s ;s lit col: 8 ;s drop branch ;s branch col: 1806 @ ;s con: user: @ ?dup 5 lit swap c! 1+ col: col: 1 col: lit (?do) unloop lit branch 298 ;s ;s col: var: col: con: 1153 does: swap lit max lit (?do) 16 ;s >r col: col: col: user: 4 2drop r> ;s ;s ;s dup 2046 pick + (loop) dup lit pick 1013 @ ;s @ ;s swap dup 566 con: - lit over +! @ 287 ;s 2dup var: 2! var: 2! 42 + @ execute col: ;s ;s 5769 sp@ user: @ > ?branch fp@ 287 2@ 0= rot 0<> and ?branch 574 defer: (type) ;s cr col: var: 287 ! ;s ;s dup var: ! 1 r> col: var: ! col: col: 64 swap +! ;s ;s ;s ?branch 1 ;s 2! ;s ;s ;s branch 257 drop ;s ;s col: r> dup 152 cr ?dup ?branch ;s col: col: 5 2! ;s ;s con: col: col: 39 nip execute col: col: dup col: 3 ?branch nip nip execute 1- ;s 146 ! ;s ;s does: @ does: 15 nip execute col: col: var: @ 25 ;s ;s ;s lit col: 1+ 281 lit over = ?branch branch drop 61 does: @ + ;s @ swap 635 @ + ;s @ var: 2@ 3553 cells over + (do) 2dup i 12 over - swap ! ;s con: 204 col: dup 1+ pick >r cells 1 + dup user: ! user: ! 4286 col: col: col: col: user: @ 6 swap >r dup allocate col: ?dup 6 ;s ;s 0= ?branch ;s >body 28 ;s ! ;s + ;s col: 1 rdrop ;s var: ! ;s ;s 1 nip nip execute mod ;s branch 1 user: ! fp@ user: ! col: 24 +! ;s ;s col: col: user: 39 con: col: = 0= col: col: 30 lit user: ! col: col: user: 223 ;s user: @ over min /string 23 user: @ ;s @ ;s count 10 drop r> cell+ cell+ (loop) dup 6 user: ! user: @ >r >r 1416 ;s ! r@ does: @ + 647 var: count move lit lit ! 5 c! ;s (loop) unloop ;s swap 6 nip execute aligned ;s branch col: 2540 ;s ;s ! ;s ;s ;s 6 ?branch drop con: branch ;s col: 287 unloop ;s var: 2! var: var: 1806 ;s con: user: @ ?dup ?branch 79 swap (?do) unloop ;s ;s col: 5 swap 2dup or col: dup ?branch 291 var: over cell+ ! dup @ 15 @ ;s execute col: >r col: 129 ;s @ ;s swap col: col: 52 <> col: col: r> r> dup 532 ;s >r ?branch rdrop ;s ;s 33 does-code! ;s ;s ;s branch col: 87 con: con: 1+ within 0= col: 66 dup ?branch 0> ?branch col: user: 5 col: var: 2@ tuck 1+ 2* 13 laddr# ;s >r user: @ >r 958 lit and 0= ?branch @ lit 1806 ?dup ?branch read-line col: ?dup ?branch 21 cr ?dup ?branch col: col: r> 287 ;s count ;s var: 2! col: 2 pick @ ?dup 0= ?branch 2dup 1 ! fp@ user: ! col: var: 11070 col: col: r> r> dup count 728 user: col: con: swap ! ;s 37648 ?branch lit col: col: var: @ 1 col: 2swap 2dup col: col: r> 125 @ 0= ?branch user: @ dup 16 ;s move ;s col: defer: defer: 4 r> ;s ;s ;s dup does: 5 2dup r> -rot move ;s col: 223 /string over swap r> col: >r 239 (+loop) i col: >r swap dup 997 user: @ ?dup ;s ?branch dup 6 branch ;s user: col: con: swap 16 (loop) unloop drop ;s swap over 4514 r@ lit and ?branch r> lit 145 - dup lit u> ?branch dup 56 (f83find) ;s ;s var: @ and 23463 ?branch lit var: +! ;s branch 15 @ and ?branch con: ;s ;s 2 var: @ ;s ;s branch col: 30 >r user: @ >r user: @ 59 dup ?branch drop 2dup 2>r col: 647 defer: (type) (+loop) unloop drop ;s 1 nip execute mod ;s branch col: 672 ! ;s ;s col: dup col: 3 ?branch nip nip execute @ ;s 647 does: @ + ;s 2@ 2dup 86 ! does: @ col: var: col: 21 nip execute col: col: lit col: 42 @ @ ;s ;s col: var: 226 col: defer: noop col: col: col: 1 dup user: ! user: ! user: 59 ;s 2! ;s ;s rot col: 82 ;s over char+ col: col: user: 6 @ = ?branch r@ user: +! 506 lit (?do) unloop drop ;s defer: 941 @ ?branch dup @ lit pick 2422 2@ defer: (type) col: col: r> 3 ?branch ;s ;s dup ?branch ;s 125 ;s dup ?branch 2drop rdrop r> 61 + ;s @ = rdrop ;s 1 nip nip execute col: con: / 5769 r> min user: ! ;s dup 54 @ ;s @ ;s >r var: 1 ;s var: 2! col: var: 2@ 997 lit and ;s var: @ col: 1 var: @ lit > ?branch con: 280 ?branch con: does: @ col: var: 21 ?branch over 0= 0= ?branch swap 8 0= ?branch ;s ;s ;s ;s 1 nip execute 2* ;s branch col: 3 cells var: @ + @ col: 3 ?branch 2drop ;s col: does: @ 971 user: @ ?dup ;s ?branch var: 5 @ 1+ dup con: > col: 128 ;s user: col: con: swap ! 61 + ;s ! branch ;s con: 708 col: >r swap dup r@ does: 1 dup >r lit col: >r sp@ 2627 @ @ ;s ;s + ;s 1 ;s ! ;s (loop) unloop ;s 291 var: +! var: @ con: >= 19 over r@ u>= ?branch col: var: 3968 ! ;s dup ?branch defer: col: 708 pick does: @ + ;s 2! 1 dup var: ! ?dup ?branch 1- 350 0= lit and col: ?dup ?branch 125 over c@ lit - dup lit 7 count defer: (type) ;s cr branch 1002 ;s r@ does: @ + ;s 105 col: var: @ var: (?do) unloop 5 ;s ;s con: col: col: col: 1 ;s col: var: @ ?branch col: 2 col: 0= ?branch ;s ;s ;s 5 nip r> rdrop lit branch unloop 61 @ swap does: @ + ;s 478 con: (+loop) i col: dup does: 478 ;s con: (+loop) i col: dup 647 c@ xor swap c! ;s col: 16 ;s +! ;s 2! ;s r> 4 nip execute 0= ;s branch col: 4 /string branch over >r lit col: 3 + @ col: lit lit col: 153 @ ;s @ ;s lit cells 5 ;s c@ ?branch con: does: @ 28 var: @ dup lit >= col: 68 rot move drop r> ;s rdrop 1613 ! ;s ;s ;s ;s col: 3 2@ ;s con: branch ;s ;s 226 ;s ;s col: lit col: user: 8 or swap ! ;s ;s ;s 1 @ ;s r> tuck - lit 506 col: dup 0< ;s r> col: 941 var: @ ?branch dup @ lit 125 lit (?do) count col: user: @ 5 rdrop ;s nip ?branch var: 2@ 1077 dup aligned swap (?do) unloop ;s 196 execute col: defer: noop col: col: 5166 xor and ;s 0= 0= ?branch 305 col: swap col: con: /mod cells 2 execute col: col: user: @ ;s 3553 dup @ 1- cells over + 121 con: <> and col: col: r> 218 ?branch drop con: branch rdrop ;s 708 dup does: @ + ;s @ 5 noop ;s col: does: @ col: 876 ;s ;s ! ;s ;s var: 1013 swap dup col: col: user: @ 2 swap 1+ /string ;s ;s over 125 2swap dup >r col: lit (?do) 449 cr ;s con: (+loop) unloop ;s 5 + ;s c@ ?branch con: does: 486 ! ;s cell+ swap cell+ swap 3553 @ execute col: drop con: ?branch 24 ! ;s ;s ;s swap ! 39 0= ?branch swap drop r> drop 1806 col: ?dup ?branch ;s branch lit 19 @ execute col: col: var: @ 421 ;s @ 0= ?branch does: @ 51 drop 2drop ;s ;s ?branch col: 37 0= ?branch ;s col: col: col: 1 ?branch dup user: ! over c@ 2 (?do) dup lit pick col: dup 708 + @ ;s + rdrop ;s 20295 lit var: +! ;s branch lit 39 r> drop ;s swap con: col: 789 var: @ ?branch col: dup @ 1 nip nip execute field: ;s branch 997 execute col: col: col: user: @ 42 @ execute col: ;s ;s col: 204 dup cell+ rot move drop r> 468 lit ! user: col: con: swap 2605 0= 0= ;s ;s ?branch col: 80421 @ and 0= 0= ;s ;s 4 ;s ;s col: lit var: +! 204 pick >r cells sp@ cell+ dup 9 con: <> ?branch 2dup con: swap 4 user: ! ;s col: col: 2dup 13 @ >r rp@ user: ! execute 708 over - ;s lit pick does: 2141 ;s col: col: r> r> dup 1 rdrop ;s var: @ ?branch r> 3 ! ;s branch ;s ;s does: 18 ;s col: lit col: >r dup 394 i - count lit and + 1 ?branch dup r> - ?branch dup 52 ;s ;s con: var: col: con: 66 (type) ;s 1+ var: 2@ col: 16 ;s ;s r> r> col: col: 3731 i 2@ over <> ?branch col: 5 rdrop ;s var: ! col: var: 153 ;s @ ;s lit cells col: 82 over char+ col: col: user: @ 275 ;s ;s col: r> dup cell+ 997 0< ?branch var: @ @ over 26 ;s ;s ?branch swap drop branch 1 con: cells col: lit fill ;s 287 ;s ;s col: var: var: @ 3 con: ! ;s ;s ;s drop 1 lit (do) lit col: col: col: 28 @ swap var: ! ;s over 196 nip execute col: defer: noop col: 279 col: >r r@ col: >r r@ 129 unloop ;s col: var: @ ;s 66 ! ;s ;s 2drop branch ;s 268 and ?branch 0= swap 0<> and 19 ?branch ;s ;s col: drop >r 4938 faligned ;s r@ lit and 0= 997 @ ;s dup faligned swap (?do) 61 ;s @ swap does: @ + 1148 defer: (type) ;s var: 2@ defer: 287 col: var: ! ;s ;s col: 1 2drop dup >r lit col: >r 5 c@ lit <> ?branch 2dup + 66 ?branch drop 2dup col: col: user: 196 swap c! ;s ;s col: lit 25 1- var: 2! ;s lit col: 287 col: var: 2@ var: 2@ 0= 287 var: 2@ var: 2@ rot swap 233 ;s + ;s ! does: @ 971 @ execute col: col: col: user: 32 swap +! ;s ;s ;s col: 5 ?branch r> r> user: ! r> 5758 @ (hashfind) ;s ;s dup ?branch 51 ! branch ;s ;s col: lit 13 ;s ;s ;s r> ;s ;s 76 execute col: user: @ ?branch col: 14 r@ col: does: @ + ;s 80726 /mod cells rot + swap ;s 2046 ;s lit pick + (loop) dup 1730 lit + dup @ 0< ?branch 5 2dup + lit swap c! 1+ 35 ;s col: con: @ col: col: 1416 + ;s ! r@ does: @ 708 + ;s lit col: col: var: 50 nip execute col: var: col: col: 8321 user: @ ;s @ ;s lit 7 ;s r@ col: >r r@ does: 222 con: (+loop) unloop ;s ;s col: 1138 @ over - ;s var: 2! 1 +! ;s col: col: col: user: 4 ;s swap 1+ rot (do) i 17 col: var: @ 0< ?branch ;s 6 cells var: + @ user: ! 6 lit u< ?branch cells var: + 7 ;s ?branch col: col: r> r> 708 2! con: + ;s lit col: 1744 ;s ?branch col: col: var: @ 287 col: col: col: col: r> r> 653 var: @ lit (do) >r over 789 + var: @ ?branch col: dup 23697 col: user: @ ;s @ ;s 4 branch ;s does: @ col: var: 1 / 1+ dup var: ! col: 4 dup count col: var: @ col: 1250 +! ;s c! ;s (loop) unloop 5 >r con: open-file 0= ?branch nip 6 ?branch ;s swap 2dup r> -rot 647 swap c! ;s col: lit lit 105 var: (?do) unloop ;s col: var: 1 @ ;s var: ! col: col: 599 lit col: >r con: rot rot 642 ;s ;s var: @ col: col: 19 pick r@ pick r@ pick rdrop 748 @ col: col: col: col: user: 6298 user: @ ;s +! ;s c! 280 0<> rot 0= and ?branch 0<> 58 ;s ;s drop ;s col: col: 2 unloop drop branch lit pick @ 1 ;s var: @ over ! lit 12 drop ;s ;s con: ! ;s 223 over min /string over swap r> 16 execute col: lit lit lit lit 12 ;s col: col: col: con: <> 941 (hashfind) ;s ;s var: @ and 148 ;s +! ;s ! ;s lit 8 execute col: col: var: dup @ 54 user: @ ;s @ ;s col: 466 ;s ;s ;s ;s col: var: 1722 (type) ;s cr col: col: r> 9163 ;s ;s 0= ?branch lit col: 1 +! ;s 2! ;s ;s ;s 1 and ?branch nip nip execute mod 72 unloop ;s branch ;s ;s branch 145 lit u> ?branch dup user: @ 873 ! ;s ;s col: col: user: 997 ;s var: @ and ?dup ?branch 506 >r col: dup 0< ;s r> 23 ;s @ branch ;s col: col: 1 execute col: var: col: dup ! 1 unloop ;s dup ?branch dup r> 35 ;s user: ! ;s col: con: 237 >r dup ?branch over c@ r@ 66 ;s ! ;s ;s 2drop branch 647 lit lit ! ;s ;s col: 30 ;s ?branch ;s ;s col: lit 21 user: @ ?branch con: min >r 21 ;s user: @ ?branch con: min 8 @ 0< ?branch lit @ var: 49 ;s col: dup col: dup con: 506 - dup @ tuck - ;s 574 col: var: ;s lit col: col: 13 execute col: col: does: @ col: 18 + ;s ! col: var: col: 11 execute col: var: @ ?branch var: 3553 @ field: @ execute col: drop 6 user: @ user: ! user: @ 2982 branch branch lit col: col: var: 3 nip execute lshift ;s branch col: 223 @ ;s user: @ over min 6 @ user: ! user: @ >r 1 col: 2dup con: swap read-file ?branch 1 2drop col: col: user: @ ;s 389 ;s ;s lit col: col: var: 8 lit ! var: var: ! ;s 1 ?branch ;s ?branch 2rdrop branch ;s 6249 2dup + r> - 1+ r> 1022 ;s ;s ! ;s ;s lit 1769 ;s col: col: var: @ over 4 nip execute col: 0= ?branch var: 1 (?do) unloop lit branch ;s dup 1 ! over c@ lit = ?branch 5 cells + 2! ;s var: 2@ 287 ! col: var: ! ;s var: 194 2drop ;s ;s ?branch 2dup swap 1 col: var: @ 0= ?branch con: 2054 col: col: user: @ ?dup ;s 273 (f83find) ;s ;s dup ?branch col: 13223 var: +! ;s lit col: col: 1 0= ?branch ;s >body @ col: 2 ?branch nip nip execute >body ;s 647 ;s ! ;s ;s dup >r 32 ;s ;s ;s dup ?branch drop 1436 ?branch negate ;s ;s ;s dup 80 1+ user: +! ;s col: col: 1876 >r swap >r ;s >r ?branch 708 @ ;s + rdrop ;s con: 3 execute col: 0= ?branch ;s ;s 3 u> ?branch lit - dup lit 2 ;s ;s over c@ lit <> 1 @ ;s @ ;s >r over 3 col: col: var: @ ;s lit 20 ;s 0= ?branch ;s ;s branch 226 ?branch rdrop ;s ;s col: lit 389 ?branch col: col: var: @ over 30 @ ;s @ ;s col: lit 5 rdrop lit ;s r> user: ! 291 swap ! ;s col: var: @ 997 over ! var: @ ! branch 253 swap 0= and ?branch ;s col: 19 swap ! ;s ;s does: @ 599 rot rot r> var: @ lit 3 execute col: lit col: 0= ?branch 1730 ;s tuck cell+ ! r> var: 78 over - swap ! ;s drop 6298 @ ;s lit col: col: user: 1 execute col: lit user: ! col: 9 r@ u>= ?branch col: dup col: 3 ?branch ! ;s ;s branch col: 4938 ?branch col: cell+ dup c@ >r 506 over - does: swap lit max 9 -rot con: <> ?branch 2dup con: 18 ! ;s ;s col: col: col: 28 +! ;s ! ;s + ;s 70 ! ;s drop branch ;s ;s 997 move ;s col: col: col: user: 5 2@ nip 1- user: ! lit 5 dup ?branch rdrop ;s nip ?branch 5 ;s ;s + ;s c@ ?branch 4 0= ;s branch col: sp@ user: 252 >r ?branch rdrop ;s ;s col: 113 rdrop r> ?branch r> user: ! 647 ;s 2@ col: col: dup lit 1 /string ;s ;s col: 2swap 2dup 997 and ?dup ?branch 2drop 2drop ;s 52 ;s con: var: col: con: swap 647 + ;s 2@ 2dup col: lit 647 ?branch dup does: @ + ;s 5 <> ?branch 2dup + lit swap 1 lit ! lit col: >r sp@ 1801 ;s ?branch col: col: sp@ user: 287 defer: (emit) var: 2@ defer: (type) 1 /string branch dup >r col: lit 33 ;s does-code! ;s ;s ;s branch 68 con: * 1- >r r@ col: 225 ;s ! ;s ;s ;s branch 2 nip = ;s ?branch col: col: 1 ;s ?branch drop branch ;s r> 1 ?branch ;s col: col: col: col: 1086 and ?branch nip nip execute col: 574 0= ;s ;s 0= ?branch ;s 307 ;s dup does: @ col: var: 24 ;s defer: noop ;s ;s ;s 1 ?branch negate ;s ;s ;s 0= 25 nip nip execute col: col: lit 201 col: ;s ;s branch col: sp@ 19 lit lit col: >r >r lit 6249 @ ;s 2dup >r >r user: 5730 con: / col: col: lit /mod 3 lshift ;s branch col: sp@ user: 142 col: lit over 0<> ?branch faligned 5 1+ var: 2! 2* cells + 121 dup con: <> swap con: <> 3 lit swap 1+ /string ;s ;s 28 ! ;s code-address! ;s ;s lit 1138 over - ;s var: 2! ;s 1 (+loop) i col: cells var: @ 296 ;s ;s col: col: var: @ 31 rdrop ;s ;s ;s ;s ;s 9 u>= ?branch col: dup col: dup 3553 field: @ execute col: drop con: 19 ;s ;s r> r> rot col: 15 cmove var: over r> + dup 5 ;s +! ;s 2! ;s branch 1 r> -rot move ;s drop var: 15 swap cmove 2dup var: r@ + 10 nip execute col: lit col: col: 5 nip execute col: col: con: col: 80421 col: lit swap lshift ;s swap 1 i cells + ! (next) unloop 3553 var: dup @ 1- cells over 1 swap 1+ /string ;s var: 2! 147 user: @ u>= ?branch con: ;s 708 + @ ;s + swap dup 43 ;s var: @ ?branch con: ;s 1 col: con: 0= ?branch lit (bye) 287 var: 2! var: var: @ col: 287 execute col: col: col: col: r> 253 +! ;s ;s ;s ;s ;s 42 +! ;s 2! ;s ;s col: 30 ?branch ;s ;s col: lit lit 4 0> ?branch col: r> dup cell+ 5 con: swap ! ;s lit col: 1022 ;s @ ;s dup user: ! 647 defer: (type) ;s cr ;s con: 647 col: lit does: swap lit max 142 ;s ?branch drop branch ;s dup 5166 execute col: lit xor and ;s 1 execute col: var: @ lit (?do) 1 ! var: @ con: cells col: 3 ! ;s col: col: var: dup 5 2* cells resize col: ?dup ?branch 2 dup @ ?branch dup defer: col: 23 con: = ?branch drop (parse-white) branch 1 ?branch rdrop ;s var: ! ;s 156 nip branch dup @ dup ?branch 143 execute col: lit col: >r defer: 9163 ;s 0= ?branch lit col: col: 39 col: = 0= col: col: r> 7 ;s (loop) unloop ;s ;s branch 971 ;s col: user: @ ?dup ;s 265 ;s rdrop ;s cr rdrop ;s 2 ;s >body user: @ ?branch col: 27 user: @ lit pick col: lit 480 r> min user: ! ;s col: 61 ;s @ r@ does: @ + 599 >r con: rot rot r> var: 5 r> -rot move ;s col: var: 3069 defer: (type) col: col: r> r> 2 @ ;s +! ;s ;s branch 1730 con: (hashkey1) ;s xor cells >r 25 ?branch ;s col: var: col: con: 3533 over <> ?branch drop 2drop lit 56 @ ! branch ;s ;s col: 1 0= >r 2dup col: col: r> 146 ;s + ;s c@ 0= ?branch 2 drop ;s branch col: sp@ user: 1 ;s ?branch col: user: @ >r 13 sp@ r> swap >r fp@ >r 1 lit > ?branch con: lit ! 1 ;s var: @ ?branch r> col: 5224 (loop) >r over @ over @ 5166 col: lit xor and ;s 0= 1 + @ (loop) unloop var: @ 5 ;s ;s r> user: ! rdrop 1 defer: noop var: @ lit > 895 @ execute col: @ (f83find) ;s 4075 col: var: @ col: col: dup 647 @ + ;s 2@ 2dup col: 26 drop 2drop ;s ;s ?branch swap 27 min user: ! ;s col: col: 6226 >r >r user: @ /string (parse-white) 125 branch ;s dup ?branch 2drop rdrop 15 >r var: swap cmove 2dup var: 3025 col: user: @ ?dup ;s ?branch 148 ?branch dup user: @ u>= ?branch 14 branch rdrop ;s ;s con: (+loop) 566 aligned ;s con: - lit over 4 unloop drop ;s swap 1+ rot 7 nip execute ! ;s branch col: 291 col: cell+ dup @ 0< ?branch 56 swap con: - dup @ swap 339 dup aligned swap (?do) con: col: 997 @ and ?dup ?branch 2drop 2drop 125 swap ! ;s over c@ lit 1022 ! ;s ;s lit col: col: 1437 lit and ?branch negate ;s ;s 1017 ;s ;s col: col: col: user: 2124 @ does: @ + @ ;s 647 +! ;s ! ;s ;s dup 21 con: lit ;s ;s ;s branch 197 ;s dup 0= ?branch drop lit 506 count defer: (type) ;s lit col: 287 (type) ;s cr var: 2@ defer: 979 (type) ;s ;s col: col: r> 3553 col: drop con: ?branch lit col: 239 rdrop ;s con: (+loop) i col: 5 r> user: ! >r ;s drop 290 col: var: @ 0= ?branch var: 2 ! dup @ dup ?branch 2dup 647 move lit lit ! ;s dup 997 2drop ;s var: @ field: @ 1 col: var: 2@ lit (?do) unloop 43 ;s con: = ?branch var: @ 440 col: user: @ ?branch defer: col: 1 lit user: ! lit col: >r 335 0= ?branch does: @ col: var: 2 drop branch lit pick @ ?dup 33 ! ;s ;s col: var: @ 647 2@ col: col: dup lit u> 19 >r >r lit col: 1+ con: 895 execute col: @ (f83find) ;s ;s 1806 +! swap user: ! lit user: 120 ;s 2drop ;s ;s branch col: 1250 swap (?do) con: col: col: col: 647 ;s ?branch execute var: nip unloop 387 ;s ;s ?branch lit @ execute 335 @ 0= ?branch does: @ col: 341 execute col: does: @ col: var: 2 +! ;s user: @ ?branch col: 1 nip execute swap ;s branch col: 87 1+ con: * 1- >r r@ 1 2! ;s defer: noop var: @ 226 defer: noop col: col: col: r> 23 ;s ;s + ;s @ branch 1 ;s ! ;s cells col: col: 28 var: ! ;s over r@ u>= 506 c! ;s ;s 2dup d0= ?branch 287 var: 2! var: 2! ;s lit 789 2dup swap col: lit + dup 3711 lit (+loop) 2dup i 2@ over 5 dup con: > col: col: r> 5 execute over ;s branch col: sp@ 7 (type) ;s r@ col: >r r@ 1 ! ?dup ?branch 1- (for) var: 24 lit var: ! ;s ;s lit 4 r@ <> ?branch rdrop ;s over 1806 branch lit user: +! swap user: 279 ;s execute var: @ dup r@ 7 count defer: (type) ;s r@ col: 3 +! ;s ;s ;s rot 2dup 1801 ?branch 2drop ;s branch col: user: 40 col: swap (?do) unloop ;s var: 16 nip execute col: >r >r >r 21 col: col: lit col: >r dup 5 ! ;s lit col: user: @ 80 ;s col: lit col: >r defer: 1730 col: lit pick @ ?dup 0= 1013 user: @ ;s +! ;s move 647 col: lit swap (?do) dup i 80421 swap lshift ;s swap @ and 3553 1- cells over + (do) 2dup 15 r> + dup >r con: open-file 506 ;s con: - dup @ tuck 449 ;s cr ;s con: (+loop) unloop 227 col: col: @ (f83find) ;s dup 125 col: col: user: @ >r user: 59 2! ;s ;s rot col: col: 4 nip execute col: swap col: con: 18 +! ;s ! ;s does: @ 28 ;s over r@ u>= ?branch col: 1 noop var: @ lit > ?branch 5730 + ;s swap col: con: - 51 @ execute drop ;s branch col: 8 ?branch rdrop ;s ;s lit lit 1 execute field: ;s branch col: sp@ 1806 ?branch col: user: @ ;s con: 1163 user: @ ;s @ ;s swap 469 (+loop) unloop ;s col: var: 2@ 421 + ;s @ 0= ?branch does: 12 ?branch 2drop rdrop r> ?branch dnegate 24 var: ! ;s ;s lit col: 1 r> tuck - lit cells / 20 var: ! ;s ;s ;s branch 23 branch 2dup + r> - 1+ 1 ?branch i 1+ var: @ = 1 fill ;s var: @ over ! 3 lit u> ?branch lit - dup 4 execute col: col: lit var: +! 2 ?dup 0= ?branch 2dup * allocate 23 0= ?branch ;s ;s branch col: 218 branch rdrop ;s ?branch r@ col: 60 ;s ;s col: 2drop col: col: 1 + ;s branch col: sp@ user: 51 nip nip execute col: lit lit 941 pick ! ! branch var: col: 3447 nip nip unloop ;s ;s ;s 49 nip execute col: defer: col: defer: 2 0<> ;s 0= col: 0= ?branch 8 + ;s col: user: @ ?branch 2 unloop ;s ;s branch ;s ;s 30 @ ;s col: lit >code-address ;s 201 execute col: ;s ;s branch col: 292 ! ;s ;s var: field: @ 6 con: branch ;s col: col: con: 239 ;s ;s con: (+loop) i col: 4 execute 0= ;s branch col: sp@ 23 1+ r> move c! ;s con: 414 ;s execute col: >r r@ does: 42 execute col: ;s ;s col: var: 125 ! ;s user: @ 0= ?branch 997 cell+ count lit and ;s var: 18 ;s c@ 0= ?branch col: var: 16 swap over col: swap col: con: 789 ?branch drop ! ;s var: col: 1730 @ ?dup 0= ?branch >r drop 468 lit lit ! user: col: con: 387 ;s ?branch lit @ execute col: 5 ! ;s ;s drop ;s ;s 10 ;s ;s ;s col: r> dup 1416 @ ;s dup aligned swap (?do) 5 1- user: ! lit col: >r 997 ;s var: @ field: @ field: 32 ;s ;s >r col: 2dup col: 2 0= ?branch ;s ;s ;s branch 997 r> col: dup field: @ field: 19 count defer: (type) ;s cr 0= 248 ?dup ?branch ;s col: col: r> 5 1+ col: col: col: user: @ 1 2@ col: col: col: col: user: 19 cr 0= swap 0<> and ?branch 66 1+ var: 2@ col: drop swap 287 ! ;s var: var: @ col: 1 compare 0= r> or ?branch 2drop 113 ?branch col: over c@ lit - 16728 col: user: @ ;s +! ;s 5 ;s var: 2@ nip 1- user: 1582 execute col: lit col: col: var: 1 + ! (next) unloop ;s ;s 15 ;s code-address! ;s ;s ;s branch 12 r> ?branch dnegate r> user: ! 4 ;s lit swap 1+ /string ;s 339 aligned swap (?do) con: col: col: 13 >r fp@ >r col: laddr# ;s 1802 col: col: sp@ user: @ > 933 ;s ?branch lit (s+loop) dup i 635 + ;s @ var: 2@ col: 16 execute col: lit lit ! user: 13 or ?branch drop col: var: col: 1730 r@ swap col: lit fill ;s 147 branch col: var: col: lit swap 147 ! does: @ does: @ col: 1 = ?branch dup var: ! ?dup 6699 field: @ execute col: lit + 23 /string rot dup con: = ?branch 4 execute col: con: swap ! ;s 127 +! ;s col: col: var: @ 1 1+ col: cells var: @ + 941 ! branch var: col: con: swap 78 ;s con: = ?branch col: col: 1013 ;s @ ;s swap dup col: 1012 + aligned ;s con: - dup 5877 cell+ swap cell+ swap r> (loop) 663 @ ;s user: @ ;s user: 1 c@ lit <> ?branch i 1+ 30 (f83find) ;s dup 0= ?branch ;s 394 faligned over lit + = ?branch 152 ;s ;s dup ?branch ;s ;s 77 and ?branch ;s ;s ;s 0= 286 ;s branch ;s col: col: var: 1 con: open-file col: col: r> r> 16 ;s r> r> r> col: col: 1 drop con: ;s ?branch 1- i' 908 ;s ! ;s ;s ;s ;s 647 unloop ;s dup r> does: @ 3 user: @ ;s +! ;s ;s 941 ! ! branch var: col: con: 941 lit pick ! ! branch var: 11 col: ?dup ?branch ;s swap 2dup 1416 @ ;s @ ;s dup aligned 118 +! ;s ;s ;s drop ;s 281 ! ;s (loop) i over col: 1 and ?branch nip nip execute swap 8 ! ;s drop branch ;s branch 4938 c@ >r col: count lit and 41 0= and ?branch col: col: r> 1435 var: 2@ defer: (type) col: col: 1801 ?branch col: col: sp@ user: @ 120 1+ user: +! ;s 2drop ;s 647 i - lit min 2dup defer: 287 (type) lit defer: (emit) col: col: 18 ! ;s does: @ col: var: 1 @ 1- dup 0= col: col: 8 nip nip execute col: col: user: 143 drop branch ;s dup does: @ 20 @ ;s swap var: @ lit 28 ;s + ;s col: r> /does-handler 203 defer: noop ;s ;s branch col: 2581 branch dup ?branch over c@ r@ 506 col: >r col: dup 0< ;s 647 col: var: count col: col: col: 2 execute * ;s branch col: sp@ 223 dup r> ?branch 1+ user: +! 1 col: var: @ ;s over col: 4 col: var: col: col: dup field: 3 1- ;s branch col: sp@ user: 2 @ (loop) var: cell+ i cells 1 ;s con: ! ;s branch col: 31 col: con: swap ! ;s branch 125 user: @ dup 0> 0= ?branch 506 ;s lit col: >r col: dup 1580 i con: col: col: dup field: 647 ;s dup ?branch ;s ?branch dup 287 var: ! ;s lit col: col: 1 ?branch nip nip execute field: ;s 19 ;s col: drop >r drop col: 424 ?branch 1- r> lit and ?branch 6 allocate col: ?dup ?branch ;s swap 86 ?branch does: @ does: @ col: 30 ;s lit col: lit lit ! 14 (?do) unloop ;s ;s col: col: 3 execute 1+ ;s branch col: sp@ 1 defer: drop ;s ;s branch col: 12 branch drop ;s ;s col: col: 90 (type) ;s cr ;s col: col: 1722 cr col: col: r> r> dup 1 <> ?branch drop ;s dup var: 5 -rot move ;s col: var: 2@ 566 over +! @ c! ;s ;s 22 +! ;s 2! ;s ;s swap 51 ;s ;s ?branch col: lit col: 599 col: >r con: rot rot r> 6 ;s @ var: ! ;s ;s 5 var: @ 1+ dup con: > 1641 ;s 2drop ;s branch col: sp@ 506 lit col: >r col: dup 0< 9 ;s ;s col: var: @ dup 10 (loop) dup >r 2@ dup >r 10 ;s drop ;s ;s ;s branch 4 r> col: >r ;s ;s col: 292 ;s ! ;s ;s var: field: 52 @ col: 2dup u< ?branch = 125 swap ! ;s lit lit 2swap 997 @ 0< ?branch var: @ @ 66 0<> ?branch faligned nip ;s user: 1251 ;s ;s dup ?branch lit and 294 dup ?branch col: col: r> r> 933 ?branch ;s ?branch lit (s+loop) dup 287 defer: (emit) col: col: r> r> 36 @ execute col: col: var: col: 7 ?branch nip nip execute col: 0= 5 close-file swap 2dup or col: dup 11 execute cells ;s branch col: sp@ 19 ! ;s ;s drop con: ;s 3 (?do) unloop ;s ;s ;s ;s 1 @ ;s @ ;s col: col: 147 um* drop rot user: @ um* 6 ?dup ?branch ;s swap 2dup r> 1 var: 2! ;s defer: noop var: 873 col: col: var: col: con: over 712 lit and ?branch ;s ;s ?branch 1 (for) var: cell+ i cells + 3556 ;s 0= 0= ?branch cell+ swap 1251 dup ?branch lit and ?branch nip 1022 ;s +! ;s ! ;s code-address! 6 branch ;s col: col: con: /mod 16 >r col: col: user: @ ;s 3731 2@ over <> ?branch col: dup 125 ;s lit lit 2swap dup >r 5 ?branch rdrop ;s over r> tuck 506 r@ um/mod r> swap >r um/mod 1355 dup does: @ + ;s 2@ 287 defer: (type) ;s cr var: 2@ 1 ;s col: lit col: col: var: 789 dup ?branch drop ! ;s var: 4 ;s @ ;s ;s col: dup 1806 col: user: @ ?branch col: user: 125 ! ;s over c@ lit = 6249 r> - 1+ r> min user: 1 execute col: con: 0= ?branch lit 9 ?branch col: dup col: dup con: 68 ?branch col: user: @ ?branch col: 1 ?branch ;s ;s ?branch execute con: 1 execute swap ;s branch col: sp@ 941 @ + var: @ ?branch dup 1 execute col: var: @ dup @ 2 @ ?branch col: user: @ ?branch 33 @ ;s does-code! ;s ;s ;s 19 ;s r> r> rot col: con: 222 (+loop) unloop ;s var: 2! ;s 1616 0= ?branch rot drop con: rot 197 - unloop ;s ;s ;s dup 15 dup >r con: open-file 0= ?branch 145 dup lit u> ?branch dup user: 13 >r rp@ user: ! execute col: 446 0< ?branch ;s col: 2drop col: 160 ;s ! ;s cell+ (loop) dup 3 nip nip execute 1- ;s branch 287 unloop ;s var: 2! ;s col: 21 branch dup @ dup ?branch nip 5730 col: con: - ;s con: / 3 @ 1+ var: 2@ nip = 2031 ?branch col: col: var: @ ;s 789 @ dup ?branch drop ! ;s 997 @ ;s @ ;s user: ! 23 = ?branch drop (parse-white) branch 2dup 1022 lit >code-address ;s col: col: col: 287 @ over - ;s 2dup var: 2 @ ;s @ ;s var: ! 1 lit (?do) var: cell+ i cells 25 ;s ;s branch ;s ;s branch 119 lit u< ?branch drop ;s user: 216 nip execute col: defer: defer: col: 469 ;s con: (+loop) unloop ;s col: 506 lit + col: col: col: col: 21 lit ;s ;s ;s branch col: 1730 ! r> var: @ + var: 226 noop col: col: col: r> r> 694 cr rdrop ;s ;s con: (+loop) 42 col: ;s ;s col: var: col: 19 swap con: - swap lit col: 125 ?branch ;s ;s dup ?branch drop 6 nip nip execute aligned ;s branch 1347 and col: ?dup ?branch ;s ;s 119 drop ;s user: col: con: swap 15 ?branch con: ;s ;s does: @ 3 nip nip execute 1+ ;s branch 5 lit user: ! user: col: con: 647 ;s dup col: col: defer: defer: 941 ?branch var: @ col: lit + 147 ?branch col: swap >r swap user: 12 rdrop ;s ;s ;s ;s does: 281 (loop) i over col: swap col: 19 @ ;s ;s char+ c@ ;s 5 ;s drop col: ?dup ?branch ;s 2 var: ! ;s branch @ dup 997 ;s var: @ col: >r 2dup 5 ?dup ?branch ;s var: swap ;s 5730 ;s swap col: con: - ;s 40 (?do) unloop ;s var: 2! var: 4 drop ;s swap 1+ rot (do) 70 branch ;s ;s ;s branch col: 5730 dup @ + ;s swap col: 637 drop swap - 1- dup ?branch 80726 swap ;s col: lit swap lshift 3 ;s 2! ;s col: r> /does-handler 4 ?dup ?branch ;s ;s ;s ;s 5 ! >r ;s drop col: ?dup 33 col: user: @ ;s does-code! ;s 529 ! ;s col: col: user: @ 424 and ?branch 1- r> lit and 237 col: >r dup ?branch over c@ 1 ;s drop var: 2@ nip var: 147 ;s ?branch col: swap >r swap 350 xor swap c! ;s ;s col: 4 1+ rot (do) i over col: 350 ;s ;s col: dup lit u> 1 ;s user: ! user: ! user: 3 drop ;s ;s col: var: col: 507 + @ ;s + @ execute 19 ;s @ ;s ;s char+ c@ 820 ! ;s var: col: con: swap 441 drop ;s ;s branch col: sp@ 6912 defer: col: col: user: @ ;s 12 ?branch lit /string col: over c@ 23 (parse-white) branch 2dup + r> - 350 ! ;s ;s col: defer: col: 1022 dup user: ! lit col: col: 647 ;s var: c! var: count move 1730 col: con: (hashkey1) ;s xor cells 2 >body user: @ ?branch col: user: 1 ?branch con: lit ! lit col: 5730 col: col: con: dup @ + 2 r> ;s ;s ;s ;s branch 1 ;s var: 2! var: up! sp@ 294 +! ;s ! ;s ;s ;s 5769 user: @ > ?branch fp@ user: 350 defer: defer: col: col: col: col: 1 con: lit ! lit col: >r 10 lit col: col: defer: defer: col: 7 ! ;s branch col: sp@ user: 2 i cells + @ (loop) var: 2 cells + ;s ! ;s col: 653 swap cell+ swap r> (loop) unloop 599 rot r> var: @ lit (do) 197 + = ?branch con: (+loop) dup 31 = ?branch var: @ ?branch col: 128 ;s dup ?branch ;s ;s dup 16 col: >r >r >r >r dup 24 @ ! ;s ;s col: var: 227 @ execute col: col: @ (f83find) 2048 ! ;s lit pick + (loop) 66 0> 0= ?branch nip ;s dup 4938 col: cell+ dup c@ >r col: 287 var: 2@ var: 2@ 0<> rot 49 ;s col: user: @ swap - 5 ! ;s lit col: >r sp@ 6 = ?branch r@ user: +! user: 9 ;s con: ! ;s ;s ;s 284 dup ?branch drop branch lit (+loop) 28 ;s tuck ! cell+ tuck ! 196 user: @ ;s @ ;s ;s 469 rdrop ;s con: (+loop) unloop ;s 86 + ;s ! does: @ col: 3 nip execute 1+ ;s branch col: 9 ;s branch col: var: @ dup 1 ?branch col: user: @ >r col: 7 count defer: (type) ;s cr 0<> 25 col: lit var: +! col: var: 3 ;s col: col: var: dup @ 3 @ + @ col: lit lit 21 (type) ;s cr ?dup ?branch col: 8 nip execute col: col: user: @ 15 2dup var: r@ + swap cmove 3 cells + ! (next) var: cell+ 19 pick r@ pick rdrop dup col: 1 ! ;s rp@ user: ! fp@ 1 @ var: ! ;s ;s r> 997 ;s ;s col: dup col: col: 2410 @ + ;s @ does: @ 647 2dup defer: (type) (+loop) unloop drop 287 unloop ;s ;s col: var: var: 1 lit <> ?branch i 1+ var: 42 @ ;s ;s col: var: col: 120 +! ;s 2drop ;s ;s branch 1 var: 2! col: var: 2@ 2* 2 ! user: ! user: col: con: 236 0= swap 0<> and ?branch ;s 152 c! col: var: col: @ @ 789 @ dup ?branch 2dup swap col: 223 col: lit col: >r defer: col: 287 (emit) col: col: r> r> dup 36913 @ var: @ <> ?branch lit 21 swap drop branch ;s r> ;s 1 @ ;s @ ;s r> tuck 2 ;s 0= col: 0= ?branch ;s 1634 + ;s 2@ defer: (type) col: 8 ;s col: user: @ ?branch ;s 12 dup col: lit over 0<> ?branch 708 con: + ;s lit col: col: 47 drop ;s col: 2dup col: lit 281 ;s (loop) i over col: swap 6249 user: @ ;s 2dup >r >r 461 ;s ;s ;s col: var: col: 2882 +! ;s branch branch lit col: 1002 defer: (type) ;s r@ does: @ 1 >r lit col: >r sp@ r> 3 + ! (next) var: cell+ i 2 lit pick + (loop) unloop drop 291 var: @ con: >= ?branch ;s 106 unloop 2drop con: ;s ;s ;s 5 var: ! col: var: dup @ 676 ;s 0= ?branch col: col: var: 16 r> r> r> col: col: col: 54 @ ;s >r var: @ lit 20 @ ;s @ ;s swap var: 25 col: col: col: con: <> col: 1 ;s ! ;s does: col: var: 292 ;s var: field: @ col: col: 6590 @ ;s @ ;s lit col: 121 col: dup col: dup con: <> 32 ;s >r col: 2dup col: lit 5 ;s ! ;s ;s drop ;s 39 >r dup 0= ?branch over 0= 1 ;s code-address! ;s lit col: col: 1 ;s 2dup col: var: 2@ lit 24 noop ;s ;s ;s branch col: 1 nip = ;s ?branch branch rdrop 708 ?branch ;s ;s ?branch execute var: 8 ;s + ;s col: user: @ 13 2drop r> ;s ;s ;s r> 35 ?branch drop does: @ col: var: 160 drop 2drop ;s ;s 0= does: 59 ;s ;s rot col: col: col: 25 ;s >r ?branch rdrop ;s 0> 125 ;s user: @ 0= ?branch user: 4 swap ;s col: user: @ >r 57 @ ;s col: col: col: col: 160 ;s cell+ (loop) dup @ col: 125 >r col: lit (?do) count col: 35 @ ?branch var: @ col: dup 642 ;s var: @ col: col: col: 35 var: @ col: dup con: ! 4938 dup ?branch col: cell+ dup c@ 223 <> ?branch rdrop ;s >r over 1251 lit and ?branch nip nip execute 6912 user: @ ;s user: @ ;s 61 swap does: @ + ;s ! 1 @ dup @ ?branch drop ;s 997 ;s col: dup col: col: col: 6 ?branch r@ user: +! user: @ 7 user: @ ?branch defer: noop col: 12 rp@ user: ! execute col: col: 294 defer: (type) ;s branch ;s col: 25 ;s dup 0= col: col: r> 2 + ;s ! ;s col: col: 4 <> ?branch rdrop ;s over r> 1005 col: user: @ dup 0= col: 1 execute col: user: @ >r var: 3980 r@ lit and 0= ?branch lit 61 @ + ;s @ = rdrop 469 @ var: (?do) i col: dup 5 ;s + ;s ! ;s ;s 23 @ ?branch does: @ col: var: 5 rdrop lit ;s user: @ close-file 23 user: ! ;s col: col: user: 440 user: @ ?branch defer: col: col: 160 ;s 0= does: @ col: var: 1 1- i' i - unloop ;s 3553 execute col: drop con: ?branch lit 2587 r@ <> ?branch lit /string branch 647 r> does: @ + ;s ! 78 ;s ;s ;s 0= ?branch ;s 1662 ?branch col: col: col: col: user: 997 ;s c! ;s col: col: user: 165 nip nip execute col: lit col: 280 rot 0= and ?branch 0<> swap 2 user: @ ?branch col: col: r> 147 dup user: @ u>= ?branch con: 414 execute col: >r r@ does: @ 128 ;s ;s 2drop ;s does: @ 421 + ;s c@ col: var: col: 27 col: xor invert ;s col: col: 708 @ + @ ;s execute col: 287 var: ! col: var: ! ;s 1 ;s ;s lit branch (+loop) i 16 +! ;s ! ;s r> col: 18 + ;s c@ 0= ?branch col: 5 ;s ;s ;s col: col: lit 10 swap read-file ?branch rot over + 36 col: col: var: col: @ @ 305 lit swap lshift ;s over @ 291 con: >= ?branch ;s lit cells 6 >r dup allocate col: ?dup ?branch 1 lit swap 1+ /string ;s var: 216 nip nip execute col: defer: defer: 1077 ;s dup aligned swap (?do) unloop 20 branch ;s con: (+loop) unloop ;s 478 (+loop) i col: dup does: @ 80421 @ dup var: @ = ?branch 30 ;s code-address! ;s lit col: lit 3 ;s ;s ?branch execute does: 2@ 5730 / col: col: lit /mod rot 35 user: ! ;s col: con: @ 708 @ + @ ;s + rdrop 7 defer: (type) ;s cr branch rdrop 991 (hashfind) ;s ;s dup ?branch col: 2 dup @ dup ?branch 2dup swap 6249 1+ r> min user: ! ;s 997 ?branch dup @ 0< ?branch var: 1 <> ?branch ;s ;s ;s ;s 647 dup >r does: @ + ;s 287 2! col: col: r> r> dup 24 + ;s ! con: does: @ 25 ;s ;s dup 0= col: col: 1730 drop r@ @ rot ! r@ 789 ?branch 2dup swap col: lit + 22 var: dup @ cells + ;s 78 - swap ! ;s drop branch 153 lit cells col: col: user: @ 9171 ;s @ ;s con: col: col: 220 ;s ;s defer: noop ;s ;s 4 ;s ;s r> col: >r ;s 265 (type) ;s rdrop ;s cr rdrop 129 lit user: @ col: col: col: 1730 cells lit col: lit pick @ 6 user: ! execute col: col: r> 1 execute col: dup lit = ?branch 5730 rot + swap does: + c@ 5 ;s drop ;s ;s branch col: 129 ;s ! ;s lit user: @ 1 0= ?branch ;s ?branch 2rdrop branch 1 col: var: @ lit (?do) var: 1641 ;s ;s 2drop ;s branch col: 5 and col: ?dup ?branch ;s var: 6 u< ?branch cells var: + @ 506 lit max lit (?do) unloop drop 287 defer: (type) ;s cr cr ;s 105 lit 2swap swap (?do) unloop ;s 1 con: <> ?branch drop ;s dup 13 + @ execute col: col: does: 12 ;s ;s ;s ;s ;s does: 25 var: ! ;s ;s col: dup 59 ;s dup ?branch drop 2dup 2>r 28485 ;s ;s ?branch lit col: col: 1 ;s - col: col: user: @ 289 var: ! defer: col: cell+ dup 997 @ ?dup ;s ?branch dup @ 5 var: 2@ nip 1- user: ! 26 nip execute col: col: col: user: 1580 con: col: col: dup field: @ 80421 ;s col: col: con: /mod cells 86 @ 0= ?branch does: @ does: 2 nip execute >body ;s branch col: 19 ;s 0= ?branch ;s ;s col: 287 count ;s var: 2! ;s lit 59 ;s ;s ;s branch over 0= 1 (loop) unloop ;s col: lit col: 14 ! ;s lit col: col: col: 119 - dup lit u< ?branch drop 1416 does: @ + ;s ! r@ 5 ;s ;s drop ;s ;s branch 6699 col: con: (hashkey1) ;s r> xor 135 branch dup @ dup ?branch drop 7 +! ;s does-handler! ;s branch con: 599 r> (loop) unloop drop 2drop ;s 291 >= ?branch ;s lit cells - 49 col: col: col: r> dup cell+ 119 dup lit u< ?branch drop ;s 125 lit branch ;s dup ?branch 2drop 647 ;s 2@ defer: (type) col: lit 1 ?branch col: col: 2dup lit col: 153 ;s lit cells col: col: user: 7 defer: (type) ;s rdrop ;s col: 506 r> swap >r um/mod r> ;s 3 ;s ;s ?branch col: does: @ 21 col: con: lit ;s ;s ;s 54 ;s @ ;s >r var: @ 6 user: ! lit /string branch ;s 24 ! con: does: @ col: var: 20 @ or swap ! ;s ;s 47 execute con: ;s branch col: sp@ 3447 nip unloop ;s ;s ;s dup 2 /string ;s ;s over c@ lit 1 2swap 2dup col: col: r> r> 54 unloop drop 2drop r> ;s ;s 1 +! ;s ! ;s (loop) unloop 28 code-address! ;s ;s lit col: col: 287 var: 2@ defer: (type) lit defer: 3 @ ;s ;s col: col: var: 160 ;s + ;s c@ 0= or 30 ?branch var: @ field: @ field: 1730 ! r@ swap col: lit fill 19 col: >r >r lit col: 1+ 1610 ;s lit col: col: col: user: 13 user: @ >r rp@ user: ! 7 ;s cr 0<> swap 0= and 41 faligned swap (?do) unloop ;s lit 3 +! ;s ;s ;s ?branch col: 289 dup @ dup ?branch 2drop r> 1730 @ rot ! r@ swap col: 31 - swap ! ;s col: dup 23 move c! ;s con: col: col: 1801 lit user: ! ;s ?branch col: 16 lit lit lit lit ;s ;s 2 drop col: r> /does-handler + col: 1 -rot move ;s drop var: 2@ 506 - does: swap lit max lit 16 ;s code-address! ;s ;s r> r> 6298 @ ;s +! ;s c! ;s 1 nip nip execute swap ;s branch 194 swap col: lit col: >r con: 247 (+loop) unloop ;s var: var: @ 279 ;s 0= col: col: r> r> 287 2@ rot swap - rot rot 1730 cell+ ! r> var: @ + 23 >r >r user: @ over min 121 @ ;s ;s var: @ ?branch 1 - ?branch dup user: ! over 1 swap ;s branch col: sp@ user: 204 cell+ rot move drop r> ;s 196 ;s ! ;s code-address! ;s con: 279 and ?branch ;s ;s 0= col: 287 ?branch col: var: ! ;s lit 3 ;s rot 2dup and var: @ 1616 rot rot cell+ swap cell+ swap 78 branch ;s lit col: col: col: 1876 aligned >r swap >r ;s >r 2 ;s con: ! ;s ;s branch 34 nip execute col: col: col: r> 1 ! col: lit lit col: >r 19 (type) ;s cr 0= swap 0<> 3 swap +! ;s ;s ;s rot 778 ;s ;s ;s col: lit >code-address 291 @ over ! lit var: +! 3731 over <> ?branch col: dup field: 5 unloop 0<> lit and col: ?dup 11070 r> dup count + aligned >r 119 u< ?branch drop ;s user: col: 11 ;s @ 1+ var: 2@ drop 197 ?branch con: (+loop) dup i - 154 cells col: col: user: @ ;s 2818 ?branch over c@ r@ <> ?branch 9171 @ ;s con: col: col: user: 8 @ ?branch ;s ;s col: col: 2 ?branch ;s nip 0<> ;s 0= 506 2drop col: col: col: user: @ 42 ;s 2! ;s ;s col: var: 1610 ;s 0= 0= ?branch rot drop 25 ;s ;s ;s dup 0= col: 52 con: <> col: col: r> r> 223 r> col: >r dup ?branch over 148 = ?branch toupper lit - dup 105 over 1+ r> move c! ;s 506 dup ! ;s col: col: user: 16 ;s +! ;s ! ;s r> 6 >r ?branch rdrop ;s var: ! 204 cells sp@ cell+ dup cell+ rot 124 dup 0> 0= ?branch nip ;s 23 r> ;s (loop) count col: user: 1013 @ ;s +! ;s move ;s 647 col: col: defer: defer: col: var: 915 col: con: over +! @ ! 2 (loop) unloop drop branch lit pick 147 @ um* drop rot user: @ 287 ;s ;s dup var: ! col: 125 >r user: col: con: swap ! 3659 +! ;s c! ;s (loop) con: 1005 ?branch rdrop ;s cell+ tuck c@ 647 (type) ;s cr ;s con: (+loop) 6 ;s ! ;s ;s ;s does: 3775 ?branch cell+ swap cell+ swap r> 30 0= ?branch ;s ;s dup ?branch 3447 ?branch nip nip unloop ;s ;s 12 con: @ col: 2dup u<> ?branch 5730 or swap c! ;s ;s ! 90 ;s cr ;s col: col: r> 1 col: var: @ dup @ ?branch 9 ;s col: var: @ dup lit 807 ;s ;s ;s branch col: sp@ 125 (?do) count col: user: @ lit 1 ;s r> col: col: var: col: 5 > col: col: r> r> dup 56 dup @ swap con: - dup 87 dup col: con: con: 1+ within 4 ?branch ;s var: swap ;s col: 6 /string branch ;s user: col: con: 24 ;s ! con: does: @ col: 47 ?branch nip nip execute con: ;s 1 ! var: ! col: lit lit 9194 aligned >r swap >r ;s count 4 col: col: lit var: +! col: 28 - dup @ swap var: ! 80421 ;s swap @ and 0= 0= 194 ?branch 2dup swap col: lit col: 1730 cells >r var: lit cells lit 12 ?branch drop ;s dup col: lit 7 ;s +! ;s does-handler! ;s branch 14 ;s ?branch over col: 2dup col: 28 ;s +! ;s ! ;s + 941 branch var: col: con: swap ! 6699 lit + @ >r 2dup col: 9 col: col: col: col: con: @ 61 @ + ;s @ swap does: 188 swap +! ;s ;s ;s does: 2 ! ;s ;s ;s col: r> 1 ;s does: col: var: dup @ 19 pick rdrop dup col: con: con: 1 ;s dup var: ! col: col: 15 ;s col: col: col: r> dup 8 ;s col: does: @ col: var: 25 ;s 0= var: @ and ?branch 2 1+ /string ;s ;s over c@ 30 @ >r user: @ >r user: 1808 user: @ ?branch col: user: @ 23 ?branch ;s ;s branch col: sp@ 61 @ = rdrop ;s ?branch r@ 1 branch (+loop) i col: cells var: 712 and ?branch ;s ;s ?branch execute 5 ! col: ?dup ?branch ;s ;s 52 nip nip execute col: var: col: 28 >= col: col: r> r> dup 4 lit lit col: >r dup ?branch 212 ?dup ?branch col: col: r> r> 8 lit col: var: col: col: col: 72 unloop ;s ;s col: col: col: 1 2! col: var: 2@ 2* cells 997 @ ?dup ;s ?branch col: cell+ 7 ;s rdrop ;s col: col: r> 11 @ 1+ var: 2@ drop = 647 unloop drop ;s ;s defer: (type) 1425 ;s var: 2! ;s lit col: 1 ! ;s col: var: @ ;s 20 ;s swap var: @ lit (do) 21 var: r@ cmove var: r> ;s 5758 + @ (hashfind) ;s ;s dup 173 @ col: col: user: @ ;s 10 ;s drop con: ;s ;s branch 14 does: @ + ;s @ 1+ 61 @ + ;s @ r@ does: 965 >r r@ does: @ + ;s 287 2dup var: 2! var: 2! ;s 8 col: col: col: con: col: col: 2 execute drop ;s branch col: sp@ 5 or col: dup ?branch r> r> 1730 and col: con: (hashkey1) ;s xor 789 dup ?branch 2dup swap col: lit 1 var: ! defer: drop ;s ;s 68 ;s rdrop dup col: con: con: 204 dup 1+ pick >r cells sp@ 66 ;s dup ?branch drop 2dup col: 1 and ?branch nip nip execute 0< 7 @ ?branch defer: noop col: r> 93 execute col: col: r> dup cell+ 82 ;s +! ;s col: over >r 6226 /string (parse-white) 2dup + r> - 7 @ ;s /does-handler col: col: user: 7 nip nip execute col: 0= ?branch 4 and ?branch nip nip execute 0= 1730 var: lit cells lit col: lit 19 ;s col: >r >r user: @ 66 0> ?branch col: user: @ ?branch 971 col: col: col: user: @ ?dup 23 ;s ;s ;s branch ;s ;s 2125 ;s col: col: user: @ ;s 5 nip nip r> rdrop lit branch 125 branch ;s branch col: sp@ user: 105 ;s ;s ;s drop ;s col: 1 c@ lit = ?branch lit /string 1013 ;s swap dup col: col: user: 421 ;s + ;s @ 0= ?branch 1 r> - ?branch dup user: ! 206 ! ;s ;s ;s branch col: 997 @ @ over ! var: @ 5730 swap does: + c@ ;s ;s 3968 defer: col: 2dup col: var: @ 1 user: ! execute col: user: @ 27 faligned nip ;s - dup ?branch 5 ;s lit col: >r sp@ r> 61 @ + ;s ! branch ;s 647 (type) (+loop) unloop drop ;s ;s 16 ;s ! ;s r> col: col: 1806 user: @ ;s con: user: @ 53 ?branch nip nip execute var: ;s 473 1- dup ?branch drop col: col: 1769 var: @ ;s ;s lit @ 1 nip nip execute 0< ;s branch 1022 +! ;s ! ;s code-address! ;s 2019 user: ! lit col: col: col: 93 nip execute col: col: r> dup 6 = ?branch drop con: branch ;s 268 0<> and ?branch 0= swap 0<> 1806 con: user: @ ?dup ?branch read-line 429 (type) ;s cr rdrop ;s ;s 4 ;s ;s ;s dup does: @ 1730 var: @ + var: @ ?branch 1730 count lit and col: con: (hashkey1) 3 con: swap ! ;s user: col: 647 2@ defer: (type) col: lit does: 647 execute var: nip unloop ;s dup 24 ;s col: var: @ ;s does: 1 execute 2* ;s branch col: sp@ 2 ?branch ;s over lit (?do) dup 4 <> ?branch rdrop ;s lit swap 294 ;s col: r> dup cell+ >r 13 ;s >r user: @ >r rp@ 287 count defer: (type) ;s cr var: 287 col: var: @ execute col: col: 574 ;s ?branch col: var: ! ;s 6 ;s ;s col: defer: noop col: 43 con: = ?branch var: @ ?branch 6 dup lit u< ?branch cells var: 506 user: @ lit max col: >r 3 ;s ;s ;s ?branch col: does: 68 ;s + @ execute col: col: 233 c! does: @ col: var: col: 666 ;s +! ;s ! ;s cell+ 10 ! rdrop rdrop rdrop lit ;s 647 swap lit max lit (?do) i' 1 >r ?branch rdrop ;s var: @ 8 ;s (loop) lit col: col: col: 2 nip nip execute drop ;s branch 80 ?branch 1+ user: +! ;s col: 443 + ;s @ does: @ col: 1 swap drop branch ;s dup does: 12 ! ;s con: @ col: 2dup 5769 user: @ > ?branch ;s defer: 80 user: +! ;s col: col: user: 3 @ ?branch ! ;s ;s branch 147 con: ;s ?branch col: swap >r 7 (type) ;s cr 0<> swap 0= 287 ;s col: var: @ var: (?do) 1 lit = ?branch lit /string branch 3731 <> ?branch col: dup field: @ 5 con: > col: col: r> r> 204 r@ col: dup 1+ pick >r 16 ?branch ;s ;s ;s branch col: 647 i' i - lit min 2dup 40 swap (?do) unloop ;s var: var: 80421 col: col: var: @ dup var: 1 - col: col: user: @ ;s 1 var: col: dup ! ;s col: 39 over 0= 0= ?branch swap drop 197 i - con: - unloop ;s 6 ! lit /string branch ;s user: 286 branch ;s col: col: var: @ 1 dup user: @ u>= ?branch drop 3 execute col: var: ! ;s ;s 15 r@ + swap cmove var: over 350 ;s col: dup lit u> lit 291 cell+ ! dup @ dup ?branch 951 ;s dup ?branch 0> ?branch nip 1 ?branch 2drop dup >r lit col: 789 dup @ dup ?branch drop ! 7 defer: noop col: r> dup cell+ 506 max col: >r lit r@ um/mod 114 rot rot - ?dup ?branch ?dup 287 (type) ;s lit defer: (emit) var: 13 @ execute col: col: does: @ 1013 ;s +! ;s move ;s col: 473 drop col: col: r> r> dup 51 ;s + @ execute drop ;s 1 nip execute col: var: col: dup 3 ;s ;s col: con: lit ;s 3 cell+ i cells + @ (loop) 119 ?branch drop ;s user: col: con: 2587 c@ r@ <> ?branch lit /string 933 (s+loop) dup i con: col: col: 287 col: var: 2@ var: 2@ 0<> 1 over c@ lit <> ?branch i 740 ;s + @ ;s col: col: 1 execute con: con: branch ;s ;s 1 0< ;s branch col: sp@ user: 5 nip ?branch var: 2@ lit (?do) 1352 lit and col: ?dup ?branch ;s 1806 user: +! swap user: ! lit 287 cr cr ;s ;s ;s branch 1 ?dup ?branch ;s ;s ;s lit 5 drop col: ?dup ?branch ;s col: 2 lit (?do) dup lit pick col: 27 dup ?branch drop r> col: col: 6226 defer: col: defer: col: col: user: 647 lit ! ;s dup col: col: 27 @ r@ execute col: xor invert 19 drop col: var: @ dup var: 3611 ;s col: col: col: user: @ 13 col: col: var: @ ?branch col: 5 ;s col: col: lit user: ! 147 ;s ! does: @ does: @ 160 (loop) dup @ col: col: col: 223 over - dup r> ?branch 1+ 1 var: @ 1- dup 0= col: 2 over lit (?do) dup lit pick 49 ;s ;s col: dup col: dup 5730 col: con: dup @ + ;s 125 unloop lit branch ;s dup ?branch 61 ?branch does: @ + ;s @ 1 ;s ;s ;s lit branch (+loop) 23 ;s @ ?branch does: @ col: 18 nip execute col: col: con: lit 25 user: ! r> user: ! r> 1730 swap col: lit fill ;s r> 350 ?branch ;s ;s col: dup lit 61 = rdrop ;s ?branch r@ col: 3 nip execute col: var: ! ;s 1 var: ! var: @ con: cells 106 ?branch drop branch lit (+loop) unloop 5 over r> tuck - dup ?branch 3 2dup and var: @ and ?branch 1 2drop drop con: ;s ?branch col: 647 ;s dup r> does: @ + 39 dup 0= ?branch over 0= 0= 3 i cells + ! (next) var: 1 dup user: ! lit + dup 86 ;s dup faligned swap (?do) unloop 5 1+ 2* cells resize col: ?dup 637 var: 2@ col: drop swap - 1634 @ + ;s 2@ defer: (type) 15 +! ;s ;s ;s var: @ 507 ;s + @ ;s + @ 1 ?branch nip nip execute swap ;s 58 nip ;s ?branch 2rdrop branch ;s 1 > ?branch con: lit ! lit 21 nip nip execute col: dup col: 700 col: ?dup ?branch ;s ;s col: 394 lit and + faligned over lit 5769 ;s defer: col: defer: col: col: 647 does: @ + ;s ! does: 287 lit @ execute col: col: col: 129 (loop) unloop ;s lit col: col: 6 user: ! drop ;s ;s ;s 3553 con: ?branch lit col: drop var: 287 var: ! ;s var: var: @ 3968 ;s dup ?branch defer: col: 2dup 13 drop col: var: col: lit swap 52 con: @ col: 2dup u< ?branch 27 ! ;s branch ;s ;s ;s 807 col: col: col: r> r> dup 1 @ ;s >r over >r lit 4 drop branch ;s does: @ col: 2 nip execute * ;s branch col: 1 ;s ;s con: ! ;s branch 153 @ ;s lit cells col: col: 1 con: con: branch ;s ;s branch 3659 c! ;s (loop) con: col: col: 120 user: +! ;s 2drop ;s ;s 647 ?branch ;s ?branch dup does: @ 7 ;s ;s ;s col: col: con: 1 nip execute col: lit user: ! 10 ?branch rdrop drop r> cell+ cell+ 7 ! lit col: >r sp@ r> 5730 c! ;s ;s ! ;s ;s 1416 col: dup does: @ + ;s 128 ;s ;s ;s 2drop ;s does: 4 (loop) unloop drop ;s swap 1+ 218 dup r@ = ?branch drop con: 19 swap lit col: 1+ con: * 68 drop r> ;s rdrop dup col: 1806 swap user: ! lit user: ! 2429 ?branch ;s ;s ;s dup ?branch 5 ;s user: ! lit user: ! 3 ;s ;s ;s drop ;s does: 20 (do) dup @ col: col: col: 292 ! ;s ;s dup field: dup 218 con: branch rdrop ;s ?branch r@ 1 execute col: >r con: open-file col: 1 nip execute col: >r con: open-file 3 var: @ ;s lit col: col: 1 var: swap ;s 2dup col: var: 473 swap - 1- dup ?branch drop 10 ;s ;s char+ c@ ;s col: 30 ;s dup 0= ?branch ;s ;s 3553 over + (do) 2dup i 2@ 5730 ;s ;s over c@ or swap 148 lit = ?branch toupper lit - 59 ?branch drop 2dup 2>r col: col: 505 ;s @ var: 2@ col: drop 304 con: does: @ col: var: col: 287 swap - rot rot - ?dup 21 con: min >r var: r@ cmove 3 col: con: swap ! ;s user: 25 - ;s 1- var: 2! ;s 350 unloop ;s ;s lit col: user: 2 ;s over c@ lit <> ?branch 222 (+loop) unloop ;s ;s col: var: 1 col: dup ! ;s col: var: 1 var: @ 0= ?branch con: cells 1005 tuck c@ xor swap c! ;s 1769 @ ;s ;s lit @ execute 16 ;s ! ;s col: col: col: 156 dup @ dup ?branch nip branch 25 over - ;s 1- var: 2! 3 ;s ;s ?branch drop does: @ 394 and + faligned over lit + 1730 >r drop r@ @ rot ! 1801 ! ;s ?branch col: col: sp@ 66 count defer: (type) ;s 1+ var: 14 rdrop ;s ?branch r@ col: does: 506 ;s 2dup d0= ?branch ;s rot 258 ;s +! ;s ! ;s con: 105 2swap swap (?do) unloop ;s var: 2 nip nip execute col: 2dup col: 125 0= ?branch user: @ dup 0> 5 2! ;s var: 2@ nip 1- 997 @ over ! var: @ ! 19 0= rot 0<> and ?branch col: 469 (?do) i col: >r swap dup 22 ;s 2! ;s ;s swap col: 1616 rot cell+ swap cell+ swap r> 6 unloop ;s ;s branch col: sp@ 506 drop ;s defer: (type) ;s ;s 100 ;s ;s branch branch lit col: 2 2dup * allocate col: ?dup ?branch 291 >r var: col: con: swap ! 394 dup i - count lit and 3 +! ;s 2! ;s col: r> 292 var: field: @ col: col: col: 12 dup >r ?branch lit /string col: 23 col: col: defer: col: col: user: 13223 lit var: +! ;s lit col: 8 var: @ 0< ?branch lit @ 3 ! (next) var: cell+ i cells 19 drop >r drop col: var: @ 350 ;s col: defer: col: defer: col: 5 c@ ?branch con: does: @ col: 421 ;s ;s + ;s @ 0= 789 swap col: lit + dup @ 87 1+ within 0= col: col: r> 5 r> tuck - dup ?branch 2dup 4 ! ;s col: col: 2dup lit 3967 ;s branch col: sp@ user: @ 152 ;s cr ?dup ?branch ;s col: 25 drop 2drop ;s ;s 0= var: 1 ?branch drop ;s ;s branch col: 5224 cell+ swap r> (loop) >r over 12 ;s con: @ col: 2dup u<> 125 lit 2swap dup >r col: lit 4 ?branch lit /string branch over >r 112 ;s col: col: col: con: @ 3533 <> ?branch drop 2drop lit (+loop) 12 2drop rdrop r> ?branch dnegate r> 286 +! ;s branch ;s col: col: 142 ?branch drop branch ;s dup does: 24 ;s ;s swap ! ;s ;s 285 i over col: swap col: con: 1005 @ dup 0= col: col: r> 7 (type) ;s cr branch rdrop ;s 34 cr ;s col: var: @ var: 287 ;s ;s ?branch col: var: ;s 3 col: var: @ ;s lit col: 1 nip nip execute col: dup lit 3 ! ;s user: col: con: swap 279 rdrop ;s execute var: @ dup 8618 swap >r ;s count defer: (type) 4 var: var: ! ;s ;s ;s 2 ?branch nip nip execute drop ;s 7 /does-handler col: col: user: @ ;s 80415 c@ ;s col: col: con: /mod 106 drop branch lit (+loop) unloop 2drop 6 does: col: var: dup @ cells 15 var: swap cmove 2dup var: r@ 8 0< ?branch lit @ var: ! 2 (loop) var: cell+ i cells + 33 ;s ! ;s ;s col: var: 59 2rdrop branch ;s branch col: sp@ 8 ;s var: @ lit ! var: 290 var: @ 0= ?branch var: @ 1 var: @ dup @ ?branch dup 28 rdrop ;s tuck ! cell+ tuck 461 ?branch nip nip execute col: defer: 10413 and 0= 0= ;s ;s 0= 36915 0= ;s ;s col: 0= ?branch 233 + ;s c! does: @ col: 129 ;s +! ;s 2! ;s ;s 5 lit user: ! ;s ?branch ;s 574 @ col: lit lit 2swap swap 16 ;s 2! ;s r> r> r> 1247 @ ;s ;s + @ ;s 164 ;s ;s dup does: @ col: 39 ;s swap con: col: = 0= 197 (do) dup i - count lit 475 ! user: col: con: swap ! 1 unloop 2drop drop con: ;s ?branch 66 ;s count defer: (type) ;s 1+ 506 d0= ?branch ;s rot col: 0< 1 col: var: col: dup ! ;s 4 >r ;s ;s col: lit var: 197 col: lit con: (do) dup i 78 ;s ;s con: = ?branch col: 31 con: swap ! ;s branch ;s 13 lit col: >r sp@ r> swap 350 col: dup 0= lit and col: 20295 var: +! ;s branch lit col: 2 * ;s branch col: sp@ user: 53 execute var: ;s branch col: sp@ 36915 var: @ var: @ <> ?branch 18 ;s + ;s ! col: var: 1 execute col: col: con: <> col: 2 + (loop) unloop drop branch lit 1 2dup col: var: 2@ lit (?do) 105 col: over >r rot over 1+ 1876 swap >r ;s >r ?branch rdrop 1 c@ lit <> ?branch col: col: 258 ! ;s con: col: col: col: 98 ;s ;s ;s col: lit col: 506 ;s col: 2drop col: col: col: 1769 ;s ;s lit @ execute col: 24 ;s +! ;s col: lit user: 39 0= 0= ?branch swap drop r> 18 ;s ;s + ;s ! col: 3 and ?branch nip nip execute 2drop 9 var: ! ;s col: var: @ 5 unloop ;s swap col: col: col: 3 col: lit col: 0= ?branch var: 15 drop branch ;s ;s branch col: 127 var: +! ;s col: col: var: 16 ;s @ ;s >r col: col: 341 + @ execute col: does: @ 3 nip nip execute 2drop ;s branch 1 ;s ?branch execute con: con: branch 3 nip nip execute lshift ;s branch 87 col: 1+ con: * 1- >r 21302 col: col: col: user: @ ;s 997 ;s user: ! lit col: col: 96 ?dup ?branch ?dup ?branch ;s col: 86 0= ?branch does: @ does: @ 1 ;s over col: col: var: col: 3 nip execute col: dup col: col: 1416 dup r@ does: @ + ;s 105 execute col: var: col: col: col: 3 nip execute 2drop ;s branch col: 51 ?branch col: lit col: col: col: 178 branch lit (+loop) 2dup i 2@ 66 +! ;s ! ;s ;s col: 13 >r sp@ r> swap >r fp@ 35 ;s r> ;s ;s does: @ 24 defer: noop ;s ;s ;s branch 1 ;s +! ;s ! ;s cells 148 lit - dup lit u> ?branch 7 ;s /does-handler col: col: user: @ 16 +! ;s move ;s col: defer: 1 @ (loop) unloop var: @ ;s 12 branch drop ;s ;s con: ! 87 con: 1+ within 0= col: col: 997 ;s ?branch dup @ 0< ?branch 5 branch unloop 0<> lit and col: 1 ?branch lit /string branch dup >r 941 branch ;s col: user: @ ?dup 24 ! ;s ;s lit col: 1+ 647 ! ;s dup col: col: defer: 1 dup ?branch 2drop col: col: user: 1 ;s ;s ;s >r col: defer: 20 swap var: @ lit (do) dup 279 ;s >r ?branch rdrop ;s execute 160 + ;s @ col: lit col: 459 r@ execute or col: col: col: 3 ?branch lit - dup lit u<= 6 +! user: @ user: ! user: 157 col: col: r> dup cell+ >r 1005 cell+ tuck c@ xor swap c! 287 col: col: var: ;s lit col: 28872 0= 0= ;s ;s ?branch lit 3 does: 2@ ;s con: branch ;s 1 cells allocate col: ?dup ?branch ;s 958 r@ lit and 0= ?branch @ 60 rot col: 0< ?branch lit col: 10 2dup con: swap read-file ?branch rot 8 var: @ lit ! var: var: 5 user: ! r> user: ! >r 5 ?branch ;s >body user: @ ?branch 1 ;s count ;s compare 0= r> 1 (do) lit col: col: col: user: 424 r@ lit and ?branch 1- r> 3 ?branch or >r col: 2dup col: 1 var: @ ;s over col: col: 125 lit - dup lit u< ?branch 49 execute col: defer: col: defer: col: 997 ?dup ?branch 2drop 2drop ;s var: 289 2drop r> var: ! ;s ;s 103 ! ;s col: var: @ col: 506 um/mod r> swap >r um/mod r> 78 ?branch con: branch ;s lit col: 148 toupper lit - dup lit u> 105 >r rot over 1+ r> move 282 col: var: col: con: swap ! 1641 dup ?branch 0> ?branch col: col: 1 field: ;s branch col: sp@ user: 7 cr branch rdrop ;s ;s con: 14 ;s ?branch r@ col: does: @ 8 (loop) lit col: col: col: user: 28 tuck ! cell+ var: ! ;s 11 nip execute cells ;s branch col: 506 um/mod r> ;s rot lit over 647 ;s ! does: @ + ;s 3 ;s ;s col: col: var: col: 28485 0= ;s ;s ?branch lit col: 24 swap ! ;s ;s ;s swap 10 col: lit col: col: defer: defer: 289 ! defer: col: cell+ dup @ 941 @ ! branch ;s col: user: 3 field: dup var: ! defer: drop 227 @ ?branch col: r> dup cell+ 7 @ ;s +! ;s does-handler! ;s 305 (loop) unloop ;s ;s lit col: 3 1+ var: 2@ nip = ;s 998 unloop ;s col: col: user: @ 7 ?branch rdrop ;s ;s col: col: 1148 ;s count defer: (type) ;s var: 5 ;s 2! ;s ;s con: col: 9 ! cell+ var: ! ;s col: 647 (+loop) unloop drop ;s ;s defer: 32 r> ;s ;s ;s does: @ 18 ! col: var: col: @ @ 9 con: ;s ;s ;s branch col: 5 cells resize col: ?dup ?branch ;s 60 lit col: col: col: col: user: 9 ;s char+ c@ ;s ;s branch 197 lit col: lit con: (do) dup 1 i - unloop ;s dup ?branch 1 (next) unloop ;s ;s branch col: 13 >r user: @ >r rp@ user: 58 execute col: col: defer: col: defer: 24 nip nip execute col: col: con: 30 col: lit user: ! col: col: 25 ;s col: user: @ ?branch col: 789 swap ! ;s ;s branch @ 3553 ?branch lit col: drop var: dup 5 rdrop lit branch unloop 0<> lit 506 ;s r> over - does: swap 1 rot drop ;s nip ;s ;s 1 1- (for) var: cell+ i cells 23 ;s (loop) count col: user: @ 5 tuck 1+ 2* cells resize col: 204 1+ pick >r cells sp@ cell+ 5730 con: dup @ + ;s swap 1 dup 0> 0= ?branch ;s ?branch 4 @ ;s ;s col: dup count 637 col: drop swap - 1- dup 676 ;s ;s 0= ?branch col: col: 4 nip nip execute col: swap col: 135 col: dup @ dup ?branch nip 3980 0= ?branch lit r@ lit and 647 unloop ;s lit col: user: @ 31 var: @ ?branch col: col: col: 80415 @ = ?branch c@ ;s col: 20 var: @ lit (do) dup @ 231 swap col: col: col: user: @ 4 ;s 0> ?branch col: r> dup 291 ?branch ;s lit cells - var: 34 ;s ! ;s ;s ;s col: 223 user: @ over min /string over 226 ;s col: lit lit ! user: 1 @ <> ?branch ;s ;s ;s 36915 col: 0= ?branch var: @ var: 18 execute col: col: con: lit ;s 80726 ;s col: lit swap lshift ;s 28 ?branch con: - dup @ swap 6249 col: defer: col: col: user: @ 1 var: 2@ nip var: 2! ;s 19 col: drop >r drop col: var: 52 u< ?branch = ;s 0= ?branch 148 user: @ lit = ?branch toupper 1 swap ! ;s lit user: ! 1 nip execute 0< ;s branch col: 1 con: swap ! ;s col: col: 4 ;s col: dup count col: var: 23 @ branch ;s col: col: var: 789 @ + var: @ ?branch col: 4080 var: col: @ @ ;s ;s 28 col: var: @ dup var: <= 23 count + c! col: col: user: 506 @ tuck - ;s r> over 15 var: @ and ?branch con: ;s 201 nip nip execute col: ;s ;s 1722 ;s cr col: col: r> r> 180 +! ;s ! ;s cell+ (loop) 1730 ;s xor cells >r var: lit 1 0= ?branch con: cells allocate col: 472 ?branch nip nip execute col: col: 3 ;s con: branch ;s ;s branch 5 ?dup ?branch ;s ;s r> user: 12 ?branch branch drop ;s ;s con: 43 ?branch con: ;s lit col: col: 1 ;s ;s dup ?branch rot drop 1 user: ! over c@ lit = 1 u>= ?branch drop con: ;s ?branch 3435 user: @ ;s @ ;s dup 41 swap (?do) unloop ;s lit col: 1148 ;s var: 2@ defer: (type) col: 287 @ execute col: col: var: ;s 574 swap >r ;s count ;s var: 58 var: @ col: col: col: col: 59 0= 0= ?branch r@ execute col: 4 or swap ! ;s (loop) unloop 58 ;s ;s ;s ;s ;s ;s 15 + dup >r con: open-file 0= 51 drop ;s branch col: var: col: 105 (?do) unloop ;s col: var: 2@ 16 +! ;s ! ;s col: col: 16 >r >r dup >r col: col: 86 ;s ! does: @ col: var: 6699 (hashkey1) ;s r> xor cells var: 28 ?branch rdrop ;s tuck ! cell+ 1 cells col: swap >r dup allocate 3659 (loop) con: col: col: col: user: 61 = ?branch does: @ + ;s 287 (type) ;s cr col: var: 2@ 12 ;s branch ;s ;s ;s ;s 59 rot col: col: col: user: @ 4 branch over >r lit col: >r 279 ;s execute col: >r r@ col: 6699 2dup col: con: (hashkey1) ;s r> 37 over col: lit over 0<> ?branch 196 nip nip execute col: defer: noop 5 con: open-file 0= ?branch nip nip 1 nip execute col: var: @ lit 1730 r> ;s tuck cell+ ! r> 4938 + faligned ;s r@ lit and 10 open-file 0= ?branch rdrop drop r> 6249 + r> - 1+ r> min 370 col: does: @ col: var: col: 2 ;s branch @ dup ?branch 2drop 11 cells ;s branch col: sp@ user: 5 >r lit col: >r dup ?branch 66 ! col: lit over 0<> ?branch 35 ! ;s col: con: @ col: 10 cell+ cell+ (loop) dup >r 2@ 7 0<> rot 0= and ?branch col: 287 unloop ;s var: var: @ col: 3 2drop r> ;s ;s ;s branch 263 ;s c! ;s col: col: col: 1730 cell+ count lit and col: con: 87 lit col: 1+ con: * 1- 21 ?branch swap drop branch ;s r> 19 defer: (type) ;s cr 0= swap 96 - ?dup ?branch ?dup ?branch ;s 1 unloop var: @ ;s ;s branch 109 ?branch col: col: col: user: @ 997 c! ;s col: col: user: @ 231 over c@ r@ <> ?branch rdrop 1 <> ?branch i 1+ var: @ 915 con: over +! @ ! ;s 285 @ or swap ! ;s (loop) 305 col: lit swap lshift ;s over 1730 r> var: @ + var: @ 45 ?branch rdrop ;s ;s ;s col: 473 ?branch drop col: col: r> r> 60 @ c! ;s ;s col: 2drop 599 col: lit col: >r con: rot 20 cell+ (loop) unloop drop ;s swap 6699 con: (hashkey1) ;s r> xor cells 1730 pick @ ?dup 0= ?branch >r 13 swap >r fp@ >r col: laddr# 1578 @ ;s @ ;s lit + 287 var: 2! ;s col: col: r> 891 lit swap +! ;s ;s ;s 245 col: 2dup col: lit col: >r 5 + ;s @ var: @ 1+ 2 and ?branch nip nip execute >body 4 col: >r ;s ;s col: lit 292 ;s ;s ! ;s ;s dup 9 c@ ;s ;s branch col: sp@ 25 ;s ! ;s ;s col: con: 7 ;s does-handler! ;s branch con: defer: 1582 lit @ execute col: lit col: 446 col: 0< ?branch ;s col: 2drop 173 defer: (type) ;s cr ?dup ?branch 506 +! @ c! ;s ;s 2dup 287 2@ var: 2@ rot swap - 36915 and 0= 0= ;s ;s col: 30 @ ?dup ;s ?branch ;s col: 227 col: @ (f83find) ;s dup 0= 82 @ ;s +! ;s col: over 1247 @ @ ;s ;s + @ 21 var: r> ;s ;s branch col: 5 ! ;s ?branch ;s r> user: 997 u> lit and col: ?dup ?branch 459 or col: col: col: user: @ 223 swap r> col: >r dup ?branch 121 ?branch rdrop ;s ;s con: = 1 rp@ user: ! execute col: user: 5730 c@ or swap c! ;s ;s 7 cr 0<> swap 0= and ?branch 287 var: 2@ 0<> rot 0= and 8 @ ;s ;s + ;s col: 161 ;s ;s col: col: col: var: 128 ;s c@ 0= ?branch con: does: 2 nip nip execute >body ;s branch 125 lit lit 2swap dup >r col: 100 var: +! ;s ;s branch branch 1 ?branch ;s ;s ;s lit branch 1 over c@ lit = ?branch lit 9 cell+ var: ! ;s col: var: 204 >r cells sp@ cell+ dup cell+ 286 lit var: +! ;s branch ;s 287 ?branch lit @ execute col: col: 234 ?branch nip nip execute col: lit 23 user: @ over min /string rot 1 ;s >r over >r lit col: 66 ;s @ dup var: 2@ col: 1148 count defer: (type) ;s var: 2@ 59 ;s branch over 0= 0= ?branch 20 lit (do) dup @ col: col: 23 nip nip execute col: col: var: 124 d+ r> ;s (loop) unloop lit 52 @ ;s @ ;s ;s con: 958 and 0= ?branch @ lit r@ 566 lit over +! @ c! ;s 56 execute col: col: user: @ ?dup 16 ! ;s r> col: col: col: 24 ;s + ;s ! con: does: 201 nip execute col: ;s ;s branch 125 dup ?branch 2drop rdrop r> ?branch 574 var: ;s lit col: col: var: 1616 0= 0= ?branch rot drop con: 3553 (do) 2dup i 2@ over <> 647 defer: col: var: count col: col: 2 col: ?dup ?branch ;s over lit 1 and ?branch nip nip execute field: 56 @ swap con: - dup @ 79 execute col: col: defer: defer: col: 147 col: swap >r swap user: @ 197 con: (+loop) dup i - count 227 execute col: col: @ (f83find) ;s 156 dup ?branch nip branch dup @ 291 0< ?branch var: @ >r var: 12 lit = dup >r ?branch lit 38 swap ! ;s ;s ;s branch 5 col: user: @ >r col: swap 10 ;s ;s col: var: @ ?branch 197 + = ?branch i - con: 5 over >r lit col: >r dup 941 + @ (hashfind) ;s ;s var: 506 con: - dup ! ;s col: 58 ;s col: col: col: col: user: 39 nip nip execute col: col: dup 21 r> ;s ;s branch col: sp@ 197 over lit + = ?branch i 7 ;s branch con: defer: noop ;s 198 ;s cr ;s con: (+loop) i 72 swap (?do) unloop ;s branch ;s 440 @ ?branch defer: col: col: user: 5 ;s (loop) unloop ;s swap col: 653 lit (do) >r over @ over 121 dup col: dup con: <> swap 90 cr ;s col: col: r> r> 33093 and 0= 0= ;s ;s ?branch 443 ;s + ;s @ does: @ 306 ;s ;s + ;s c@ 0= 129 +! ;s c! ;s con: col: 14 + ;s @ 1+ var: 2@ 20 nip nip execute col: con: col: 2 branch lit pick @ ?dup 0= 68 >r r@ col: dup 1+ pick 1 ;s count ;s compare 0= >r 4 var: ! col: col: user: @ 25 0= ?branch ;s col: var: col: 1 dup ! ;s ;s branch col: 125 col: con: swap ! ;s over 219 execute and 0= 0= ?branch cell+ 15 ;s var: @ and ?branch con: 586 ! ;s ;s does: @ col: 4938 cell+ dup c@ >r col: count 20 ;s cell+ (loop) unloop drop ;s 15 ?branch ;s col: user: @ ?branch 58 0> 0= ?branch nip ;s ?branch 24 @ ;s +! ;s col: lit 4 execute col: swap col: con: /mod 4 ;s r> col: >r ;s ;s 5 dup ?branch 2dup 1- + c@ 951 0> ?branch nip nip execute col: 506 col: >r tuck dabs col: col: 506 defer: (type) ;s lit col: >r 5 execute col: dup does: @ col: 58 ;s (loop) unloop ;s ;s col: 58 ?branch nip ;s ?branch 2rdrop branch 350 ! ;s col: dup 0= lit 2 nip execute col: 2dup col: lit 197 0= ?branch drop lit col: lit 51 swap 0<> and ?branch col: col: 173 count defer: (type) ;s cr ?dup 506 dup @ tuck - ;s r> 1 ;s (loop) unloop ;s col: lit 24 ;s dup ?branch ;s ;s does: 129 ;s col: var: @ ;s col: 692 code-address! ;s ;s col: col: col: 1260 ;s +! ;s c! ;s col: 3 ?branch execute does: 2@ ;s con: 1 ?branch 1- i' i - unloop 253 0<> swap 0= and ?branch ;s 25 ;s 0= ?branch ;s col: var: 24 ;s ;s ;s col: dup col: 1 execute col: col: sp@ user: @ 443 ;s ;s + ;s @ does: 4 ;s col: lit var: +! col: 4 cell+ i cells + ! (next) 5 ?dup ?branch ;s col: ?dup ?branch 280 and ?branch 0<> swap 0= and 80726 cells rot + swap ;s col: 284 ;s ;s dup ?branch drop branch 59 2dup 2>r col: col: user: @ 4 2! ;s branch dup ?branch lit 1 ;s r> tuck - lit cells 6298 lit col: col: user: @ ;s 1730 r@ @ rot ! r@ swap 1 cells + ;s ! ;s does: 19 rdrop ;s ;s ;s swap con: 5 ! execute col: col: user: @ 121 swap con: <> and col: col: 1416 @ + ;s ! r@ does: 291 ?branch 2drop r> var: ! ;s 1730 (hashkey1) ;s xor cells >r var: 106 branch lit (+loop) unloop 2drop con: 121 @ ;s @ ;s over - 5769 > ?branch fp@ user: @ > 506 lit over < ?branch lit + 506 tuck - ;s r> over - 150 @ ;s col: col: col: user: 226 ;s col: lit col: user: @ 647 lit ! ;s ;s col: col: 1 ;s var: ! var: @ con: 997 @ ;s user: ! lit col: 1 col: var: ! col: col: user: 5 ;s ;s col: col: lit user: 14 ;s ;s ;s ?branch over col: 5 col: dup ?branch r> r> user: 1 ! col: var: 2@ col: col: 506 ;s r> col: >r tuck dabs 147 ;s branch col: var: col: lit 3967 branch col: sp@ user: @ > 1 var: 2@ lit (?do) unloop 2drop 5 swap ! ;s ;s ;s does: 6 + @ user: ! lit /string 3 ;s >body user: @ ?branch ! 54 ;s >r var: @ lit (do) 1 nip nip execute col: lit user: 8 col: var: @ 0< ?branch lit 997 ;s ;s var: @ and ?dup 997 >r 2dup 2dup r> col: dup 125 c@ lit - dup lit u< 958 ?branch @ lit r@ lit and 57 ;s ;s ;s ;s does: @ 27 r@ execute col: xor invert ;s 4 nip execute col: col: lit var: 6 @ user: ! lit /string branch 294 ;s count defer: (type) ;s branch 287 ;s var: 2! var: var: @ 19 ! ;s rdrop ;s col: r> 87 col: con: con: 1+ within 0= 469 con: (+loop) unloop ;s col: var: 206 col: @ @ ;s ;s col: 281 negate user: +! lit over = 1 ;s @ ;s >r over >r 287 2! var: 2! ;s lit col: 27 >r user: @ lit pick col: 5 2dup 1- + c@ lit <> 287 cr var: 2@ defer: (type) col: 14 over col: 2dup col: lit col: 789 ;s ;s branch @ dup ?branch 127 lit var: +! ;s col: col: 121 @ ;s @ ;s ;s var: 1578 lit + aligned ;s con: - 105 @ col: swap (?do) unloop ;s 18 rdrop ;s ;s ;s col: lit 4 ?branch nip nip execute 0= ;s 5 execute does: col: var: dup @ 279 var: @ dup r@ = ?branch 2 ;s user: @ ?branch col: col: 4 ?branch nip nip execute col: swap 5 ;s r> user: ! col: ?dup 1 var: 2! var: up! sp@ dup 287 (type) ;s cr cr ;s ;s 1 negate ;s ;s ;s 0= ?branch 56 con: - dup @ swap con: 11070 dup count + aligned >r swap 1 1+ /string ;s var: 2! var: 279 ?branch ;s ;s 0= col: col: 160 2drop ;s ;s 0= does: @ 1 >body @ col: col: col: col: 1801 ;s dup ?branch 2drop ;s branch 647 does: @ + ;s 2@ col: 13 ?branch drop col: var: col: lit 414 unloop drop 2drop ;s ;s ?branch 305 ;s (loop) unloop ;s ;s lit 1 2* cells col: swap >r dup 1 nip nip execute col: con: 0= 294 ;s branch ;s col: col: r> 147 0= or ?branch con: does: @ 160 ;s + ;s @ col: lit 129 ;s (loop) unloop ;s col: var: 25 ;s ! ;s ;s ;s lit 56 field: @ execute col: col: user: 18 ;s col: var: @ ?branch var: 143 nip execute col: lit col: >r 27 over @ r@ execute col: xor 2 + @ (loop) var: cell+ i 5730 lit /mod rot + swap does: 147 drop rot user: @ um* d+ 287 ;s col: var: var: @ col: 287 count defer: (type) ;s lit defer: 22 ?branch 2drop ;s does: @ col: 5 @ execute col: dup does: @ 2 ;s ;s ;s col: col: user: 47 nip nip execute con: ;s branch 52 @ ;s - col: col: col: 22 ;s ;s swap col: col: col: 1 ?branch dup var: ! ?dup ?branch 6 @ >r >r ;s user: ! 997 2dup r> col: dup field: @ 286 ;s @ does: @ + ;s 28 ;s code-address! ;s ;s over col: 1 lit = ?branch dup var: ! 988 swap (?do) unloop ;s col: col: 113 r> ?branch r> user: ! ;s 120 2drop ;s ;s branch col: sp@ 5 + @ execute col: dup does: 51 @ ;s + @ execute drop 2 branch @ dup ?branch 2drop r> 10 (loop) unloop ;s col: col: user: 30 ?branch ;s col: user: @ ?dup 197 con: (do) dup i - count 1 nip execute col: dup lit = 5 ! r> user: ! >r ;s 5 ;s user: @ close-file swap 2dup 2882 lit var: +! ;s branch branch 18 ?branch col: var: col: lit swap 24 col: var: @ ;s does: @ 8 lit lit col: >r >r user: 1 over c@ lit <> ?branch col: 1 user: ! col: var: 2@ col: 1730 rot ! r@ swap col: lit 19 ?branch rdrop ;s ;s ;s swap 1806 ?branch read-line col: ?dup ?branch ;s 647 + ;s ! does: @ + 574 0= ?branch ;s col: col: var: 1 ;s var: ! ;s ;s branch 291 ! ;s col: var: @ 0= 24 ! ;s ;s col: var: col: 469 var: @ col: swap (?do) i 2 >body ;s branch col: sp@ user: 676 0= ?branch col: col: var: @ 106 (+loop) unloop 2drop con: ;s ;s 4 var: swap ;s col: user: @ 1 ;s branch dup ?branch 2drop col: 23 r> move c! ;s con: col: 4 count col: var: @ col: col: 6 r> user: @ >r user: @ 130 @ var: 2@ col: nip swap 2158 col: var: @ over - ;s 20295 +! ;s branch lit col: col: 13 ;s ;s col: col: r> dup 740 ;s ;s + @ ;s col: 4 var: var: ! ;s ;s branch 281 ;s col: var: col: con: swap 125 ! ;s lit lit 2swap dup 5 2@ lit (?do) dup >r 2@ 161 nip nip execute col: col: defer: 233 ;s c! does: @ col: var: 28 lit >= col: col: r> r> 1 /string ;s var: 2! var: up! 635 does: @ + ;s @ var: 279 >r ?branch rdrop ;s execute var: 1 @ = ?branch i 1+ col: 268 0= rot 0<> and ?branch 0= 1 dup r> - ?branch dup user: 19 var: ! ;s rdrop ;s col: 1806 user: @ ?dup ?branch read-line col: 1 ?branch drop ;s dup var: ! 599 r> var: @ lit (do) >r 14 ;s ! ;s lit col: col: 10 con: ;s ;s branch col: sp@ 3 ?branch col: does: @ col: var: 164 @ @ ;s ;s col: col: 1 dup ! ;s col: var: @ 105 @ var: (?do) unloop ;s col: 59 +! ;s 2! ;s ;s rot 19 @ ;s @ ;s ;s char+ 1 execute + ;s branch col: sp@ 5 ;s ! ;s lit col: user: 49 ?branch faligned nip ;s col: user: 124 ;s ;s col: col: col: con: 291 - var: over cell+ ! dup 28 ! cell+ tuck ! cell+ tuck 16 col: lit lit lit lit ;s 279 execute var: @ dup r@ = 287 r> var: ! ;s ;s dup 1 nip nip execute + ;s branch 2 ;s ;s ;s ;s branch ;s 22 col: var: dup @ cells + 12 - swap ! ;s con: @ 7 noop col: r> dup cell+ >r 33 ! ;s ;s ;s ;s does: 233 ;s ;s + ;s c! does: 197 (f83find) ;s dup 0= ?branch drop 8 0= ?branch var: col: con: swap 1 ;s ;s ;s dup ?branch rot 1 col: ?dup ?branch ;s var: ! 9 nip execute col: lit col: user: 23 @ ;s @ ;s count + 997 ;s ?branch col: cell+ count lit 287 col: var: 2@ var: 2@ rot 15 swap +! ;s ;s ;s var: 21 ?branch con: min >r var: r@ 8 col: con: swap ! ;s var: 5 lit ;s user: @ close-file swap 708 ! ;s code-address! ;s ;s col: 4514 lit and ?branch r> lit and 23 c! ;s con: col: col: user: 1 nip execute col: con: 0= ?branch 1416 swap dup r@ does: @ + 160 cell+ (loop) dup @ col: col: 19 ! cell+ var: ! ;s rdrop 28 ;s code-address! ;s ;s lit col: 113 ?branch 2drop rdrop r> ?branch r> 239 + rdrop ;s con: (+loop) i 506 @ lit max col: >r lit 287 cr col: col: col: col: user: 653 swap r> (loop) unloop drop 2drop 1 0> 0= ?branch ;s ?branch 2rdrop 997 col: dup lit u> lit and 5 >r col: swap >r dup allocate 446 rot col: 0< ?branch ;s col: 1 nip execute col: var: @ ;s 47 var: col: col: col: user: @ 506 col: 2drop col: col: col: user: 647 dup r> does: @ + ;s 287 ;s cr col: var: 2@ var: 1 1+ var: @ = ?branch i 3 r> ;s ;s ;s branch col: 9 ;s +! ;s ! ;s (loop) 8 swap ! ;s var: @ lit 129 (loop) unloop ;s col: var: @ 9 branch col: var: @ dup var: 5 @ var: ! ;s ;s branch 12 >r ?branch lit /string col: over 424 lit r@ lit and ?branch 1- 997 ?branch var: @ @ over ! 12 var: @ ?branch over col: lit 6646 col: col: dup field: @ field: 147 user: @ um* d+ r> ;s 3 col: cells var: @ + @ 506 (type) ;s lit col: >r col: 147 ;s + ;s @ col: 2dup 1 1+ dup var: ! col: col: 25 ?branch rdrop ;s 0> ?branch col: 11 ?branch nip nip execute cells ;s 1254 @ field: @ execute col: col: 60 0< ?branch lit col: col: col: 287 col: var: ! ;s var: var: 3644 unloop ;s ;s ;s dup ?branch 7 rdrop ;s ;s col: col: col: 130 2@ col: nip swap - 1- 576 >r swap >r ;s count ;s 1 lit (?do) unloop lit branch ;s 1 nip nip execute 2* ;s branch 1 + ;s ! ;s does: col: 28 cell+ tuck ! cell+ var: ! 4938 >r col: count lit and + 15 execute col: >r col: col: r> 132 + @ ;s col: col: col: 10 col: con: col: col: defer: defer: 8 + ;s ! ;s ;s branch 1251 ;s ;s ;s dup ?branch lit 28 var: @ dup var: <= ?branch 31 swap ! ;s col: dup con: 5 ?branch ;s swap 2dup 1+ var: 80415 var: @ = ?branch c@ ;s 8 ! ;s ;s col: r> dup 15 ;s ;s col: var: col: col: 1 ! ;s branch ;s ;s branch 997 ;s ;s ! ;s ;s col: 20 ;s @ ;s swap var: @ 2 ?branch dup defer: col: cell+ dup 8 c! ;s ;s ;s branch col: 28 con: - dup @ swap var: 4 r@ <> ?branch rdrop ;s lit 7 user: ! user: col: con: swap 7 ;s cr branch rdrop ;s ;s 506 col: user: @ lit max col: 3644 ;s ;s ;s dup ?branch col: 5 tuck - dup ?branch 2dup 1- 647 lit swap (?do) dup i con: 58 ;s drop ;s col: col: user: 30 ?dup ;s ?branch ;s col: user: 197 over lit + = ?branch con: 2 ;s drop col: r> /does-handler + 19 1- >r r@ pick r@ pick 1005 rdrop ;s cell+ tuck c@ xor 5730 swap col: con: - ;s con: 5 execute col: col: con: col: col: 3 ;s ;s ! ;s ;s branch 2 con: ! ;s ;s branch col: 19 u>= ?branch col: var: @ dup 19 r@ pick rdrop dup col: con: 11070 + aligned >r swap >r ;s 5 branch dup ?branch rdrop ;s nip 18 ;s ! col: var: col: @ 80 +! ;s col: col: user: @ 23 min /string rot dup con: = 3 nip execute @ ;s branch col: 19 ;s ;s ;s swap con: - 31 over - swap ! ;s col: 2 ;s nip 0<> ;s 0= col: 647 dup col: col: defer: defer: col: 288 ;s ;s ;s does: @ col: 18 branch ;s ;s col: lit >code-address 286 @ does: @ + ;s 2@ 708 ?branch branch lit col: col: var: 708 0= ;s ;s ?branch branch lit 1 var: @ = ?branch i 1+ 15 ;s code-address! ;s ;s col: var: 28 col: var: @ dup lit >= 281 swap - col: dup negate user: 997 lit u> lit and col: ?dup 287 cr col: var: 2@ var: 2@ 3 ;s ;s ;s rot 2dup and 16 unloop drop ;s swap over col: 3 and ?branch nip nip execute 1+ 106 con: ;s ;s ;s dup ?branch 997 dup col: col: col: user: @ 1021 ;s ;s ;s ;s col: lit 6 @ = ?branch drop con: branch 66 dup var: 2@ col: drop swap 19 r@ pick r@ pick rdrop dup 3 >body user: @ ?branch ! ;s 11374 dup field: @ field: @ execute 708 + ;s 2! con: + ;s 3 and ?branch nip nip execute 1- 23 ;s count + c! col: col: 19 rot 0<> and ?branch col: col: 1482 ;s lit @ execute col: lit 654 col: dup @ dup ?branch drop 1 lit (?do) i col: cells var: 125 r> user: ! ;s user: @ 908 0= 0= ;s ;s ?branch ;s 268 ?branch 0= swap 0<> and ?branch 10 user: ! rdrop rdrop rdrop lit 6 execute col: col: r> user: @ 5 ?branch var: 2@ lit (?do) dup 16 ;s col: defer: defer: col: col: 11070 r> r> dup count + aligned 895 @ field: @ execute col: @ 47 ;s ;s drop ;s col: 2dup 291 defer: col: cell+ dup @ 0< 23 ;s @ ;s count + c! 1 ;s nip 0<> ;s col: 0= 1 ;s defer: noop ;s r> col: 2048 pick ! ! ;s lit pick 1 @ lit (?do) i col: cells 997 @ ;s @ ;s dup faligned 5 2@ drop = ;s ?branch col: 506 @ c! ;s ;s 2dup d0= 647 var: c! var: count move lit 51 col: lit col: col: col: user: 121 col: dup con: <> swap con: 8 @ var: ! ;s ;s ;s 19 >r drop col: var: @ dup 457 col: defer: col: defer: col: col: 6 @ >r user: @ user: @ 1022 col: lit >code-address ;s col: col: 23 @ over min /string rot dup 25 @ over - ;s 1- var: 647 ;s ?branch dup does: @ + 287 (type) ;s cr col: var: @ 36913 <> ?branch lit var: +! ;s 8 ;s lit col: var: col: col: 39 drop r> drop ;s swap con: 21 ! ;s ;s ;s branch ;s 5 ;s @ var: @ 1+ dup 19 ?branch rdrop ;s ;s ;s r> 125 dup >r col: lit (?do) count 75 ;s ! ;s swap col: col: 1 ! lit (do) lit col: col: 78 swap ! ;s drop branch ;s 204 sp@ cell+ dup cell+ rot move 49 nip nip execute col: defer: col: 1 ;s cells col: col: user: @ 6699 var: @ + @ (hashfind) ;s 121 ;s over - swap ! ;s 5 (?do) dup >r 2@ dup >r 1 ;s lit branch (+loop) i col: 16 >r dup >r col: col: user: 35 nip ;s user: ! ;s col: 469 col: swap (?do) i col: dup 118 swap +! ;s ;s ;s drop 21 negate ;s ;s ;s dup 0= 32 swap ! ;s ;s branch col: 7 ;s ?branch branch rdrop ;s ;s 708 ;s 2! con: + ;s lit 147 or ?branch con: does: @ col: 3 ?branch nip nip execute 2drop ;s 11 ;s ! ;s ;s branch col: 15 + swap cmove var: over r> 676 0= ;s ;s 0= ?branch col: 147 + ;s @ col: 2dup col: 787 branch @ dup ?branch 2dup swap 958 0= ?branch @ lit r@ lit 1 tuck - lit cells / ;s 5 open-file 0= ?branch nip nip r> 6 col: swap >r dup allocate col: 429 count defer: (type) ;s cr rdrop 1 2* ;s branch col: sp@ user: 1 ;s @ ;s r> tuck - 346 ;s ;s ;s ;s col: col: 287 ;s ;s branch lit col: col: 54 drop 2drop r> ;s ;s ;s 1616 ?branch rot drop con: rot rot 5 lit ;s r> user: ! col: 13 var: ! ;s ;s branch col: 28 swap var: ! ;s over r@ 16 nip execute col: lit lit ! 1 branch dup ?branch 2drop col: col: 6 user: @ user: @ = ?branch 287 (type) ;s cr col: col: col: 1 var: @ ?branch r> col: var: 3 ;s drop ;s ;s col: var: 2 2drop r> ;s ;s ;s ;s 689 dup cell+ >r @ col: col: 268 rot 0<> and ?branch 0= swap 1 r> col: col: var: col: con: 19 con: * 1- >r r@ pick 5 user: ! execute col: col: user: 997 ;s @ ;s dup faligned swap 61 does: @ + ;s @ r@ 389 var: @ ;s ;s lit col: 1 or ?branch 2drop dup >r lit 16 execute col: >r >r >r >r 3 execute col: var: @ ?branch col: 281 con: swap ! ;s lit var: 469 col: var: @ var: (?do) i 1 dup ?branch rot drop ;s nip 1730 col: lit fill ;s r> ;s 3874 col: @ @ ;s ;s + 39 execute col: col: dup col: dup 1 ?branch rot drop ;s nip ;s 1 (loop) unloop var: @ ;s ;s 1185 @ col: col: col: user: @ 15 code-address! ;s ;s ;s branch col: 505 @ var: 2@ col: drop swap 19 execute col: col: var: @ ?branch 339 ;s dup aligned swap (?do) con: 1050 ;s ;s lit col: col: col: 4 col: lit lit col: >r dup 506 ;s defer: (type) ;s ;s col: 3 ;s ?branch col: does: @ col: 45 swap (?do) unloop ;s ;s lit 5834 user: @ ;s +! ;s col: 1580 (hashfind) ;s ;s dup ?branch ;s 65 (?do) unloop ;s var: 2! ;s 5 ;s c! col: does: @ col: 1 con: ! ;s branch col: var: 473 - 1- dup ?branch drop col: 861 0= ;s ;s ?branch col: var: 574 >r ;s count ;s var: 2! 13 ;s col: col: r> dup cell+ 13 ;s ;s ;s col: col: r> 1 var: @ con: cells col: lit 1197 con: swap ! ;s ;s ;s 125 col: lit (?do) count col: user: 6226 (parse-white) 2dup + r> - 1+ 647 (?do) i' i - lit min 16 >r col: col: col: user: @ 8 user: @ ?branch ;s ;s col: 8 con: swap ! ;s var: @ 6 ! drop ;s ;s ;s branch 19 ;s rdrop ;s col: r> dup 13 col: >r sp@ r> swap >r 5730 dup col: col: con: dup @ 2989 dup @ lit pick ! ! 27 drop col: con: @ col: 2dup 281 ! ;s lit var: ! ;s 938 (?do) i col: dup does: @ 39 ?branch swap drop r> drop ;s 1 ?branch nip nip execute 0< ;s 5 swap ! ;s lit col: >r 5 lit (?do) dup >r 2@ dup 1 var: 2@ 2* cells col: swap 440 @ ;s user: ! drop ;s 987 ;s 2@ defer: (type) col: col: 287 var: 2! col: col: r> r> 39 0= ?branch over 0= 0= ?branch 5 col: ?dup ?branch ;s ;s r> 281 = ?branch branch drop ;s ;s 103 min user: ! ;s col: var: 6 user: +! user: @ user: ! 5 drop = ;s ?branch col: col: 33 user: @ ;s does-code! ;s ;s 28 >r ?branch rdrop ;s tuck ! 19 0= ?branch ;s ;s col: drop 5769 ?branch ;s defer: col: defer: col: 8 ! ;s ;s lit col: var: 12 rdrop r> ?branch dnegate r> user: 5 0= ?branch ;s >body user: @ 1 ;s ;s col: 2swap 2dup col: 4 swap drop branch ;s does: @ 1 ;s dup ?branch rot drop ;s 1 ! ;s does: col: var: dup 647 max lit (?do) i' i - 39 = 0= col: col: r> r> 459 @ over @ r@ execute or 1 execute mod ;s branch col: sp@ 5 ;s col: ?dup ?branch ;s ;s 58 col: col: defer: col: defer: col: 281 col: user: @ swap - col: 34 ! col: col: user: @ ;s 21 cmove var: r> ;s ;s branch 86 dup faligned swap (?do) unloop ;s 5 + lit swap c! 1+ col: 82 ;s @ ;s over char+ col: 28 ;s over col: col: col: user: 23 1+ user: +! ;s user: @ 1 branch @ dup @ ?branch dup 226 con: swap ! ;s ;s defer: 3968 col: 2dup col: var: @ col: 294 - 1- dup ?branch col: col: 708 ;s + rdrop ;s con: (+loop) 24 dup ?branch ;s ;s does: @ 305 lshift ;s over @ or swap 125 con: swap ! ;s over c@ 142 over 0<> ?branch faligned nip ;s 5 ?branch nip nip r> rdrop lit 1707 ;s dup ?branch 0> ?branch col: 5062 var: @ col: col: dup field: 294 1- dup ?branch col: col: r> 8 nip execute col: col: var: dup 820 ;s var: col: con: swap ! 350 ;s ;s lit col: user: @ 287 count ;s var: 2! col: col: 7 execute ! ;s branch col: sp@ 1022 @ ;s dup user: ! lit 5 col: ?dup ?branch ;s var: swap 389 @ ;s ;s lit col: col: 287 ?branch col: var: ;s lit col: 1 ;s ;s dup col: col: var: 197 lit + = ?branch i - 28 @ dup lit >= col: col: 5 move ;s col: var: 2@ tuck 203 user: @ ;s @ ;s over 6912 col: user: @ ;s user: @ 52 - col: col: col: user: @ 121 col: col: col: con: @ col: 1002 (type) ;s r@ does: @ + 287 2! var: var: @ col: lit 143 branch ;s dup does: @ col: 2 execute >body ;s branch col: sp@ 10 con: open-file 0= ?branch rdrop drop 105 swap (?do) unloop ;s var: 2! 30 lit col: lit lit ! user: 1 cells + @ (loop) unloop var: 12 u<> ?branch drop ;s dup col: 10 read-file ?branch rot over + -rot 1 swap 1+ /string ;s ;s col: 3775 0= ?branch cell+ swap cell+ swap 1005 ;s cell+ tuck c@ xor swap 434 ! drop ;s ;s branch col: 20 ! branch ;s con: (+loop) unloop 8 ?branch var: col: con: swap ! 997 dup lit u> lit and col: 647 ;s dup >r does: @ + 1580 dup i con: col: col: dup 647 ! ;s ;s dup >r does: 1 i 1+ var: @ = ?branch 4 or swap ! ;s ;s branch 19 r@ pick r@ pick r@ pick 66 drop 2dup col: col: user: @ 23 rot dup con: = ?branch drop 14 ;s ;s ?branch over col: 2dup 25 lit var: +! col: var: @ 1 nip execute col: var: col: con: 113 lit = dup >r ?branch col: 34 swap 0= and ?branch col: col: 3 nip nip execute col: var: ! 6 ?branch nip nip execute aligned ;s 27 ! ;s ;s ;s col: col: 8 unloop ;s ;s ;s ;s branch 26 ;s ?branch swap drop branch ;s 1 nip nip execute col: dup ! 1 branch dup >r col: lit (?do) 2587 ?branch lit /string branch dup ?branch 647 col: col: dup lit u> lit 280 0= and ?branch 0<> swap 0= 6 ;s ;s ;s col: col: dup 9 char+ c@ ;s ;s branch col: 1 var: ! lit (do) lit col: 1 ;s +! ;s ;s ;s branch 5 @ var: @ 1+ dup con: 1641 ;s ;s ;s 2drop ;s branch 6226 @ /string (parse-white) 2dup + r> 506 unloop drop ;s defer: (type) ;s 1730 @ over cell+ count lit and 7264 2dup i 2@ over <> ?branch 12 drop ;s dup col: lit over 31 ?branch var: @ ?branch col: col: 66 ;s ;s 2drop branch ;s branch 124 ;s (loop) unloop lit branch ;s 35 >r col: 2dup col: lit col: 3 @ 0< ?branch ;s ;s r> 281 @ swap - col: dup negate 5 user: ! lit user: ! user: 66 ?branch nip ;s dup ?branch 0> 10 cell+ (loop) dup >r 2@ dup 647 dup ?branch ;s ?branch dup does: 48 r> col: col: col: user: @ 152 ;s + ;s c! col: var: 25 >r ?branch rdrop ;s 0> ?branch 9171 user: @ ;s @ ;s con: 24 +! ;s col: lit user: ! 1801 ! ;s dup ?branch 2drop ;s 226 swap ! ;s ;s defer: noop 34 execute col: col: col: r> dup 647 lit lit ! ;s dup col: 236 and ?branch ;s col: col: r> 160 ;s ;s 0= does: @ col: 5 ! ;s (loop) unloop ;s ;s 1 @ ?branch drop ;s ;s branch 25 ! ;s ;s col: con: @ 12 ;s dup col: lit over 0<> 1 col: user: @ >r var: @ 231 ?branch col: r> dup cell+ >r 1 2@ nip = ;s ?branch branch 647 count move lit lit ! ;s 390 @ ;s ;s + ;s c! 8 ;s ;s lit lit col: >r 25 >r ?branch rdrop ;s ;s over 2587 over c@ r@ <> ?branch lit 7 rot 0= and ?branch col: col: 41 branch ;s con: (+loop) i col: 2009 defer: (type) ;s cr col: col: 1 ;s @ ;s swap col: 2dup 1 i 1+ col: cells var: @ 25 ! r> user: ! r> user: 19 cell+ var: ! ;s rdrop ;s 735 ;s (loop) unloop ;s lit col: 173 - ?dup ?branch col: col: r> 647 (?do) dup i con: col: col: 18 0= ?branch col: var: col: lit 1730 ?branch @ over cell+ count lit 997 ;s move ;s col: col: col: 647 col: lit lit ! ;s ;s 6699 @ >r 2dup col: con: (hashkey1) 1730 over cell+ count lit and col: 5 nip execute over ;s branch col: 23 @ ;s col: over >r rot 3420 user: @ ;s +! ;s ! 3659 ;s (loop) con: col: col: col: 5 and ?branch nip nip execute over 4 branch dup ?branch lit /string branch 225 @ over @ r@ execute and 31 @ ?branch col: col: col: user: 1415 negate ;s ;s ;s dup ?branch 647 - lit min 2dup defer: (type) 13 r> ;s ;s ;s r> ;s 129 ;s lit user: @ col: col: 1 ?branch nip nip execute 2* ;s 290 ?branch var: @ over ! lit 33 col: col: con: <> col: col: 19 r> rot col: con: <> col: 2 nip 0<> ;s 0= col: 0= 15 col: >r col: col: r> r> 5 ;s 0= ?branch ;s >body user: 13 col: col: con: col: col: defer: 1 swap ;s 2dup col: var: 2@ 1163 ;s +! ;s ! ;s ;s 3968 dup ?branch defer: col: 2dup col: 16 lit lit lit ;s ;s branch 7 ;s ;s col: col: con: <> 13 ;s ;s r> ;s ;s does: 35 drop does: @ col: var: col: 160 @ col: lit col: >r con: 424 lit and ?branch 1- r> lit 61 @ does: @ + ;s @ 2 @ ?branch col: col: r> dup 291 @ dup ?branch 2drop r> var: 1730 0= ?branch >r drop r@ @ 2254 col: con: swap ! ;s ;s 2 allocate col: ?dup ?branch ;s over 1730 + dup @ 0< ?branch @ 3 swap ! ;s user: col: con: 4938 and + faligned ;s r@ lit 6 ?branch cells var: + @ user: 287 rot swap - rot rot - 16 dup >r col: col: user: @ 1 @ u>= ?branch drop con: ;s 1 (?do) unloop 2drop drop con: ;s 7 rdrop ;s col: col: r> r> 128 +! ;s ;s ;s 2drop ;s 11 @ cells + ;s @ var: 21 ;s col: con: lit ;s ;s 44 ;s ?branch does: @ col: var: 915 col: lit swap +! ;s ;s 292 dup field: dup var: ! defer: 121 >r ?branch rdrop ;s ;s con: 506 lit r@ um/mod r> swap >r 1 nip nip execute col: >r con: 39 swap drop r> drop ;s swap 27 ?branch drop r> col: col: col: 839 col: @ (f83find) ;s ;s dup 3 branch ;s ;s does: @ col: 1 @ ;s over col: col: var: 5 ?branch ;s col: ?dup ?branch ;s 3553 lit col: drop var: dup @ 18 nip execute col: dup col: dup 708 - ;s lit pick does: @ 10 rot over + -rot con: <> 47 con: ;s branch col: sp@ user: 5 nip nip execute does: col: var: 19 ;s ;s swap con: - swap 281 ;s lit var: ! ;s ;s 61 var: @ does: @ + ;s 23 ;s ;s + ;s @ ?branch 291 over ! lit var: +! var: 5730 swap c! ;s ;s ! ;s 506 col: >r lit r@ um/mod r> 506 0< ;s r> col: >r tuck 647 ?branch ;s ;s var: c! var: 80421 col: col: con: /mod cells rot 47 and ?branch nip nip execute con: 54 (loop) unloop drop 2drop r> ;s 3 nip execute 1- ;s branch col: 18 nip nip execute col: var: @ 6 dup allocate col: ?dup ?branch ;s 47 ;s drop ;s col: 2dup col: 1 2dup r> -rot move ;s drop 1 rp@ user: ! fp@ user: ! 1806 @ ?branch col: user: @ ;s 23 >r user: @ over min /string 2 @ ?branch dup defer: col: cell+ 30 user: ! col: col: user: @ 3 1+ ;s branch col: sp@ user: 16 @ ;s @ ;s >r col: 15 ;s ;s ;s var: @ and 125 over c@ lit = dup >r 223 >r defer: col: col: user: @ 2 execute col: 2dup col: lit col: 30 ?dup ;s ?branch ;s ;s col: 1 >r var: @ lit (?do) i 997 user: @ ?dup ;s ?branch col: 5 ;s swap 2dup 1+ var: 2! 279 ;s ;s 0= col: col: r> 49 0<> ?branch faligned nip ;s col: 350 user: ! ;s col: dup 0= 147 @ u>= ?branch con: ;s ?branch 6 col: r> user: @ >r user: 5 +! ;s 2! ;s ;s con: 18 col: col: col: defer: defer: col: 11 execute col: col: user: @ ?branch 5730 does: + c@ ;s ;s over 2124 ;s @ does: @ + @ 307 ;s ;s + ;s @ col: 2818 dup ?branch over c@ r@ <> 124 defer: (type) ;s cr ;s col: 2410 + ;s @ does: @ + 732 @ ;s ;s + ;s c@ 194 drop 2drop ;s ;s ?branch 2dup 5 r> user: ! col: ?dup ?branch 1 con: swap ! ;s rp@ user: 41 ! branch ;s con: (+loop) i 59 ;s rot col: col: col: user: 129 unloop ;s lit col: col: col: 1 +! ;s ;s ;s branch col: 2048 @ lit pick ! ! ;s 28 ! cell+ tuck ! cell+ var: 506 dup 0< ;s r> col: >r 469 con: (+loop) unloop ;s var: 2! 469 lit lit 2swap swap (?do) i 647 ;s ;s defer: (type) col: col: 1 branch dup ?branch rdrop ;s over 1022 ;s col: lit >code-address ;s col: 1 @ <> ?branch ;s ;s col: 506 (?do) unloop drop ;s defer: (type) 81 col: var: col: col: col: col: 291 ;s col: var: @ 0= ?branch 624 ?branch col: col: r> r> dup 2 user: @ ;s @ ;s var: 197 = ?branch i - con: - 5 ;s ?branch ;s r> user: ! 971 field: @ execute col: col: col: 4 nip nip execute col: con: swap 1009 ;s count defer: (type) ;s r@ 1730 0< ?branch @ over cell+ count 11 @ cells + ;s ! ;s 608 @ ;s col: col: var: col: 5 nip nip execute over ;s branch 6 ! user: @ >r >r ;s 5 >r >r ;s user: ! lit 57 swap +! ;s ;s ;s dup 30 ?branch ;s ;s dup ?branch col: 35 @ col: dup con: ! col: 1 ! execute col: user: @ >r 915 col: var: col: lit swap +! 3968 2dup col: var: @ col: col: 3069 (type) col: col: r> r> dup 1138 - ;s var: 2! ;s lit 599 con: rot rot r> var: @ 9 ;s ;s char+ c@ ;s ;s 3 dup var: ! defer: drop ;s 634 ;s col: col: var: col: con: 31 user: ! ;s var: col: con: 15 >r col: col: r> r> dup 272 ;s count defer: (type) ;s rdrop 1416 r@ does: @ + ;s ! 1 col: dup lit = ?branch dup 31 ;s col: dup con: ! col: 82 +! ;s col: over >r rot 1288 dup @ 0< ?branch var: @ 506 + col: col: col: col: user: 1578 @ ;s lit + aligned ;s 647 2@ 2dup col: lit swap (?do) 7 ;s col: col: con: <> col: 80726 col: con: /mod cells rot + 27 ;s r> drop col: con: @ 6 - dup lit u< ?branch cells 15 dup >r 2@ dup >r var: 82 @ ;s @ ;s over char+ 716 ;s con: (+loop) unloop ;s var: 5 var: 2@ lit (?do) dup >r 3 ;s ;s dup ?branch ;s nip 13223 +! ;s lit col: col: var: 3874 @ col: var: col: @ @ 1730 tuck cell+ ! r> var: @ 55 drop branch ;s ;s ;s branch 4938 ;s dup ?branch col: cell+ dup 265 rdrop ;s cr rdrop ;s ;s 25 ;s col: con: @ col: 2dup 68 * 1- >r r@ col: dup 52 @ ;s ;s con: var: col: 1 ;s compare 0= >r 2dup col: 143 drop 2drop ;s ;s ?branch drop 2 @ ;s ;s branch col: sp@ 19 rdrop ;s ;s ;s r> r> 1 col: var: 2@ 2* cells col: 7 does-handler! ;s branch con: defer: noop 1 lit cells / ;s var: 2! 130 var: 2@ col: nip swap - 265 ?branch r@ col: >r r@ does: 911 dup faligned swap (?do) con: col: 7 = ;s ?branch col: col: r> 100 ?branch lit @ execute col: lit 21 +! ;s user: @ ?branch con: 53 @ ;s @ ;s - col: 997 ?dup ;s ?branch col: cell+ count 5769 @ > ?branch ;s defer: col: 1 ! ;s lit user: ! lit 2 swap >r ;s count ;s compare 27 r> col: col: col: col: user: 79 nip execute col: col: defer: defer: 506 r> over - does: swap lit 47 ;s col: 2dup col: lit col: 3775 0= 0= ?branch cell+ swap cell+ 4 ;s col: col: 2dup lit col: 506 < ?branch lit + col: col: 1 ?branch ;s nip 0<> ;s col: 135 ;s col: col: var: @ ;s 129 user: @ col: col: col: user: 2048 dup lit pick col: dup @ 1 nip var: 2! ;s defer: noop 287 ! ;s ;s col: col: var: 997 var: @ and ?dup ?branch 2drop 36915 0= ?branch var: @ var: @ 5 defer: noop ;s col: does: @ 128 2drop ;s does: @ does: @ 39 swap con: col: = 0= col: 129 c! ;s con: col: col: col: 3533 i 2@ over <> ?branch drop 12 /string col: over c@ lit - 279 >r r@ col: >r r@ does: 574 col: lit lit 2swap swap (?do) 36913 var: @ <> ?branch lit var: 23 ?branch 1+ user: +! ;s user: 2882 var: +! ;s branch branch lit 8 ;s ! ;s ;s col: r> 33 col: col: user: @ ;s does-code! 121 @ ;s over - swap ! 287 ;s ;s ;s branch lit col: 1 ;s nip ;s ;s branch col: 147 ?branch con: ;s ?branch col: swap 469 + rdrop ;s con: (+loop) unloop 16 ;s r> r> col: col: col: 14 +! ;s ;s ;s ?branch over 56 - dup @ swap con: - 1662 0> ?branch col: col: col: col: 36915 ?branch var: @ var: @ <> 53 and ?branch nip nip execute var: 5 - dup ?branch 2dup 1- + 5 + 2! ;s var: 2@ nip 60 ;s rot col: 0< ?branch lit 486 ;s cell+ swap cell+ swap r> 28 ! ;s + ;s col: r> 23 ;s @ ;s col: over >r 1 drop con: ;s ?branch col: user: 31 ;s col: r> /does-handler + col: 1730 ;s r> ;s tuck cell+ ! 125 ?branch user: @ dup 0> 0= 265 defer: (type) ;s rdrop ;s cr 16918 ;s lit col: col: var: @ 10 ;s ;s drop ;s ;s ;s 1 nip execute col: dup ! ;s 5 rdrop rdrop rdrop lit ;s r> 78 = ?branch col: col: col: user: 5 ;s + ;s c@ ?branch con: 647 ;s ;s ?branch execute var: nip 1 >r ;s user: ! user: ! 157 ;s ;s + ;s c! col: 59 0= ?branch r@ execute col: var: 8 +! ;s ! ;s (loop) lit 1 con: / 1+ dup var: ! 1730 lit cells lit col: lit pick 19 nip execute col: lit lit col: 1 2! var: up! sp@ dup user: 281 over = ?branch branch drop ;s 66 does: @ + ;s @ dup 506 - dup ! ;s col: col: 34 0<> swap 0= and ?branch col: 3 2drop ;s col: does: @ col: 3 ;s ;s drop ;s does: @ 3 ;s ?branch drop does: @ col: 1610 and ;s 0= 0= ?branch rot 1 allocate col: ?dup ?branch ;s var: 1 @ lit > ?branch con: lit 9 ?branch ;s ;s col: col: var: 1 col: con: / 1+ dup var: 1 var: ! ;s ;s r> col: 28 ! ;s over r@ u>= ?branch 1 <> ?branch col: col: 2dup lit 951 dup ?branch 0> ?branch nip nip 506 col: col: user: @ lit max 194 2dup swap col: lit col: >r 1 nip execute field: ;s branch col: 11 and ?branch nip nip execute cells 1801 dup ?branch 2drop ;s branch col: 2 2@ nip = ;s ?branch col: 16 lit lit ;s ;s branch col: 1 over col: col: var: col: con: 1730 fill ;s r> ;s tuck cell+ 120 ?branch 1+ user: +! ;s 2drop 63 col: col: user: @ ?branch col: 219 and 0= 0= ?branch cell+ swap 26 2drop ;s ;s ?branch swap drop 8 ;s ! ;s (loop) lit col: 19 >r lit col: 1+ con: * 9 execute col: lit col: user: @ 2510 lit and ?branch ;s ;s ;s 18 ?branch ?dup ?branch col: col: r> 130 ;s ;s ;s dup ?branch ;s 82 1+ r> move c! ;s col: 223 >r over - dup r> ?branch 5730 ;s con: / col: col: lit 1578 ;s lit + aligned ;s con: 47 col: var: col: col: col: user: 469 var: @ var: (?do) i col: 2464 r@ does: @ + ;s @ 987 2@ var: @ col: col: dup 6 ;s col: defer: noop col: col: 2 ?branch col: col: r> dup cell+ 27 nip ;s - dup ?branch drop 647 lit does: swap lit max lit 1 ;s @ ;s var: ! col: 941 ;s ?branch var: @ col: lit 5 r> rdrop lit branch unloop 0<> 4 nip execute col: con: swap ! 6590 ;s @ ;s lit col: col: 53 var: ;s branch col: sp@ user: 350 ;s ! ;s ;s col: defer: 4 swap 1+ rot (do) i over 1416 does: @ + @ ;s + 8 execute col: col: col: con: col: 28 over col: col: col: user: @ 5 rdrop rdrop lit ;s r> user: 80421 lit swap lshift ;s swap @ 1 ;s compare 0= r> or ?branch 36 execute col: col: var: col: @ 305 swap lshift ;s over @ or 6 cells + ;s @ var: ! 227 col: user: @ ?branch col: r> 143 ;s ;s ?branch drop branch ;s 160 ! ;s ;s dup does: @ 197 con: - unloop ;s ;s ;s 971 @ ?dup ;s ?branch var: @ 106 lit (+loop) unloop 2drop con: ;s 27 @ lit pick col: lit over 647 c! ;s col: lit lit ! 75 @ ;s col: col: col: var: 1 @ ;s var: ! lit (do) 440 ?branch defer: col: col: user: @ 223 ?branch rdrop ;s >r over - 1148 (type) ;s var: 2@ defer: (type) 80421 swap @ and 0= 0= ;s 1 0<> ;s col: 0= ?branch var: 197 (+loop) dup i - count lit 72 (f83find) ;s ;s dup ?branch drop 100 ?branch lit var: +! ;s ;s 24 nip execute col: col: defer: noop 2046 lit pick + (loop) dup lit 66 faligned nip ;s user: ! ;s 2 0= col: 0= ?branch ;s ;s 93 nip nip execute col: col: r> 1482 ?branch ;s col: col: var: @ 59 ?branch 2rdrop branch ;s branch col: 6249 @ ;s user: @ ;s 2dup 4 dup ?branch lit /string branch over 232 col: lit col: user: @ swap 5 0<> lit and col: ?dup ?branch 80726 rot + swap ;s col: lit 5 + c@ lit <> ?branch 2dup 136 r> ;s r@ col: dup 1+ 468 col: lit lit ! user: col: 23 @ ;s @ ;s col: over 236 0<> and ?branch ;s col: col: 17 var: @ ?branch col: con: @ 3447 ;s ;s dup ?branch nip nip 11070 count + aligned >r swap >r 4514 and ?branch r> lit and ?branch 287 var: ! ;s ;s dup var: 6 execute aligned ;s branch col: sp@ 5 ;s 2! ;s branch dup ?branch 125 ;s over c@ lit = dup 66 + ;s @ dup var: 2@ 61 ?branch execute var: @ does: @ 42 +! @ ! ;s ;s col: 2 @ ?dup 0= ?branch 2dup * 223 over swap r> col: >r dup 1022 >code-address ;s col: col: col: user: 1 ;s col: 2swap 2dup col: col: 3 (next) var: cell+ i cells + 1022 @ ;s @ ;s dup user: 216 execute col: defer: defer: col: col: 14 col: does: @ + ;s @ 1578 ;s @ ;s lit + aligned 18 @ ! ;s ;s col: col: 3 con: ! ;s ;s ;s branch 941 @ (hashfind) ;s ;s var: @ 5 (loop) unloop ;s ;s ;s ;s 647 @ + ;s 2@ col: col: 22 and ?branch 2drop ;s does: @ 24 var: @ ;s does: @ col: 412 col: con: swap ! ;s lit 98 ;s ;s col: lit col: >r 19 ;s ;s drop con: ;s ;s 1022 ;s dup user: ! lit col: 6 drop con: branch ;s col: col: 7 (type) ;s rdrop ;s col: col: 197 dup 0= ?branch drop lit col: 941 @ col: lit + dup @ 125 user: @ >r user: col: con: 1641 ?branch 0> ?branch col: col: col: 59 ! ;s ;s ;s branch over 8 ;s 0= ?branch ;s ;s ;s 149 col: var: @ ;s col: col: 1641 ;s ! ;s ;s ;s 2drop 1 2! ;s branch dup ?branch 2drop 647 ?dup ?branch ;s ;s var: c! 708 lit pick does: @ + ;s 20 execute col: con: col: col: defer: 2158 col: col: var: @ over - 291 @ >r var: col: con: swap 3 ;s @ 1+ var: 2@ nip 70 0<> and ?branch col: col: r> 1 defer: noop ;s r> col: col: 41 branch over 0= 0= ?branch r@ 394 - count lit and + faligned 2 and ?branch nip nip execute drop 1 -rot con: <> ?branch drop ;s 1 1+ /string ;s ;s col: 2swap 16 ! ;s code-address! ;s ;s r> 16 ;s swap over col: swap col: 5 ?branch ;s r> user: ! rdrop 19 ;s ;s col: >r >r user: 45 faligned swap (?do) unloop ;s ;s 424 1- r> lit and ?branch negate 1 nip 0<> ;s col: 0= ?branch 3 and ?branch 2drop ;s col: does: 33 swap +! ;s ;s ;s >r 289 dup var: ! defer: col: cell+ 997 +! ;s move ;s col: col: 1013 ?branch r> lit and ?branch negate 121 <> and col: col: r> r> 239 ;s con: (+loop) i col: >r 305 ;s over @ or swap ! 20 @ lit (do) dup @ col: 4 execute col: 0= ?branch var: col: 12 2dup u<> ?branch drop ;s dup 979 ;s ;s col: col: r> r> 469 lit 2swap swap (?do) i col: 1 >r con: open-file col: col: r> 128 swap +! ;s ;s ;s 2drop 45 col: col: dup col: dup con: 289 ! dup @ dup ?branch 2drop 118 ! ;s ;s ;s ;s ;s 6226 user: @ /string (parse-white) 2dup + 1 >r col: lit (?do) unloop lit 2041 ;s ;s branch col: sp@ user: 6 /string branch dup ?branch rdrop ;s 7 con: defer: noop ;s ;s branch 647 min 2dup defer: (type) (+loop) unloop 793 ;s count defer: (type) ;s lit 194 ;s ?branch 2dup swap col: lit 125 ;s ;s dup ?branch drop 2dup 23 um* d+ r> ;s (loop) count 31 ! ;s code-address! ;s lit col: 286 var: +! ;s branch ;s col: 10 ?branch rot over + -rot con: 27 xor invert ;s col: col: col: 1 var: @ lit (?do) var: cell+ 1022 ;s ! ;s ;s lit col: 222 ;s con: (+loop) unloop ;s ;s 1 >r >r ;s user: ! user: 11 nip nip execute cells ;s branch 113 >r ?branch col: over c@ lit 6 user: ! lit col: >r sp@ 694 ;s cr rdrop ;s ;s con: 287 ! ;s lit col: col: var: 1730 ?branch >r drop r@ @ rot 3980 ?branch lit r@ lit and ?branch 793 con: swap ! ;s ;s branch 251 lit var: ! ;s ;s col: 287 ;s ?branch col: var: ;s lit 1 compare 0= >r 2dup col: col: 125 user: ! ;s user: @ 0= 22 branch ;s r> ;s ;s does: 6699 @ + @ (hashfind) ;s ;s 292 ;s dup field: dup var: ! 1 ! lit + dup user: ! 8618 >r ;s count defer: (type) ;s 6699 col: lit + @ >r 2dup 1 ! ;s branch col: var: @ 125 col: user: @ >r user: col: 5730 @ + ;s swap col: con: 566 - lit over +! @ c! 80415 ?branch c@ ;s col: col: con: 32 ;s dup ?branch drop does: @ 4 nip nip execute 0= ;s branch 10 ;s r> user: ! rdrop rdrop 5 cells + ;s @ var: @ 6 lit /string branch dup ?branch rdrop 3980 and 0= ?branch lit r@ lit 1806 read-line col: ?dup ?branch ;s branch 60 col: 0< ?branch lit col: col: 10 c@ ;s col: user: @ ?branch 105 over >r rot over 1+ r> 152 ;s c! col: var: col: @ 3553 @ 1- cells over + (do) 3 execute @ ;s branch col: sp@ 5 ?branch 2dup + lit swap c! 22 @ and ?branch 2drop ;s does: 3 2! ;s col: r> /does-handler + 4 ;s branch dup ?branch lit /string 2587 <> ?branch lit /string branch dup 345 c! ;s col: col: col: user: 53 nip nip execute var: ;s branch 281 or swap ! ;s (loop) i 941 ?branch dup @ lit pick ! 1 @ 0= ?branch con: cells allocate 3 - dup lit u> ?branch lit 12 = ?branch var: @ ?branch over 196 ! ;s code-address! ;s con: col: 287 2! ;s col: col: r> r> 574 var: var: @ col: lit lit 24 lit swap +! ;s ;s col: 1 ?dup ?branch 1- (for) var: cell+ 1027 ;s col: col: user: @ ?dup 44 ;s ;s ?branch does: @ col: 1 lit /string branch dup >r col: 1 ?branch ;s var: ! var: @ 11 dup @ cells + ;s ! 114 rot - ?dup ?branch ?dup ?branch 22 2drop ;s does: @ col: var: 22 2! ;s ;s swap col: col: 47 nip execute con: ;s branch col: 2 drop ;s drop col: r> /does-handler 15 swap cmove var: over r> + 10 0= ?branch rdrop drop r> cell+ 506 aligned ;s con: - dup ! 647 ! does: @ + ;s 2@ 1 user: ! execute col: col: sp@ 5877 over @ over @ r@ execute 45 (?do) unloop ;s ;s lit col: 253 0= and ?branch ;s col: var: 216 ;s ;s ;s ;s ;s col: 3 and var: @ and ?branch or 18 ;s +! ;s ! ;s does: 5 col: col: 2dup lit col: >r 506 dabs col: col: col: col: user: 287 cr ;s ;s ;s branch lit 156 @ dup ?branch nip branch dup 3968 ?branch defer: col: 2dup col: var: 294 (type) ;s branch ;s col: col: 173 rot - ?dup ?branch col: col: 6 ;s col: col: dup col: dup 66 +! ;s ! ;s ;s 2drop 130 ;s @ var: 2@ col: nip 3 @ and ?branch or >r col: 421 ;s c@ col: var: col: lit 1 execute col: con: / 1+ dup 1 branch @ dup @ ?branch drop 33 + col: col: user: @ ;s 78 @ ?branch con: branch ;s lit 5 ! lit user: ! user: col: 16 move ;s col: defer: defer: col: 4 ?branch ;s ;s ;s dup 0= 1806 @ ?dup ?branch read-line col: ?dup 5 lit <> ?branch 2dup + lit 1 ;s var: swap ;s 2dup col: 574 ;s col: var: 2@ var: 2@ 16 @ ;s >r col: col: col: 24 ?branch ;s ;s does: @ col: 421 ;s + ;s c@ col: var: 8 ! ;s (loop) lit col: col: 291 ;s lit cells - var: over 61 @ dup r@ = ?branch does: 3 execute col: dup col: col: con: 78 con: branch ;s lit col: col: 28 <= ?branch con: - dup @ 25 var: @ over - ;s 1- 647 count col: col: col: user: @ 574 unloop ;s col: var: 2@ var: 287 ;s lit @ execute col: col: 287 ;s var: 2! col: col: r> 305 over @ or swap ! ;s 8 branch ;s branch col: var: @ 16 >r >r >r dup >r col: 19 con: swap ! ;s ;s does: 24 ;s swap ! ;s ;s branch 81 var: col: col: col: col: user: 915 var: col: con: over +! @ 7 branch con: defer: noop ;s ;s 6 lit /string branch ;s user: col: 265 ;s ?branch r@ col: >r r@ 15 ;s ;s var: @ and ?branch 20 ! ;s cell+ (loop) unloop drop 789 ?branch col: dup @ dup ?branch 997 ?branch col: cell+ count lit and 5 ;s + @ execute col: dup 5 over ;s branch col: sp@ user: 23 @ ;s count + c! col: 56 col: @ (f83find) ;s ;s var: 65 col: swap (?do) unloop ;s ;s 16 +! ;s 2! ;s r> r> 1 +! ;s ;s ;s dup col: 2 ;s branch @ dup @ ?branch 2048 ! ! ;s lit pick + 25 0= var: @ and ?branch 2drop 24 ;s ;s ;s swap ! ;s 19 +! ;s ! ;s lit col: 125 col: over c@ lit - dup 1 ;s ;s >r col: defer: defer: 147 >r swap user: @ um* drop 15 var: r@ + swap cmove var: 111 and ?branch col: col: r> r> 5193 @ over @ r@ execute col: 129 @ ;s swap col: col: col: 5 swap 2dup 1+ var: 2! 2* 3968 user: ! ;s dup ?branch defer: 1 >r 2dup col: col: r> r> 147 + ;s ! does: @ does: 30 dup 0= ?branch ;s ;s dup 1 ?branch nip nip execute mod ;s 12 @ col: 2dup u<> ?branch drop 65 (?do) unloop ;s ;s col: var: 316 ;s ;s col: var: col: lit 1022 ;s does: @ col: var: col: 291 dup ?branch 2drop r> var: ! 78 ;s var: @ ?branch con: branch 517 nip nip execute col: user: @ 34 (type) ;s cr ;s col: var: 23 branch ;s col: col: var: col: 59 over 0= 0= ?branch r@ execute 6 aligned ;s branch col: sp@ user: 8 ! var: var: ! ;s ;s 789 drop ! ;s var: col: con: 12 ?branch dnegate r> user: ! ;s 80421 col: var: @ dup var: @ 186 ;s ;s ;s ;s ;s branch 53 user: @ ;s @ ;s - 1 - lit cells / ;s var: 231 c@ r@ <> ?branch rdrop ;s 997 var: @ col: >r 2dup 2dup 32 ;s ;s ;s >r col: 2dup 18 branch over 0= 0= ?branch swap 147 user: @ um* drop rot user: 1806 ! lit user: ! ;s ?branch 647 ?branch execute var: nip unloop ;s 574 var: @ col: lit lit 2swap 291 @ 0< ?branch var: @ >r 58 0= ?branch nip ;s ?branch 2rdrop 281 col: dup negate user: +! lit 23697 col: col: user: @ ;s @ 1806 user: ! lit user: ! ;s 197 ?branch drop lit col: lit con: 642 ;s ! ;s ;s var: @ 196 ;s con: col: lit lit ! 19 col: lit lit col: >r >r 19 con: swap ! ;s ;s drop 287 - rot rot - ?dup ?branch 32 r> r> col: col: col: user: 20 col: col: var: @ ;s col: 19 r@ u>= ?branch col: var: @ 350 dup 0= lit and col: ?dup 178 drop branch lit (+loop) 2dup i 1 2@ 2* cells col: swap >r 1583 col: lit col: col: var: @ 59 ;s ;s branch over 0= 0= 4080 col: var: col: @ @ ;s 33 col: r> /does-handler + col: col: 6 ! execute col: col: r> user: 21 ;s cr ?dup ?branch col: col: 2158 col: col: var: @ ;s ;s 5 + ;s ! ;s ;s ;s 49 ;s lit col: 1+ con: * 223 r@ <> ?branch rdrop ;s >r 56 @ execute col: col: user: @ 1437 and ?branch negate ;s ;s ;s 915 col: var: col: con: over +! 11 dup @ cells + ;s @ 1806 ?dup ?branch ;s branch lit user: 2 user: ! user: ! user: col: 421 c@ col: var: col: lit swap 281 - col: dup negate user: +! 997 and ;s var: @ col: >r 506 aligned ;s con: - dup @ 80726 con: /mod cells rot + swap 8 ! ;s var: @ lit ! 60 c! ;s ;s col: 2drop col: 173 rot rot - ?dup ?branch col: 17 ?branch nip nip execute col: >r 3533 ?branch drop 2drop lit (+loop) 2dup 16 code-address! ;s ;s r> r> col: 8 ;s ;s + ;s col: user: 3 +! ;s ;s ;s ?branch drop 21 r@ cmove var: r> ;s ;s 5727 ;s col: dup col: col: con: 36915 0= 0= ;s ;s col: 0= 148 ?branch toupper lit - dup lit 56 @ (f83find) ;s ;s var: @ 20582 ;s branch lit col: col: var: 5 col: col: lit user: ! col: 61 ;s @ = rdrop ;s ?branch 287 var: 2@ 0= rot 0<> and 80415 dup var: @ = ?branch c@ 2 (loop) unloop ;s ;s branch ;s 6 and ?branch nip nip execute aligned 27 ;s ! ;s ;s r> drop 997 ?dup ;s ?branch dup @ 0< 16728 col: col: user: @ ;s +! 11 var: 2@ drop = ;s ?branch 708 does: @ + ;s 2! con: 59 drop 2dup 2>r col: col: user: 6 2@ drop = ;s ?branch branch 506 tuck dabs col: col: col: col: 647 @ + ;s ! does: @ 236 swap 0<> and ?branch ;s col: 1 user: ! lit + dup user: 35 col: var: @ ?branch var: @ 18 - ?dup ?branch ?dup ?branch col: 987 @ + ;s 2@ var: @ 128 + ;s c@ 0= ?branch con: 8 cells + ;s ! ;s ;s 6 user: @ >r user: @ user: 708 ;s lit pick does: @ + 36915 ;s col: 0= ?branch var: @ 1 ?branch execute con: con: branch ;s 6 >r user: @ user: @ = 18 nip execute col: col: col: defer: 626 ;s ;s 0= ?branch ;s col: 12 lit /string col: over c@ lit 287 2@ 0<> rot 0= and ?branch 292 ;s ! ;s ;s dup field: 136 rot move drop r> ;s r@ 1138 swap ! ;s ;s ;s ;s 51 ;s ?branch col: lit col: col: 287 ?branch col: var: ! ;s ;s 440 user: @ ;s user: ! drop 1 ;s rp@ user: ! fp@ user: 19 rdrop ;s col: r> dup cell+ 25 2drop ;s ;s 0= var: @ 10 execute col: lit col: col: defer: 472 (f83find) ;s ;s dup ?branch nip 1 ;s defer: noop var: @ lit 56 +! ;s ;s ;s dup ?branch 4 con: branch ;s ;s branch col: 27 r> drop col: con: @ col: 2 i col: cells var: @ + 60 ?branch lit col: col: col: col: 708 ;s ;s ?branch branch lit col: 941 ! branch ;s col: user: @ 2048 lit pick ! ! ;s lit 27 pick col: lit over 0<> ?branch 31 ;s ! ;s code-address! ;s lit 226 ! ;s ;s defer: noop ;s 647 lit (?do) i' i - lit 394 + faligned over lit + = 19 - swap lit col: 1+ con: 66 ?branch faligned nip ;s user: ! 2046 + (loop) dup lit pick col: 1730 dup @ 0< ?branch @ over 96 ?branch ?dup ?branch ;s col: col: 1 @ ;s - col: col: user: 2048 pick col: dup @ lit pick 12 col: 2dup u<> ?branch drop ;s 1801 branch col: user: @ ?branch col: 1 count ;s compare 0= r> or 2046 (loop) dup lit pick col: dup 121 and col: col: r> r> dup 285 ! ;s ;s ;s ;s branch 14 0< ?branch ;s ;s ;s branch 2975 (hashfind) ;s ;s dup ?branch nip 15 ;s branch ;s ;s ;s branch 1 2@ nip var: 2! ;s defer: 5769 @ > ?branch fp@ user: @ 5 ;s over r> tuck - dup 341 @ execute col: does: @ col: 258 ;s ! ;s con: col: col: 39 col: lit col: >r dup 0= 17 execute col: lit var: +! col: 19 swap ! ;s ;s drop con: 281 +! lit over = ?branch branch 125 @ >r user: col: con: swap 5 2dup or col: dup ?branch r> 198 cr ;s con: (+loop) i col: 647 defer: (type) col: lit does: swap 100 lit var: +! ;s ;s branch 1616 con: rot rot cell+ swap cell+ 5224 swap cell+ swap r> (loop) >r 121 rdrop ;s ;s con: = ?branch 23 over min /string rot dup con: 287 execute col: col: col: r> r> 3 col: var: ! ;s ;s branch 10 r> user: ! rdrop rdrop rdrop 1 nip execute col: var: @ dup 2592 ;s ;s dup ?branch 0> ?branch 506 - ;s r> over - does: 3 ;s ;s ;s col: con: lit 735 c! ;s (loop) unloop ;s lit 55 ;s drop branch ;s ;s ;s 78 con: = ?branch col: col: col: 7 ?branch branch rdrop ;s ;s con: 294 branch ;s col: col: r> r> 4514 lit r@ lit and ?branch r> 316 ;s col: var: col: lit swap 21 @ ?branch con: min >r var: 5 user: ! col: ?dup ?branch ;s 5 user: ! ;s ?branch ;s r> 941 var: @ ! branch ;s col: 6699 cells var: @ + @ (hashfind) 3553 + (do) 2dup i 2@ over 1806 ;s branch lit user: +! swap 5727 +! ;s col: dup col: col: 15 var: over r> + dup >r 1416 i col: dup does: @ + 1582 @ execute col: lit col: col: 1 ;s var: ! col: col: user: 44 +! ;s ;s ;s ?branch does: 10 con: col: col: defer: defer: col: 1 execute col: dup ! ;s ;s 2 ?dup ?branch ;s over lit (?do) 6 col: col: user: @ ?branch defer: 9 ! ;s col: var: @ ?branch 287 col: var: var: @ col: lit 21 execute col: col: lit col: >r 6699 >r 2dup col: con: (hashkey1) ;s 27 ;s - dup ?branch drop r> 294 swap - 1- dup ?branch col: 941 @ lit pick ! ! branch 66 dup con: ! col: lit over 440 ;s user: @ ;s user: ! 19 execute col: lit lit col: >r 196 ;s defer: noop ;s ;s branch 5730 col: col: lit /mod rot + 19 ;s cr 0= swap 0<> and 6 ;s ;s ;s col: defer: noop 9194 con: col: col: user: @ ;s 43 con: ;s lit col: col: col: 1 ?branch 2drop col: col: user: @ 80421 lit col: col: var: @ dup 599 (loop) unloop drop 2drop ;s ;s 708 @ ;s + swap dup r@ 987 ;s 2@ var: @ col: col: 18 con: lit ;s col: con: lit 27 drop r> col: col: col: col: 19 con: - swap lit col: 1+ 5 2dup lit col: >r dup ?branch 257 branch drop ;s ;s col: r> 1 lit (?do) unloop 2drop drop con: 279 execute col: >r r@ col: >r 287 - ;s 2dup var: 2! var: 1 @ ;s swap col: 2dup con: 3731 ?branch col: dup field: @ field: 52 ;s - col: col: col: user: 5 1- + c@ lit <> ?branch 1 (?do) i col: cells var: @ 3 ;s +! ;s 2! ;s col: 2 dup defer: col: cell+ dup @ 19 ;s swap con: - swap lit 14 lit col: >r dup ?branch over 15 cmove 2dup var: r@ + swap 147 swap user: @ um* drop rot 15 ;s col: var: col: col: col: 574 ;s ;s ?branch col: var: ! 1 @ con: cells col: lit fill 66 col: dup con: ! col: lit 5 2! 2* cells + 2! ;s 82 @ ;s over char+ col: col: 708 does: @ + @ ;s execute 160 + ;s c@ 0= or ?branch 78 var: @ ?branch con: branch ;s 506 ;s rot lit over < ?branch 1634 does: @ + ;s 2@ defer: 60 user: @ ?dup ;s ?branch ;s 18 execute col: col: col: defer: defer: 59 ;s ?branch 2rdrop branch ;s branch 148 col: user: @ lit = ?branch 5730 c@ ;s ;s over c@ or 23 ?branch nip nip execute col: dup 153 @ ;s +! ;s 2! ;s 446 ;s rot col: 0< ?branch ;s 17 nip nip execute col: lit var: 1 and ?branch nip nip execute 2* 58 (loop) unloop ;s ;s col: col: 291 lit var: +! var: @ con: 15 2@ dup >r var: swap cmove 1013 dup col: col: user: @ ;s 708 >r swap dup r@ does: @ 52 2dup u< ?branch = ;s 0= 121 con: <> swap con: <> and 39 drop ;s swap con: col: = 5224 swap r> (loop) >r over @ 5 ?branch ;s ;s r> user: ! 1 ?branch con: cells allocate col: ?dup 66 nip ;s dup ?branch 0> ?branch 66 0= ?branch nip ;s dup ?branch 61 does: @ + ;s @ = 287 ;s cr cr ;s ;s ;s 160 @ ! ;s ;s dup does: 281 swap ! ;s (loop) i over 1 >r over >r lit col: >r 5730 con: - ;s con: / col: 4938 lit and + faligned ;s r@ 1 ;s dup col: col: var: col: 5 >r ;s user: ! lit user: 15 over r> + dup >r con: 6 drop = ;s ?branch branch rdrop 287 ;s lit defer: (emit) var: 2@ 13 0= or ?branch drop col: var: 21 >r var: r@ cmove var: r> 28 ;s >r ?branch rdrop ;s tuck 52 con: var: col: con: swap ! 66 @ dup var: 2@ col: drop 287 @ execute col: col: col: r> 987 + ;s 2@ var: @ col: 997 var: @ @ over ! var: 997 ;s @ ;s user: ! lit 66 ;s 1+ var: 2@ col: drop 15 and ?branch con: ;s ;s does: 3 execute 2drop ;s branch col: sp@ 58 nip execute col: col: defer: col: 7 = ;s ?branch branch rdrop ;s 287 2@ defer: (type) lit defer: (emit) 22 drop branch ;s r> ;s ;s 160 ;s @ col: lit col: >r 2048 lit pick col: dup @ lit 1013 @ ;s swap dup col: col: 469 swap (?do) i col: dup does: 1 open-file col: col: r> r> dup 5 dup ?branch r> r> user: ! 19 lit col: >r >r lit col: 708 + swap dup r@ does: @ 647 var: nip unloop ;s dup r> 647 + ;s 2@ col: col: dup 1 dup ?branch dup r> - ?branch 5730 col: dup col: col: con: dup 25 ?branch rdrop ;s ;s over col: 49 faligned nip ;s col: user: @ 647 ;s ! ;s ;s col: dup 225 r@ execute and 0= 0= ?branch 1 code-address! ;s ;s col: col: user: 2019 ! lit col: col: col: user: 5730 ;s over c@ or swap c! 2982 ;s branch branch lit col: col: 1737 2! ;s lit col: col: var: 4 ?branch swap drop branch ;s does: 287 @ execute col: col: col: col: 59 ?branch r@ execute col: var: col: 1260 +! ;s c! ;s col: col: 988 aligned swap (?do) unloop ;s col: 287 ;s count ;s var: 2! ;s 51 + @ execute drop ;s branch 15 ;s drop branch ;s ;s branch 28 @ dup var: <= ?branch con: 12 @ ?branch over col: lit over 997 col: cell+ count lit and ;s 239 con: (+loop) i col: >r swap 708 @ + @ ;s + swap 3 ;s ;s rot 2dup and var: 5 r> r> user: ! r> user: 2 ! defer: drop ;s drop col: 5727 @ ;s +! ;s col: dup 223 - dup r> ?branch 1+ user: 130 @ ;s @ ;s swap col: 148 count col: user: @ lit = 218 drop con: branch rdrop ;s ?branch 1616 drop con: rot rot cell+ swap 223 ;s user: @ ;s user: @ 506 ;s con: - dup ! ;s 3 ;s ?branch execute does: 2@ ;s 3 execute lshift ;s branch col: sp@ 68 1- >r r@ col: dup 1+ 154 swap c! ;s ;s col: col: 2581 /string branch dup ?branch over c@ 21 rdrop ;s 0> ?branch col: col: 8 ?branch lit @ var: ! ;s 5 nip execute does: col: var: dup 997 count lit and ;s var: @ 16 nip execute col: lit lit lit 5 col: ?dup ?branch ;s col: ?dup 5 nip 1- user: ! lit col: 506 >r um/mod r> ;s rot lit 469 @ col: swap (?do) i col: 3 nip execute col: 0= ?branch ;s 506 ;s col: col: user: @ lit 9 <> ?branch 2dup con: swap read-file 653 @ lit (do) >r over @ 2 ?branch 2dup * allocate col: ?dup 3447 ;s dup ?branch nip nip unloop 253 ?branch ;s col: var: @ var: 10 con: swap read-file ?branch rot over 1 drop ;s nip ;s ;s branch 292 field: @ col: col: col: user: 27 ;s ;s r> drop col: con: 1 / ;s var: 2! col: var: 223 rdrop ;s >r over - dup 113 ?branch r> user: ! ;s user: 280 ?branch 0<> swap 0= and ?branch 185 unloop drop 2drop ;s ;s 0= 506 >r tuck dabs col: col: col: 287 ;s var: 2! ;s col: col: 24 ;s col: lit user: ! col: 280 @ ;s ;s + ;s ! 18 ;s ! ;s does: @ col: 789 ! ;s ;s branch @ dup 5 var: 2! 2* cells + 2! 14 ?branch over col: 2dup col: lit 75 ! ;s swap col: col: col: 2 ! ;s branch @ dup @ 2 2drop r> var: ! ;s branch 196 code-address! ;s con: col: lit lit 459 execute or col: col: col: user: 1 ;s ;s ?branch execute con: con: 1730 lit col: lit pick @ ?dup 839 @ (f83find) ;s ;s dup ?branch 196 ;s code-address! ;s con: col: lit 5 ;s nip ?branch var: 2@ lit 227 user: @ ?branch col: r> dup 11070 col: r> r> dup count + 387 0= ;s ;s ?branch lit @ 1 swap col: 2dup con: swap read-file 1 >r col: defer: defer: col: col: 13 ;s ;s ;s drop ;s ;s 1 2! ;s ;s ;s branch col: 5730 col: lit /mod rot + swap 61 execute var: @ does: @ + 2 nip execute drop ;s branch col: 6 + ;s @ var: ! ;s 5 ?branch rdrop ;s nip ?branch var: 66 2dup col: col: user: @ >r 35 ?branch var: @ col: dup con: 3 col: 0= ?branch ;s ;s branch 1 dup @ ?branch drop ;s ;s 291 var: @ over ! lit var: 53 ;s @ ;s - col: col: 11 ;s ;s con: ! ;s ;s 223 r> ?branch 1+ user: +! ;s 693 @ ;s execute col: >r r@ 287 lit defer: (emit) var: 2@ defer: 9 ?branch 2dup con: swap read-file ?branch 26 +! ;s ;s ;s col: col: 1 ;s ;s ;s dup col: col: 941 + var: @ ?branch dup @ 5 c! 1+ col: col: col: user: 173 con: @ col: col: user: @ 1 lit branch (+loop) i col: cells 3 or >r col: 2dup col: lit 156 ?branch nip branch dup @ dup 52 ?branch = ;s 0= ?branch ;s 12 drop ;s ;s col: col: col: 958 @ lit r@ lit and ?branch 287 col: var: ! ;s lit col: 291 cells - var: over cell+ ! 30 user: @ >r user: @ >r 6249 ;s user: @ ;s 2dup >r 16 ;s r> col: col: col: user: 5224 r> (loop) >r over @ over 24 rdrop ;s ;s ;s col: dup 647 lit min 2dup defer: (type) (+loop) 8 col: user: @ ?branch ;s ;s 5 ! col: var: dup @ cells 4938 count lit and + faligned ;s 3 lit - dup lit u<= ?branch 173 col: con: @ col: col: user: 96 ;s ;s ;s branch col: var: 30 code-address! ;s lit col: lit lit 21 min >r var: r@ cmove var: 212 (hashfind) ;s ;s dup ?branch drop 2 * allocate col: ?dup ?branch ;s 1732 lit pick @ ?dup 0= ?branch 4938 dup c@ >r col: count lit 61 @ r@ does: @ + ;s 16 >r >r >r >r dup >r 44 ;s ;s ;s ?branch does: @ 289 field: dup var: ! defer: col: 27 - dup ?branch drop r> col: 7 ?branch defer: noop col: r> dup 15 >r 2@ dup >r var: swap 441 execute col: user: @ ?branch defer: 3 swap (?do) unloop ;s ;s ;s 11 ! ;s ;s ;s does: @ 17 col: var: @ ?branch col: con: 1027 var: @ field: @ field: @ 402 ?branch does: @ col: var: col: 5 user: ! >r ;s drop col: 223 min /string over swap r> col: 203 noop ;s ;s branch col: sp@ 1251 ;s dup ?branch lit and ?branch 908 ;s ;s ?branch ;s col: col: 32 dup ?branch drop does: @ col: 2 >r ;s count ;s compare 0= 2 +! ;s ;s branch col: sp@ 951 ?branch 0> ?branch nip nip execute 1806 lit user: +! swap user: ! 1801 user: ! ;s dup ?branch 2drop 49 ;s ;s lit col: 1+ con: 18 execute col: dup col: dup con: 147 rot user: @ um* d+ r> 16 2! ;s r> r> r> col: 3 var: @ and ?branch or >r 1730 >r var: lit cells lit col: 1730 @ 0< ?branch @ over cell+ 136 move drop r> ;s r@ col: 1416 ;s @ ;s dup aligned swap 708 ;s ?branch branch lit col: col: 287 ;s dup var: ! col: var: 1 execute col: var: @ 1- dup 6 user: @ >r >r ;s user: 350 ;s col: dup 0= lit and 105 ;s col: over >r rot over 566 + aligned ;s con: - lit 287 defer: (type) ;s lit defer: (emit) 3 execute 1- ;s branch col: sp@ 941 var: @ col: lit + dup 98 ;s branch ;s ;s branch col: 1251 ?branch lit and ?branch nip nip 647 xor swap c! ;s col: lit 161 @ ;s ;s col: col: col: 3 u<= ?branch dup user: @ u>= 6 swap 2dup r> -rot move ;s 350 col: defer: defer: col: col: col: 61 + ;s @ r@ does: @ 1 execute 0< ;s branch col: sp@ 12 swap ! ;s con: @ col: 23 2dup >r >r user: @ over 965 col: >r r@ does: @ + 1 ;s swap col: 2dup con: swap 129 ! ;s lit user: @ col: 19 ?branch rdrop ;s ;s col: >r 1054 ;s ;s col: col: user: @ 1 swap ! ;s rp@ user: ! 8 or swap ! ;s ;s lit 129 ;s c! ;s con: col: col: 1 ! ;s cells col: col: user: 4 rdrop ;s 0> ?branch col: r> 197 drop lit col: lit con: (do) 3553 col: drop var: dup @ 1- 642 ! ;s ;s var: @ col: 366 ;s ;s ;s col: col: col: 80421 var: @ dup var: @ = 9 + -rot con: <> ?branch 2dup 507 does: @ does: @ col: var: 1217 @ ;s ;s + ;s @ 1 ! (next) unloop ;s ;s branch 6699 xor cells var: @ + @ 3 lit u<= ?branch dup user: @ 147 swap >r swap user: @ um* 1 cells / ;s var: 2! col: 1 ;s @ ;s col: col: col: 292 ;s ;s var: field: @ col: 291 var: @ >r var: col: con: 6 @ user: @ = ?branch r@ 7 defer: (type) ;s cr 0<> swap 4 col: dup count col: var: @ 933 dup ?branch ;s ?branch lit (s+loop) 933 ;s dup ?branch ;s ?branch lit 149 var: @ ;s col: col: col: 713 @ ! ;s ;s does: @ 160 ! ;s cell+ (loop) dup @ 6699 ;s r> xor cells var: @ 19 ?branch col: var: @ dup lit 506 max lit (?do) unloop drop ;s 6 +! ;s ;s ;s col: defer: 152 + ;s c! col: var: col: 11374 col: dup field: @ field: @ 6 ;s swap 2dup r> -rot move 1 ?branch ;s var: swap ;s 2dup 647 var: count col: col: col: user: 9171 @ ;s @ ;s con: col: 647 ;s ;s dup >r does: @ 8618 >r swap >r ;s count defer: 178 ?branch drop branch lit (+loop) 2dup 4 lit /string branch over >r lit 153 user: @ ;s +! ;s 2! 506 ;s ;s 2dup d0= ?branch ;s 5877 >r over @ over @ r@ 15 ;s 0= ?branch ;s col: user: 25 ;s ;s col: con: @ col: 5 1+ dup con: > col: col: 19 * 1- >r r@ pick r@ 8 rdrop ;s ;s lit lit col: 6699 @ field: @ execute col: lit 3711 (+loop) 2dup i 2@ over <> 3533 drop 2drop lit (+loop) 2dup i 6226 >r user: @ /string (parse-white) 2dup 73 ?branch nip nip execute col: var: 52 ;s @ ;s ;s con: var: 4 rot (do) i over col: swap 77 ?branch ;s ;s ;s 0= ?branch 997 ?branch 2drop 2drop ;s var: @ 117 col: col: defer: defer: col: col: 113 2drop rdrop r> ?branch r> user: 5730 - ;s con: / col: col: 506 over < ?branch lit + col: 16 ;s +! ;s ! ;s col: 225 over @ r@ execute and 0= 506 rot lit over < ?branch lit 147 ;s @ col: 2dup col: lit 15 code-address! ;s ;s col: var: col: 128 ;s 2drop ;s does: @ does: 5 ?branch nip nip execute does: col: 689 >r @ col: col: col: col: 997 col: dup col: col: col: user: 473 dup ?branch drop col: col: r> 647 swap (?do) dup i con: col: 647 ;s 2@ 2dup col: lit swap 1 + -rot con: <> ?branch drop 8 lit col: >r >r user: @ 148 @ lit = ?branch toupper lit 647 (type) col: lit does: swap lit 1 col: var: @ ;s ;s branch 180 dup @ col: col: col: user: 7 ?branch nip nip execute ! ;s 1 ;s dup ?branch dup r> - 43 ?branch rdrop ;s ;s ;s ;s 19 r> r> rot col: con: <> 350 min user: ! ;s col: dup 23 ?branch drop (parse-white) branch 2dup + 517 nip execute col: user: @ ?branch 8 @ lit ! var: var: ! 1 ?branch drop con: ;s ?branch 1- 5769 ?branch fp@ user: @ > ?branch 279 lit and ?branch ;s ;s 0= 5166 @ r@ execute col: lit xor 36 ?branch ;s col: col: col: user: 370 c! ;s (loop) unloop ;s ;s 82 move c! ;s col: col: col: 3 col: lit col: user: @ dup 1 dup lit = ?branch dup var: 28 dup @ swap var: ! ;s 66 2drop branch ;s branch col: sp@ 1806 col: user: @ ;s con: user: 3689 lit col: col: col: user: @ 43 @ ?branch con: ;s lit col: 1801 user: ! ;s ?branch col: col: 265 rdrop ;s ?branch r@ col: >r 459 over @ r@ execute or col: 1730 xor cells >r var: lit cells 126 >r ?branch rdrop ;s ;s ;s 3501 ?branch r> lit and ?branch ;s 637 2@ col: drop swap - 1- 32 2drop r> ;s ;s ;s does: 143 2drop ;s ;s ?branch drop branch 915 var: col: lit swap +! ;s 1 var: ! ?dup ?branch 1- (for) 2592 ;s ;s ;s dup ?branch 0> 9163 0= ;s ;s 0= ?branch lit 124 r> ;s (loop) unloop lit branch 574 ;s var: var: @ col: swap 16 lit ;s ;s branch col: sp@ 6 col: col: var: @ ?branch var: 1 ! ;s ;s r> col: >r 23 col: con: col: col: defer: col: 997 2dup 2dup r> col: dup field: 18 col: col: con: lit ;s col: 3533 2drop lit (+loop) 2dup i 2@ 80726 + swap ;s col: lit swap 232 lit col: user: @ swap - 25 ;s 1- var: 2! ;s lit 197 lit + = ?branch con: (+loop) 19 ;s ;s ;s r> r> rot 7 defer: (type) ;s r@ col: >r 15 ;s execute col: >r col: col: 1 col: con: swap ! ;s rp@ 1 ! execute col: col: sp@ user: 2 ?branch nip nip execute col: 2dup 3 execute does: 2@ ;s con: branch 20 nip execute col: con: col: col: 121 ;s @ ;s over - swap 23 drop (parse-white) branch 2dup + r> 3 user: @ ?branch ! ;s ;s 247 con: (+loop) unloop ;s var: var: 272 count defer: (type) ;s rdrop ;s 473 count defer: (type) ;s ;s col: 647 col: ?dup ?branch ;s ;s var: 484 ?branch ;s col: col: r> r> 290 0= ?branch var: @ over ! 5769 > ?branch ;s defer: col: defer: 5 2dup 1+ var: 2! 2* cells 281 user: +! lit over = ?branch 4938 ;s ;s dup ?branch col: cell+ 1 var: ! var: ! col: lit 287 var: 2@ var: 2@ 0= rot 287 lit @ execute col: col: var: 6 ;s ;s col: col: dup col: 3556 and ;s 0= 0= ?branch cell+ 239 rdrop ;s ;s con: (+loop) i 6699 + @ >r 2dup col: con: 223 ;s >r over - dup r> 647 2dup col: lit swap (?do) dup 2 r> var: ! ;s ;s ;s 3 ?branch nip nip execute lshift ;s 82 char+ col: col: user: @ ;s 506 con: - dup @ tuck - 566 ;s con: - lit over +! 23 ;s + ;s @ ?branch does: 147 @ col: 2dup col: lit col: 2 0= ?branch 2dup * allocate col: 6 var: + @ user: ! lit 469 rdrop ;s ;s con: (+loop) unloop 24 ;s ;s + ;s ! con: 1 ;s ?branch 1- i' i - 25 ;s ;s over col: lit over 125 con: swap ! ;s lit lit 287 var: 2@ rot swap - rot 96 ;s ;s branch col: var: col: 5 col: ?dup ?branch ;s ;s ;s 1806 ?branch ;s branch lit user: +! 7 user: @ ;s @ ;s /does-handler 2394 var: col: con: swap ! ;s 60 +! @ c! ;s ;s col: 2583 count defer: (type) ;s cr col: 30 ;s @ ;s col: lit >code-address 6912 col: col: user: @ ;s user: 506 r> col: >r tuck dabs col: 105 lit lit 2swap swap (?do) unloop 8 swap ! ;s ;s lit col: 197 lit con: (do) dup i - 52 col: con: <> col: col: r> 66 con: ! col: lit over 0<> 647 nip unloop ;s dup r> does: 223 @ over min /string over swap 196 con: col: lit lit ! user: 5 0= ?branch nip nip r> rdrop 28485 ;s ?branch lit col: col: var: 19 ;s ;s col: drop >r drop 997 ! var: @ ! branch ;s 1 ?branch drop branch ;s r> ;s 789 @ ?branch col: dup @ dup 23 d+ r> ;s (loop) count col: 59 r@ execute col: var: col: col: 2 ?branch nip nip execute * ;s 27 = ;s 0= ?branch ;s ;s 5 resize col: ?dup ?branch ;s swap 446 ?branch ;s col: 2drop col: col: 5 c! col: does: @ col: var: 4 execute col: var: col: col: dup 3420 @ ;s +! ;s ! ;s 10 ;s ;s ;s col: var: @ 23 (loop) count col: user: @ lit 2 @ var: @ <> ?branch ;s 40 (?do) unloop ;s var: var: @ 3 ;s ;s drop ;s ;s col: 653 (do) >r over @ over @ 700 ?dup ?branch ;s ;s col: dup 13 col: laddr# ;s >r user: @ 66 ;s 2drop branch ;s branch col: 6 r@ user: +! user: @ user: 517 ?branch nip nip execute col: user: 287 ;s cr col: var: @ var: 1 user: @ u>= ?branch drop con: 2 pick + (loop) unloop drop branch 1 swap ! ;s col: col: var: 1 up! sp@ dup user: ! lit 1 var: ! col: lit lit col: 911 ;s dup faligned swap (?do) con: 3 ;s drop ;s does: @ col: 3 and ?branch or >r col: 2dup 3 rot 2dup and var: @ and 25 ;s over col: lit over 0<> 2 ;s ! ;s col: col: var: 1002 ;s lit col: user: @ dup 56 var: @ ! branch ;s ;s 1 drop ;s dup var: ! col: 129 +! ;s ! ;s lit user: 130 nip swap - 1- dup ?branch 1 dup col: col: var: col: con: 233 ;s ;s + ;s ! does: 21 ;s 0> ?branch col: col: col: 2 var: ! defer: drop ;s drop 469 swap (?do) i col: >r swap 1138 var: @ over - ;s var: 136 ;s r@ col: dup 1+ pick 1641 ! ;s ;s ;s 2drop ;s 5 ;s col: var: 2@ tuck 1+ 12401 field: @ field: @ execute col: 13223 ?branch lit var: +! ;s lit 1 nip ;s ;s branch col: sp@ 22 ;s ;s col: col: col: r> 3 drop ;s does: @ col: var: 3 dup lit u<= ?branch dup user: 3553 drop con: ?branch lit col: drop 1 move ;s drop var: 2@ nip 997 @ col: >r 2dup 2dup r> 1416 ! r@ does: @ + ;s 469 2swap swap (?do) i col: >r 1 execute col: var: @ ;s ;s 245 2dup col: lit col: >r con: 3 0< ?branch ;s ;s r> col: 23 c! col: col: user: @ ;s 287 var: @ execute col: col: col: 3 ;s branch ;s ;s does: @ 507 ;s ;s + @ ;s + 10 r> cell+ cell+ (loop) dup >r 469 var: (?do) i col: dup does: 708 0= 0= ;s ;s ?branch branch 1 ?dup ?branch ;s var: ! var: 506 ?branch lit + col: col: col: 647 ;s col: lit lit ! ;s 3447 dup ?branch nip nip unloop ;s 12 dnegate r> user: ! ;s user: 5769 min user: ! ;s dup ?branch 30 ;s ?branch ;s col: user: @ 1 @ ;s +! ;s ;s ;s 6 user: @ = ?branch r@ user: 1 ?branch rdrop ;s var: @ ?branch 128 0= ?branch con: does: @ col: 25 rdrop ;s ;s over col: lit 1 @ dup 0> 0= ?branch ;s 27 +! ;s ! ;s ;s r> 136 drop r> ;s r@ col: dup 1 @ >r var: @ lit (?do) 13 fp@ >r col: laddr# ;s >r 13 ;s c@ 0= or ?branch drop 15 dup >r var: swap cmove 2dup 61 r@ = ?branch does: @ + 14 @ 0< ?branch ;s ;s ;s 1 ;s 0= ?branch ;s >body @ 689 r> dup cell+ >r @ col: 103 user: ! ;s col: var: @ 227 field: @ execute col: col: @ 25 = ;s 0= ?branch ;s col: 7 ;s >r ?branch rdrop ;s var: 7 user: @ ;s +! ;s does-handler! 236 col: col: col: var: col: con: 99 nip nip execute col: col: col: 708 i col: >r swap dup r@ 274 ;s does: @ does: @ col: 6699 r> xor cells var: @ + 5 ! branch ;s ;s col: col: 1 user: @ ;s @ ;s r> 121 col: col: con: @ col: col: 1250 (?do) con: col: col: col: user: 708 + @ ;s execute col: >r 128 c@ 0= ?branch con: does: @ 147 c@ 0= or ?branch con: does: 1 ?branch ;s ;s ;s ;s branch 28 cell+ tuck ! cell+ tuck ! 6 lit var: ! ;s ;s ;s 14 ?branch r@ col: does: @ + 295 @ ;s lit col: col: col: 28 dup var: <= ?branch con: - 68 move drop r> ;s rdrop dup 4 ;s var: swap ;s col: user: 105 var: @ var: (?do) unloop ;s 574 var: var: @ col: swap (?do) 113 dup >r ?branch col: over c@ 506 lit max col: >r lit r@ 233 ;s + ;s c! does: @ 24 @ ;s does: @ col: var: 2410 does: @ + ;s @ does: 287 ;s col: col: var: @ execute 287 var: @ over - ;s 2dup 66 @ + ;s @ dup var: 1 ;s +! ;s col: col: col: 24 swap +! ;s ;s col: col: 1 ?branch nip nip execute + ;s 1616 rot drop con: rot rot cell+ 7 and ?branch nip nip execute ! 1730 lit fill ;s r> ;s tuck 1 con: cells allocate col: ?dup ?branch 5 ?branch rdrop ;s var: ! col: 5 ?branch nip nip execute over ;s 1250 ;s c! ;s (loop) unloop ;s 5730 over c@ or swap c! ;s 43 ;s ;s con: = ?branch var: 951 ;s ;s does: @ col: var: 5166 r@ execute col: lit xor and 1 i' i - unloop ;s dup 66 ?branch 0> ?branch col: user: @ 1 ;s @ ;s var: ! lit 1 sp@ dup user: ! lit + 1 noop ;s r> col: col: var: 35 r> ;s ;s does: @ col: 443 ;s @ does: @ col: var: 17 aligned swap (?do) unloop ;s ;s 23 user: +! ;s user: @ ?branch 125 user: @ 0= ?branch user: @ 1 ;s >r col: defer: defer: col: 197 = ?branch con: (+loop) dup i 27 col: >r >r user: @ lit 350 ?branch ;s ;s col: dup col: 708 @ over - ;s lit pick 287 cr col: var: @ var: (?do) 2 @ dup @ ?branch dup defer: 13 r> swap >r fp@ >r col: 26 ?branch nip nip execute col: con: 75 ;s +! ;s ! ;s swap 31 swap ! ;s branch ;s ;s 61 dup r@ = ?branch does: @ 987 does: @ + ;s 2@ var: 51 execute drop ;s branch col: var: 341 ;s + @ execute col: does: 456 @ ;s + @ execute col: 42 ;s col: var: col: con: over 4 (do) i over col: swap col: 269 ?branch branch drop ;s ;s col: 6249 - 1+ r> min user: ! 33 +! ;s ;s ;s >r col: 23 ;s + ;s @ branch ;s 2 and ?branch nip nip execute * 12 ?branch ;s ;s ;s ;s ;s 908 0= ;s ;s ?branch ;s col: 58 +! ;s ! ;s ;s var: 3 ;s ;s ;s ?branch drop does: 1 and ?branch nip nip execute + 9 ;s drop con: ;s ;s ;s 287 execute col: col: var: ;s lit 1 unloop ;s col: lit col: col: 5 @ >r col: swap >r dup 4938 col: count lit and + faligned 3980 lit and 0= ?branch lit r@ 80415 = ?branch c@ ;s col: col: 58 drop ;s col: col: user: @ 284 ;s dup ?branch drop branch lit 53 nip execute var: ;s branch col: 1 lit + dup user: ! user: 3 con: ! ;s ;s ;s ;s 486 ;s ! ;s cell+ swap cell+ 5769 col: sp@ user: @ > ?branch 1 drop var: 2@ nip var: 2! 1 var: 2@ col: col: col: col: 35 var: @ ?branch var: @ col: 506 r> ;s rot lit over < 1 +! ;s ! ;s cells col: 145 u> ?branch dup user: @ u>= 1005 lit col: user: @ dup 0= 1 r> or ?branch 2drop dup >r 55 + @ execute col: col: var: 305 swap col: con: /mod cells rot 611 ;s 0= ?branch ;s col: col: 27 >r >r user: @ lit pick 12 = dup >r ?branch lit /string 75 +! ;s ! ;s swap col: 3 - dup lit u<= ?branch dup 128 dup ?branch ;s ;s dup ?branch 121 ;s @ ;s ;s var: @ 4909 ;s +! ;s c! ;s (loop) 350 ;s ;s col: defer: col: defer: 5 2@ tuck 1+ 2* cells resize 10 char+ c@ ;s col: user: @ 1 ?branch ;s >body @ col: col: 3 @ ;s branch col: sp@ user: 223 col: >r defer: col: col: user: 124 (loop) unloop lit branch ;s dup 4563 ;s count defer: (type) ;s cr 24272 branch lit col: col: var: @ 312 dup does: @ col: var: col: 33 r> /does-handler + col: col: user: 6 col: col: r> user: @ >r 10 rdrop drop r> cell+ cell+ (loop) 2433 and ?branch ;s ;s ;s dup 30 ;s ?branch var: @ field: @ 4 var: col: col: dup field: @ 350 defer: col: col: col: col: user: 480 ;s ;s ;s ;s branch col: 1 col: >r con: open-file col: col: 5 + ;s c! col: does: @ 147 ;s c@ 0= or ?branch con: 3 ?branch ;s ;s r> col: >r 2048 col: dup @ lit pick ! 291 lit cells - var: over cell+ 281 swap ! ;s lit var: ! 5822924 NEXTS