1430 d+ 18159 (parse-white) 27612 nip 21430 2drop 109479 swap 342 d>s 17641 (hashkey1) 52 i' 9496 (+loop) 802 2swap 47603 i 790 2* 6404 (?do) 28748 1+ 208841 dup 55618 um/mod 32 cmove 972 (f83find) 30571 ?dup 74745 c! 6303 tuck 1 up! 99558 over 151876 var: 8983 write-file 3 create-file 1898 fill 71 (type) 1436 * 45805 (loop) 9873 1- 275772 ?branch 787457 col: 55 u<= 20 <= 1216 code-address! 9917 0< 518 2rdrop 57880 rot 11996 faligned 9788 or 44934 count 29745 execute 156910 + 22 cr 6 u<> 28804 0= 19138 unloop 89 rp@ 164606 con: 43 2! 793119 ;s 37694 <> 17 invert 781 lshift 12735 (do) 26 >= 20070 xor 8364 0> 1472 u>= 3303 negate 55035 and 28570 min 6 compare 9712 move 31201 cells 35869 - 4 does-handler! 6548 does: 1454 toupper 82438 2dup 173229 r> 68884 c@ 182862 >r 246049 lit 83969 ! 1 (bye) 2169 < 14 close-file 2194 max 387 dnegate 9351 pick 4228 um* 833 u< 4041 read-line 14 open-file 42444 defer: 5423 / 55741 branch 63 within 19748 = 15 -rot 20 allocate 14215 aligned 41637 /string 73765 r@ 15746 (hashfind) 877 /does-handler 1216 >code-address 2656 u> 518 2>r 88 laddr# 19538 > 15690 2@ 9293 fp@ 254487 user: 10093 sp@ 10485 rdrop 2169 d0= 750 d<> 5006 rshift 873 does-code! 4178 >body 9776 /mod 14 resize 1613 0<> 46217 +! 69 char+ 33283 cell+ 47709 field: 553 noop 38475 drop 503162 @ 4 col: - 6099 (loop) i 152 faligned over 6 +! var: 7612 /string rot 14 con: open-file 1976 rot ! 74 con: branch 838 <> and 847 0<> ?branch 71 +! user: 1910 + dup 1 con: 0= 164 dup ;s 27 rdrop user: 20 >= col: 13 drop >r 23345 and ?branch 9171 rdrop ;s 5600 con: write-file 3162 count col: 1 (+loop) i 9606 @ lit 4169 >body nip 15746 r> xor 873 does-code! ;s 22632 dup field: 1 close-file col: 79 r@ rot 3669 aligned ;s 55 u<= ?branch 904 drop r> 9853 c@ >r 11001 swap c! 17 drop swap 15746 @ (hashfind) 1 execute field: 36 over char+ 6033 @ swap 774 0> 0= 4041 read-line col: 14446 dup count 4057 col: ;s 1895 tuck cell+ 1895 drop r@ 9776 /mod rot 4335 and col: 4183 nip r> 40058 ;s user: 1 noop var: 563 lit ! 27 2drop user: 5 execute @ 9204 ?branch fp@ 1 2@ 2* 10704 ;s defer: 17 swap cell+ 39 r@ pick 518 2rdrop branch 7612 c! col: 174555 ;s ;s 1026 (+loop) con: 1510 count con: 63 * 1- 1 0= >r 22073 c@ r@ 15 dup allocate 4 cr ;s 17 + count 1129 > col: 5005 drop branch 60 ! cell+ 32 ?branch = 1224 tuck c@ 11144 rot + 7648 r> move 18001 ;s branch 17 over var: 853 ;s (?do) 14 0<> lit 18271 >r >r 33 char+ c@ 940 (+loop) unloop 1908 >r drop 1 0= r> 2 i 1+ 15786 cells var: 42409 ?branch lit 2169 over +! 1210 and con: 750 d<> ?branch 1106 branch var: 3 execute >body 150 sp@ cell+ 7581 ?branch @ 9902 @ ?branch 3 r@ write-file 2 create-file ;s 176 ;s nip 1499 ?branch 1+ 1 nip var: 27924 r> swap 1 1- + 2 lit * 4 col: = 152 dup i 63 1- >r 7648 rot over 9438 r> r> 158 (loop) col: 97 ?branch cell+ 76 drop lit 63 >r r@ 835 ?branch 1- 12828 2drop ;s 12540 ;s count 23632 lit + 1 2* ;s 14 r@ + 20925 branch dup 3 col: cr 13 or col: 63 1+ within 93 over 0<> 483 1- r> 2310 lit - 1 ;s (+loop) 972 col: @ 209151 @ ;s 9853 and 0= 25069 @ field: 38684 swap >r 3249 ! var: 2 ;s cr 52 i' i 2169 < ?branch 1690 r> write-file 150 dup 1+ 102 <> swap 518 2dup 2>r 27 branch r> 750 0<> and 1 execute move 4169 >r >body 3610 ?dup ;s 2027 swap r> 73999 dup ?branch 8489 con: swap 181 rdrop branch 2048 + (loop) 302 - swap 26409 (loop) con: 17 2! ;s 750 @ min 3200 var: count 27900 ;s rot 2 over ;s 14221 ;s ! 4359 ;s ?dup 88 laddr# ;s 63 ;s rdrop 6447 swap user: 853 (?do) i 18409 > ?branch 7 ! over 1603 1- and 2 execute swap 9162 lit pick 63 col: 1+ 801 2drop rdrop 801 = dup 2984 negate ;s 20994 lit /string 1 2! var: 27 1- i' 76 con: (+loop) 1896 var: lit 6 >= ?branch 4772 swap does: 4 var: r> 71 r@ user: 15 col: 1- 33 ;s char+ 873 ;s does-code! 3071 + col: 3 defer: drop 518 2>r col: 47701 field: @ 27 var: 2! 4 1+ /string 5013 c@ 0= 1368 swap i 1098 lit var: 1162 @ and 18 var: r@ 9853 r> lit 15 r> -rot 1 ! fp@ 1 ;s 1- 16 +! col: 1898 lit fill 2232 con: ;s 14 2dup var: 18869 col: cell+ 2 ;s compare 13805 col: ?dup 1 var: up! 53809 ;s dup 3102 swap (?do) 2169 d0= ?branch 2169 rot lit 1690 count r> 5907 (do) 2dup 1248 @ ! 55162 col: dup 18113 = ?branch 2056 cell+ cell+ 103 - unloop 76 con: (do) 387 ?branch dnegate 7612 + c! 25 (type) (+loop) 3143 ;s 2drop 1430 um* d+ 41492 c! ;s 99 rdrop lit 651 / ;s 7 ;s + 14 1- tuck 3154 pick ! 1158 2drop 2drop 1910 swap dup 2271 lit = 7180 ! lit 6 execute drop 5907 cells over 1224 xor swap 14 branch unloop 15 2@ lit 1 lit > 836 ;s - 4750 lit over 656 (loop) count 170 rdrop rdrop 13011 + aligned 553 defer: noop 1921 >r var: 760 2@ drop 6 lit @ 17641 con: (hashkey1) 5 >body user: 1445 col: swap 736 tuck swap 1895 r@ @ 17641 (hashkey1) ;s 13360 over <> 1129 @ 1+ 20129 ?branch drop 1 2drop drop 1 con: lit 4 compare 0<> 15 r> drop 92 rot col: 1 ;s rp@ 88 ! execute 6996 @ 1- 9347 var: ! 5906 - dup 6410 ;s (do) 86 lit ;s 43533 @ + 1368 um* rot 2 execute create-file 157 r@ col: 5539 cells + 1481 r> user: 39594 +! ;s 6951 c@ col: 7 var: field: 1898 ;s move 1162 0= lit 4772 does: + 16954 count + 2021 >r over 1629 ! user: 750 2@ d<> 156 nip branch 2048 pick + 6 cells - 1197 con: <> 7648 over 1+ 14 2dup 1+ 20 allocate col: 3825 nip col: 4 (type) compare 32 2dup u< 4 ;s does-handler! 1168 over ! 28 var: swap 1205 xor r> 5006 con: rshift 1 over 1- 25 lit does: 1162 and ?dup 14 >r 2@ 9854 sp@ user: 1 2dup 1- 1 cells / 40 2dup u> 342 unloop d>s 2169 +! @ 7630 branch 2dup 8350 ;s swap 280 i - 25 does: swap 13360 2dup i 4 /does-handler col: 1162 2dup 2dup 3519 and ;s 1430 rot user: 7095 ?branch defer: 10547 (parse-white) 2dup 2169 2dup d0= 22 col: does: 7 ! defer: 5114 ?branch user: 28 swap cmove 972 (f83find) ;s 2449 lit (?do) 1 r> close-file 5004 rshift ;s 25640 i c! 6 con: >= 63 con: 1+ 5041 var: + 18159 + r> 10995 unloop ;s 6663 ! col: 1 lit (bye) 7 rot r@ 6752 (do) con: 13 close-file swap 4772 / col: 14 + 2! 4 r@ cmove 18159 r> min 1 ;s create-file 62 = col: 3154 ! ! 25 max lit 20 r@ u>= 2405 ! branch 10547 /string (parse-white) 89 rp@ user: 3 and swap 3 invert over 150 cell+ rot 276 noop col: 7655 >r rot 36473 user: ! 1 c! 1+ 14 invert and 2 execute lshift 71 defer: (type) 3151 @ var: 10437 (loop) unloop 16909 >r 2dup 78 ?branch i 5909 drop var: 22073 r@ <> 13512 over + 319 negate user: 3472 drop ;s 14 unloop 0<> 4 min >r 1 2drop dup 66254 ;s @ 739 lit <> 1895 cells >r 6 - var: 423 ;s drop 2 dup rot 739 ! con: 36 = ;s 4 does-handler! ;s 75 2drop branch 639 cell+ >r 1027 nip ;s 2 0<> ;s 2309 over - 9853 faligned ;s 10005 + faligned 972 @ (f83find) 11 2! col: 2 execute 1- 2 * allocate 438 execute does: 1891 over col: 4 ;s /does-handler 11014 c@ ;s 4917 0= col: 14 nip ?branch 1129 1+ dup 249 dup var: 19 execute var: 5526 - ;s 10009 cell+ dup 4918 @ = 1556 var: 2@ 3 cells col: 2912 >r dup 1 + lit 1 (type) con: 1898 fill ;s 6 2dup u<> 9152 branch col: 4 con: min 2020 /string over 25803 @ execute 25807 1+ r> 18408 @ > 8975 lit user: 46640 lit col: 36311 <> ?branch 750 2@ var: 2 1- con: 20 lit >= 1216 code-address! ;s 12695 @ over 21923 2dup col: 1 1+ r@ 11828 col: drop 93 faligned nip 1265 @ @ 801 lit 2swap 801 lit u< 4041 ?branch read-line 14 cells resize 5197 ?branch var: 85 ! rdrop 1901 r> var: 3100 ;s xor 9777 + c@ 121046 col: user: 1914 move ;s 208 does: @ 1895 @ rot 2240 cell+ ! 2616 lit u> 13957 ?branch nip 3 ;s invert 753 @ tuck 789 drop ! 1897 pick @ 55 lit u<= 13 pick rdrop 9773 or swap 9489 >r ;s 2 execute over 20 <= ?branch 20674 ;s c! 83 ! >r 36196 r> ;s 1690 >r write-file 76 lit con: 6064 ?branch >r 16742 var: +! 4 branch con: 319 ?branch branch 9776 lit /mod 2860 @ um* 14 resize col: 15 -rot move 18383 >r col: 10 2dup con: 154 over lit 13360 2@ over 1224 c@ xor 14 tuck 1+ 9854 col: sp@ 9339 ?branch rdrop 88 >r rp@ 3 1- ;s 873 /does-handler + 2321 ! r> 19706 r@ lit 22079 ?branch over 750 dup ! 1603 tuck 1- 2 rshift 1+ 781 lshift ;s 1898 faligned swap 14 1+ 2* 9856 ?branch r> 14 swap invert 1895 ! r@ 25 (?do) i' 121 con: var: 36 char+ col: 4041 con: user: 789 2* cells 25064 ?dup ?branch 98308 var: @ 88 fp@ >r 22 @ 2dup 2169 over < 25640 rot i 76 (do) dup 150 1+ pick 55 con: ! 7590 0> ?branch 593 drop 2dup 14 2@ tuck 71 ?branch r@ 319 over = 1216 ;s code-address! 4821 branch ;s 7667 swap ;s 25640 c! (loop) 13 @ close-file 3 >body ;s 6 ;s >body 14 >r con: 4748 dup >r 2 r> tuck 1 or ;s 1 field: ;s 20152 + swap 15 1+ var: 1 sp@ dup 18 cr col: 2169 @ c! 5603 write-file col: 6410 0< ;s 9236 branch lit 1499 1+ user: 6110 ?branch 2drop 27809 r@ um/mod 774 rdrop r> 4041 +! swap 14 1- user: 14 r> rdrop 2047 dup r> 10005 and + 9342 aligned >r 88 col: laddr# 2 (?do) col: 13 2dup or 24 count defer: 21 var: ;s 1162 u> lit 1430 drop rot 9202 nip nip 2984 ?branch negate 22723 0= ?branch 27 - ?branch 10 2@ 2dup 1603 and - 27809 >r um/mod 150 move drop 14 nip 1- 18159 - 1+ 1 or ?branch 40641 col: >r 4878 ?branch dup 5638 ?branch 2dup 17449 ;s var: 40 u> 0= 8319 i c@ 1 cells allocate 20 swap var: 1431 con: * 278 @ user: 1 col: 2swap 9355 ;s >r 19495 >r user: 269 con: + 1603 con: tuck 2046 (loop) dup 17641 xor cells 150 rot move 150 pick >r 2199 count ;s 10926 col: r> 325 1- <> 1089 1- dup 93 ?branch faligned 14 2dup lit 18 cmove var: 18159 min user: 40655 defer: col: 387 /string col: 3507 0< ?branch 8614 con: - 18117 ;s (loop) 208519 user: @ 24195 ;s r> 8761 swap ! 2 dup defer: 5907 + (do) 47 drop col: 2397 (?do) con: 1162 defer: defer: 19274 @ col: 1 ;s 2! 12 rot swap 5422 con: / 12427 @ dup 10033 ;s r@ 91949 col: var: 26 pick r@ 12065 ;s over 15 2@ nip 216 does: dup 1527 branch @ 25 min 2dup 37 ?branch cells 14 r> + 1895 r@ swap 150 cells sp@ 1525 dup cell+ 518 ?branch 2rdrop 9853 col: count 1720 lit lit 34933 ;s lit 6 ! ?dup 276 noop ;s 14 open-file 0= 9632 over min 14866 dup c@ 18186 r> - 20607 /string branch 36514 col: lit 208 >r count 460 /string con: 779 con: lshift 20 cell+ var: 2651 ;s tuck 20 var: <= 13 r> rot 3061 cell+ count 17160 @ >r 1 col: 2* 6 2drop r> 11014 @ con: 1472 u>= ?branch 5951 drop con: 1 2@ col: 9205 fp@ user: 1901 over cell+ 2194 lit max 1406 swap lit 6698 ?branch 0> 16827 col: over 45645 ?branch col: 4 swap 1+ 17 count cr 119 @ r> 1 execute c! 1484 drop user: 6 var: var: 2063 pick col: 1430 d+ r> 4532 r> col: 1612 c@ lit 1 lit or 342 swap 1- 6000 cell+ @ 1500 @ 0<> 76 (+loop) dup 10286 var: dup 55618 um/mod r> 969 swap - 88 >r sp@ 1205 ;s c@ 121 ! swap 2 col: tuck 18159 2dup >r 9981 r> dup 7649 over >r 6838 dup 0< 20334 ;s 2dup 736 = swap 7 execute 2drop 1 >body @ 639 >r @ 1898 dup faligned 3977 dup 0= 1454 toupper lit 7612 rot dup 788 lit branch 2289 lit cells 3798 - lit 42 swap 2dup 4 /string ;s 1690 write-file ?dup 13360 i 2@ 1224 ;s cell+ 1524 dup 0> 801 (?do) count 12052 con: = 50665 lit and 15 over r> 1720 ?branch con: 1177 2dup r> 1368 * swap 6752 r> con: 1129 con: > 443 <> col: 63 rdrop dup 31647 + ;s 26511 dup @ 22 var: over 14 cmove 2dup 88 sp@ r> 2310 (?do) unloop 342 d>s ;s 6 ! dup 9394 lit (+loop) 20 over r@ 1264 cell+ tuck 76322 con: col: 2 compare 0= 3 col: cells 1368 con: um* 7 execute ! 172 con: @ 1164 - col: 2 nip 0<> 14 2@ dup 760 @ 2* 24 (type) ;s 1454 ?branch toupper 8 col: 0= 10365 ;s ?branch 9632 min /string 6151 col: 2dup 3 c@ and 63 within 0= 774 unloop lit 6984 unloop 2drop 2020 over swap 3854 nip execute 11007 @ /string 3043 user: col: 750 col: 2drop 1690 write-file ;s 152 + = 60 tuck ! 4772 con: dup 13593 dup col: 1234 ;s 0= 29204 execute col: 3 1+ col: 142 ;s 0> 7920 >r ?branch 16 (?do) dup 5 lit swap 1204 aligned swap 644 var: cell+ 750 min con: 789 2dup swap 4 con: defer: 63 con: con: 3 ?branch ! 14 2! 2* 31532 + @ 2195 2drop col: 17 (type) lit 726 - con: 15746 (hashfind) ;s 2 con: cells 4 cells ;s 833 u< ?branch 6452 user: +! 1204 dup aligned 342 1- (do) 7844 cell+ ;s 1895 cells lit 25 lit min 7 field: dup 4 execute cells 7612 drop (parse-white) 95407 ;s col: 2 2dup * 1327 does: col: 1216 lit >code-address 9773 c@ or 19375 swap col: 1452 @ u>= 4845 2dup cell+ 3 execute + 1 execute 2! 35 execute con: 5907 con: ?branch 63 1+ con: 7612 (parse-white) branch 8995 dup con: 33460 over c@ 88 >r fp@ 18160 2dup + 1 up! sp@ 3 * ;s 3738 2drop lit 1454 u> ?branch 10772 >r swap 2 i col: 319 dup negate 3079 @ 0< 19378 count lit 14 tuck + 760 ;s 2@ 600 2drop con: 7453 (+loop) 2dup 5907 1- cells 319 branch drop 5915 @ 0= 801 2swap dup 1368 c@ + 342 lit r> 2 tuck allocate 2794 r> ?branch 270409 col: col: 3 tuck col: 29 unloop drop 387 dnegate r> 1430 um* drop 41023 ;s con: 752 tuck - 28166 >r lit 5334 nip unloop 1291 ;s does: 1523 swap con: 37663 lit r@ 1897 ?dup 0= 4379 @ cells 873 r> /does-handler 150 >r cells 2020 >r defer: 21396 col: defer: 1 r> or 52796 ! ;s 3278 drop 2drop 7648 move c! 34611 ?branch ;s 13 over 0= 152 - count 5546 dup lit 1474 ! drop 320 +! lit 2689 dup user: 1 create-file col: 1 col: * 2169 max col: 1 2swap 2dup 7 col: + 1895 + var: 44781 col: con: 20854 ;s +! 980 branch user: 30 2dup defer: 6 u<> ?branch 4702 var: col: 1216 >code-address ;s 9549 @ ?dup 18174 >r >r user: 972 @ (f83find) ;s 630 var: ! lit 6 r> var: ! 1058 ! col: con: 1 0<> ;s col: 14 over r> + 19 execute var: ;s 6099 dup ?branch defer: 1 col: 2swap 2dup 25640 ;s rot i 1162 col: defer: defer: 4 >r var: r@ 322 @ col: over 7 field: dup var: 121 ! swap col: 15746 + @ (hashfind) 1416 +! ;s 2drop 1895 over cell+ count 4 min >r var: 79 ;s dup @ 1 >r var: @ 19 ;s drop col: 6 drop col: r> 3278 <> ?branch drop 1543 ;s col: user: 750 0<> and ?branch 1603 con: tuck 1- 9853 and 0= ?branch 20 var: <= ?branch 483 and ?branch 1- 650 con: / ;s 269 con: + ;s 1 field: ;s branch 11254 con: = ?branch 10547 /string (parse-white) 2dup 49352 ;s col: col: 126 dup col: lit 27 ?branch 1- i' 750 @ col: con: 2 col: lit * 810 - dup @ 4 r@ cmove var: 17641 col: lit + 13 >r ;s drop 750 dup 0> ?branch 55593 ;s @ ;s 13 ;s swap con: 3 execute >body ;s 2 rot ! swap 11290 var: @ col: 1 ;s create-file col: 11023 ?branch col: cell+ 3278 drop 2drop lit 20 ;s tuck ! 10414 ;s defer: col: 556 lit lit ! 2169 ;s 2dup d0= 3825 ?dup ?branch 0> 2 execute swap ;s 92 dup 0= ?branch 19 ;s swap ;s 216 execute does: dup 102 dup con: <> 6 col: 2dup u<> 724 drop user: ! 1158 2drop ;s var: 6 >r var: col: 9773 over c@ or 1895 r> var: @ 736 swap ! col: 7453 lit (+loop) 2dup 63 con: 1+ within 14 var: swap cmove 9853 >r col: count 14 cmove var: over 21 swap ;s branch 119 @ col: cell+ 74 con: branch ;s 158 (loop) col: dup 18 0= ?branch dup 20 u>= ?branch col: 4772 + ;s swap 6 con: >= ?branch 2 nip execute over 951 dup @ dup 10 count con: col: 736 ;s tuck swap 9632 user: @ over 60 tuck ! cell+ 88 fp@ >r col: 3610 @ ?dup ;s 852 (?do) i c@ 1896 >r var: lit 1 var: 2! var: 3057 + col: col: 6 lit @ var: 16 +! col: var: 27 ?branch 2drop con: 20 - ?branch 2drop 6752 r> con: col: 319 swap - col: 20 col: does: col: 1895 var: lit cells 27 unloop ;s dup 119 @ r> col: 150 pick >r cells 1430 rot user: @ 739 ?branch col: >r 2778 col: >r dup 126 ! ;s >r 2 ;s dup rot 7612 + c! col: 24 lshift ;s ;s 35 nip execute con: 20 <= ?branch con: 2169 over < ?branch 1859 @ col: lit 5897 user: @ con: 1291 ! ;s does: 172 con: @ col: 774 (loop) unloop lit 17 cell+ ! branch 27 2drop rdrop user: 1510 var: count con: 14 ?branch ;s r> 2146 @ col: var: 1257 col: var: col: 25 (+loop) unloop drop 4845 2dup cell+ @ 760 drop user: @ 22073 ?branch over c@ 71 +! user: @ 85 user: ! rdrop 15 nip ;s - 6 execute drop ;s 13 pick rdrop dup 118 ;s drop ;s 873 /does-handler + col: 12 ;s ! col: 75 2drop branch ;s 1895 >r drop r@ 1895 r> ;s tuck 7750 con: swap ! 651 branch ;s branch 2169 < ?branch lit 13 r> r> rot 5017 swap user: ! 1248 var: @ ! 9342 r> dup count 2 ?branch i 1+ 282 ;s ;s defer: 2020 /string over swap 2063 lit pick col: 14 var: swap ;s 2 0< ?branch drop 2 var: ;s ;s 1454 = ?branch toupper 3 lit <> ?branch 53 swap con: - 28 con: ;s lit 1898 dup faligned swap 17 ;s drop swap 1 (type) ;s 2dup 22 @ 2dup u> 2148 ;s 2drop ;s 11906 + ;s c! 6100 2dup col: var: 518 nip ;s ?branch 3 @ dup @ 38761 var: @ + 3404 ;s ;s user: 1022 drop ;s branch 518 drop 2dup 2>r 36015 con: col: col: 873 @ ;s does-code! 38 @ col: 2dup 2169 - lit over 821 ;s - col: 105626 col: col: user: 20674 ;s c! ;s 889 drop r> ;s 6 0< ?branch lit 1106 ! branch var: 29 ;s swap 2dup 542 0= ?branch ;s 160 dup ;s col: 57 count ;s col: 1 var: over 1- 9960 col: col: lit 14 col: 2dup lit 14 dup >r 2@ 13 ! col: ?dup 774 ?branch nip ;s 2046 (loop) dup lit 1291 ;s does: col: 1 tuck - dup 3913 dup ?branch 2drop 15747 >r 2dup col: 2056 cell+ cell+ ;s 15746 ;s r> xor 5004 var: @ swap 1162 lit u> lit 4379 @ cells + 27 r> - ?branch 7648 >r rot over 1998 rdrop ;s ;s 6 2dup u<> ?branch 3477 = ?branch col: 1 ?branch @ col: 6 ;s con: ! 319 ?branch branch drop 1532 nip col: cell+ 19 nip execute var: 1 var: @ = 2 user: @ var: 14 >r var: swap 83 r> r> user: 14 1+ var: 2! 14 >r con: open-file 9342 swap >r ;s 5907 @ 1- cells 1430 swap user: @ 5508 cells + ;s 1265 var: @ @ 426 ! r> user: 1 cells / ;s 5004 col: con: rshift 1168 @ over ! 25091 c! ;s ;s 414 >r ?branch col: 7612 (parse-white) branch 2dup 26295 ;s lit col: 774 2drop rdrop r> 518 ?branch 2rdrop branch 229 dup var: ! 639 r> dup cell+ 1162 @ @ over 7 and ;s ;s 4191 execute col: col: 3693 ;s con: - 1 nip execute 2! 319 negate user: +! 26409 (loop) con: col: 751 2drop col: col: 4772 ;s con: / 1895 ! r> var: 1205 + ;s c@ 17641 col: con: (hashkey1) 3 ?branch ! ;s 639 cell+ >r @ 1603 and ;s lit 1895 @ rot ! 118 ;s con: var: 22073 r@ <> ?branch 466 ?branch ;s lit 2889 dup ?branch lit 9853 lit r@ lit 40 u> 0= ?branch 1 user: ! fp@ 725 ?branch ;s ?branch 1500 var: @ 0<> 387 lit /string col: 9342 aligned >r swap 6099 col: 2dup col: 736 dup cell+ @ 20 @ dup lit 14315 ?branch col: col: 76 (do) dup i 1500 col: ;s var: 739 ! con: swap 25 swap lit max 1 defer: (type) con: 7 ! over c@ 102 ;s con: = 150 cell+ rot move 2169 lit over < 12 >r >r col: 1 ?branch ;s >r 1 ;s rp@ user: 1452 @ u>= ?branch 18159 + r> - 319 lit over = 71 ! >r ;s 6 ;s con: @ 4025 ;s (loop) unloop 5334 nip unloop ;s 1895 tuck cell+ ! 5 >body user: @ 739 r> ;s over 16 lit (?do) dup 1 >body @ col: 1 con: ;s 0= 12 ;s rot swap 5907 con: ?branch lit 6 nip execute drop 9853 dup ?branch col: 736 lit <> and 27 rdrop user: col: 750 ;s col: 2drop 858 dup col: cell+ 122 r> ;s dup 88 swap >r fp@ 1 2@ 2* cells 740 d<> ?branch ;s 5004 @ swap col: 1162 ;s ?branch dup 387 >r ?branch lit 18159 r> - 1+ 191 ;s 0= ?branch 760 user: @ 2* 27806 ;s ;s col: 152 i - count 10547 @ /string (parse-white) 20 rdrop ;s tuck 62 = col: col: 93 0<> ?branch faligned 150 r@ col: dup 2 lit col: ;s 2020 - dup r> 32 2dup u< ?branch 20854 ;s +! ;s 1430 r> ;s (loop) 1 ;s cr col: 14 invert and ;s 3825 ?branch nip col: 1 rshift 1+ col: 15746 2dup col: con: 521 ?branch user: +! 6719 col: dup 0< 88 >r col: laddr# 1 1+ var: @ 7 rot r@ col: 1430 col: dup 0= 1895 ;s tuck cell+ 1 nip execute move 88 >r sp@ r> 14 cmove 2dup var: 4041 ?branch read-line col: 2169 @ c! ;s 2 con: rshift 1+ 16 - dup ?branch 1162 var: @ and 789 2dup swap col: 27 1- i' i 5376 +! ;s ! 20 dup var: <= 14 dup >r con: 4041 ?dup ?branch read-line 1 rshift 1+ r@ 13 - swap lit 27809 >r um/mod r> 774 unloop lit branch 1895 ! r@ swap 88 user: ! execute 17 defer: (type) lit 750 dup ! ;s 25 lit min 2dup 9342 col: r> r> 5907 col: drop con: 319 over = ?branch 92 dup col: con: 100 r> ;s r@ 2169 2dup d0= ?branch 6951 i c@ col: 18159 min user: ! 4 nip execute cells 2020 col: >r defer: 14 tuck + swap 7 >r rot r@ 460 /string con: col: 853 swap ;s (?do) 24561 user: ! ;s 28685 @ ;s user: 89 rp@ user: ! 14 var: r@ + 2 over lit (?do) 85 rdrop lit ;s 1162 2dup 2dup r> 20 r@ u>= ?branch 724 ! col: user: 17 drop swap cell+ 23 over col: lit 4 ;s lit swap 141 + ;s ;s 756 col: over col: 5054 col: col: con: 13 >r r@ pick 342 d>s ;s ;s 2031 lit col: lit 342 >r lit lit 6 +! var: @ 1 lit ;s ?dup 1 compare 0= r> 14 var: 2@ tuck 801 c@ lit - 1 0= >r 2dup 1 ?branch con: lit 13 user: @ close-file 3061 cell+ count lit 9204 ?branch fp@ user: 1 fill ;s var: 1210 and con: write-file 13 or col: dup 1690 write-file ;s col: 13360 2@ over <> 3 + @ col: 2169 ;s rot lit 5897 @ con: col: 2 nip execute create-file 118 con: <> col: 322 var: cell+ ! 27897 r> swap >r 1216 col: lit >code-address 750 2@ var: 2@ 71 = ?branch r@ 1895 fill ;s r> 6 drop ;s dup 1 var: lit r@ 756 over col: ;s 1430 ?branch col: swap 2737 ?branch ;s var: 1210 @ lit col: 1210 + ;s count 76 con: - unloop 8197 unloop ;s ;s 20650 branch dup ?branch 7817 @ ;s col: 19706 r@ lit and 808 c@ lit = 16 var: @ 0< 1 drop var: @ 28 c@ ;s col: 6 var: @ 0= 14 dup >r var: 994 ;s dup col: 1 + lit swap 750 dup @ tuck 5656 ;s ;s branch 20 over r@ u>= 133 dup col: var: 774 2* cells + 5907 col: drop var: 1727 ;s ;s 2drop 5600 con: write-file col: 1 rdrop ;s over 9853 r> lit and 1 lit (?do) i 801 = dup >r 18159 r> min user: 2 lit * ;s 9204 > ?branch ;s 1164 ;s ;s swap 13 r@ pick rdrop 3669 ;s lit + 5004 rshift ;s col: 5102 count lit col: 28 col: >r >r 8 col: 0= ?branch 1408 user: @ >r 1 ;s 1- con: 5102 dup count lit 736 and ;s ?branch 4 var: r@ cmove 1 0<> ;s 0= 7612 c! ;s con: 48991 col: col: var: 460 @ /string con: 4 0<> ?branch 2drop 342 swap 1- (do) 1158 ?dup ?branch 2drop 322 var: cell+ @ 1898 faligned swap (?do) 1454 ?branch toupper lit 15749 @ + @ 2020 over swap r> 86 rdrop ;s con: 748 0> ?branch lit 1502 var: ! var: 980 ;s branch user: 4619 var: @ ?branch 1324 col: lit col: 491 execute col: defer: 1 close-file col: ?dup 9853 col: count lit 57 over col: col: 5013 dup c@ 0= 774 0> 0= ?branch 4851 user: @ lit 3 + ;s branch 1 lit > ?branch 10005 and + faligned 25640 i c! (loop) 25 does: swap lit 1205 ;s xor r> 323 user: ! user: 150 dup cell+ rot 15 r> -rot move 1445 col: swap >r 1 execute col: 1- 630 @ ?branch lit 6410 dup 0< ;s 88 sp@ r> swap 14 col: col: 2dup 17 ;s defer: (type) 1470 lit = ?branch 13 lit ;s r> 25 ;s r> r> 6410 0< ;s r> 2039 >r dup ?branch 6410 unloop 2drop ;s 4772 con: dup @ 2 unloop drop branch 6099 defer: col: 2dup 4 swap 1+ /string 5013 ;s dup c@ 3 >body ;s branch 142 ;s 0> ?branch 63 col: 1+ con: 1 compare 0= >r 152 dup i - 2 ?branch ;s over 1237 dup user: ! 1 execute move ;s 1898 ;s move ;s 3 col: col: ;s 875 @ con: <> 30 2dup defer: (type) 7612 min /string rot 736 <> and ;s 5104 col: dup count 319 dup negate user: 2020 over - dup 821 col: lit user: 1224 xor swap c! 27 ;s ?branch 1- 750 @ 0<> ?branch 750 @ tuck - 1062 drop ;s ;s 14 (?do) dup >r 7 nip execute ! 1897 @ ?dup 0= 102 con: <> swap 14 nip r> rdrop 4 con: defer: noop 2614 ! ;s var: 12 swap dup user: 1205 @ dup >r 2020 >r over - 750 ;s 2@ var: 7651 user: @ ?dup 1368 c@ + swap 460 ;s 2drop lit 760 2@ drop user: 1527 branch @ dup 37 + @ user: 801 >r user: col: 518 ;s ?branch 2rdrop 13 swap 2dup or 17 (type) ;s defer: 1895 and col: con: 3 nip execute + 1 0= r> or 2218 rdrop ;s var: 8996 ?branch lit r@ 181 rdrop branch ;s 6410 col: >r col: 1895 r@ @ rot 3043 user: col: con: 35 con: ;s branch 9776 /mod rot + 1898 @ ;s swap 1368 + swap i 6 cells - var: 777 col: var: 2@ 1897 ?dup 0= ?branch 6 @ lit ! 3 r@ write-file col: 2020 >r defer: col: 75 ;s 2drop branch 1162 @ and ?dup 325 ?dup ?branch 1- 2 allocate col: col: 15 swap >r dup 25 - lit min 10 ;s 2@ 2dup 1205 ;s c@ ;s 25 (type) (+loop) unloop 1452 dup user: @ 4169 nip r> ;s 1495 ;s ;s count 1204 dup aligned swap 9370 and ?branch r> 76 - con: - 650 - con: / 2 ?branch ;s nip 3393 dup @ con: 4 branch con: defer: 5490 dup ?branch nip 4845 ?branch 2dup cell+ 17 cells + count 460 +! ;s con: 5 nip execute @ 955 branch ;s dup 50 r> ;s rdrop 10404 ?branch ;s defer: 4828 = ?branch @ 148 @ dup col: 22 lit var: +! 1895 (hashkey1) ;s xor 13 ! ;s rdrop 2169 max col: >r 27809 um/mod r> swap 13 lit ;s user: 801 lit = dup 5021 2drop ;s branch 4041 user: +! swap 1368 swap i c@ 98 dup ?branch r> 17641 con: (hashkey1) ;s 1106 branch var: col: 1 1+ col: col: 4748 branch lit (+loop) 14 nip 1- user: 17 (type) lit does: 1 con: cells col: 22625 dup field: @ 556 lit ! user: 5907 1- cells over 1457 @ lit = 1 lit swap c! 977 ;s @ dup 1 @ lit > 15 dup allocate col: 736 @ lit <> 37 cells var: + 1216 ;s code-address! ;s 1210 lit and con: 3 over c@ and 483 ?branch 1- r> 2021 ;s >r over 142 rdrop ;s 0> 736 col: var: ! 13 >r >r lit 1 ! ;s cr 119 ;s >r dup 216 does: dup var: 4044 ?branch ;s branch 1 ;s over r> 7 @ >r var: 5004 swap col: var: 1 1- + c@ 460 and ?branch col: 4918 ! ;s lit 2310 lit - dup 821 ! ;s over 20 ;s over r@ 4 ;s does-handler! ;s 7612 /string rot dup 789 drop ! ;s 14 tuck 1+ 2* 9204 > ?branch fp@ 1690 write-file ?dup ?branch 14 ;s nip ?branch 1204 ;s dup aligned 160 ;s nip ;s 1895 @ + var: 40 cell+ tuck ! 13 @ close-file swap 3393 col: col: cell+ 5004 col: var: + 8397 col: dup col: 27809 um/mod r> ;s 1 2* cells col: 12427 ! ;s ;s 6 ?branch dup var: 93 faligned nip ;s 22 execute col: does: 2889 ?branch lit and 13 rot col: con: 1252 ;s user: col: 1 create-file col: ?dup 9936 ;s col: dup 15749 cells var: @ 1690 con: col: dup 14 cells resize col: 742 ! ;s con: 12 rot swap col: 2325 user: ! col: 1 @ ;s 1- 12 ;s ;s rot 2 nip 0<> ;s 639 dup cell+ >r 77 = ?branch i 1 i 1+ var: 8 var: @ lit 13 r> rot col: 2 ;s over lit 276 defer: noop ;s 1 or ?branch 2drop 1216 >code-address ;s col: 173 ;s swap ! 1 defer: noop var: 5659 ;s ?branch col: 32 ?branch = ;s 3 /string ;s ;s 1162 and ?dup ?branch 1750 branch ;s user: 630 ?branch lit var: 7179 ;s (loop) con: 25069 @ field: @ 760 var: 2@ drop 7 branch col: var: 63073 col: var: @ 14 ?branch var: 2@ 8061 @ dup ?branch 4235 @ con: = 6 @ ?branch over 521 r> ?branch user: 14438 ;s ;s lit 1926 col: con: col: 5907 drop var: dup 119 branch dup col: 2 col: tuck allocate 33 ;s char+ c@ 6 ! var: var: 1399 u> ?branch dup 1 lit r@ write-file 7119 >r ?branch rdrop 3825 r> ;s ?dup 50 ! col: lit 2 lshift ;s branch 1 con: 0= ?branch 7612 ?branch drop (parse-white) 14 + col: dup 208 ?branch ;s ?dup 14 var: over r> 2338 and col: ?dup 6410 (do) con: col: 5907 over + (do) 13 drop col: var: 18159 ;s 2dup >r 873 does-code! ;s ;s 6 ?branch 2drop r> 106 @ ?branch con: 14 nip ?branch var: 322 cell+ ! col: 108 ;s col: cell+ 1 nip execute c! 445 branch lit col: 2169 con: - lit 319 branch drop ;s 150 sp@ cell+ dup 4169 dup ?branch >r 1 drop var: 2@ 600 2drop con: ;s 2 dup defer: col: 5 unloop ;s branch 3610 ?dup ;s ?branch 1 ;s >r var: 1 1- ;s ;s 19 drop ;s drop 88 @ >r rp@ 4772 con: / col: 88 ;s >r user: 27 dup r> - 774 lit branch ;s 75 drop 2dup col: 7612 @ ;s count 22 var: ! drop 71 user: +! user: 103 @ @ dup 4041 branch lit user: 6 var: var: ! 102 <> and col: 212 ?dup ?branch col: 518 2>r col: col: 838 dup col: dup 573 (+loop) unloop 2drop 71 col: dup ?branch 2046 + (loop) dup 7 col: + ;s 14 2@ tuck 1+ 25640 rot i c! 739 swap col: ;s 9776 swap col: con: 6 cell+ ! dup 1368 swap con: um* 9776 lit /mod rot 2 (?do) col: dup 6 var: ! ?dup 2008 0> ?branch col: 13 col: drop >r 2 - col: var: 754 ?branch drop r> 1898 +! ;s move 4 ;s branch con: 342 unloop d>s ;s 1 swap ;s 2dup 7 execute 2drop ;s 2048 pick + (loop) 16464 execute col: lit 1216 lit >code-address ;s 1089 1- dup 0= 750 tuck - ;s 387 ?branch dnegate r> 36 ;s over char+ 63 * 1- >r 1 2! var: up! 85 rdrop rdrop lit 4790 0> ?branch nip 13 over 0= col: 10420 ?branch ;s ;s 10286 var: dup @ 334 col: user: col: 10 0< ?branch ;s 15 pick col: lit 272 col: defer: noop 4034 0= ?branch col: 349 @ ?branch var: 150 col: dup 1+ 119 user: ! swap 736 col: dup cell+ 15 r> drop col: 4772 dup @ + 2860 user: @ um* 1898 lit fill ;s 3 ! defer: drop 217 count col: col: 386 lit cells + 14 + swap cmove 75 ! ;s drop 6 lit cells - 1 up! sp@ dup 1 lit cells / 1 +! lit ;s 1419 d0= ?branch col: 216 ! col: cell+ 1430 um* d+ r> 69 nip ;s col: 15 -rot move ;s 7 - ?branch dup 387 dnegate r> user: 7750 col: con: swap 46 ;s ;s r> 1220 r> col: col: 20607 lit /string branch 3 * ;s ;s 156 ?branch nip branch 4695 ;s user: ! 79 ;s ;s r@ 61 code-address! ;s lit 21332 lit col: col: 2 over ;s branch 1 ;s r> close-file 42 cell+ ;s col: 88 ! execute col: 763 @ col: dup 9370 ?branch r> lit 319 +! lit over 2 execute 1- ;s 6 cell+ dup @ 71 r@ user: +! 3 ;s invert over 150 1+ pick >r 2 r> tuck - 53 u<= ?branch dup 5 ;s 2dup defer: 1 +! ;s 2! 20 lit >= col: 15 drop col: con: 6 var: +! var: 1205 xor r> col: 20957 ?branch lit /string 1327 does: col: var: 21 lit lit col: 149 + ;s var: 14 2! 2* cells 18 branch 2dup u> 3669 lit + aligned 1486 count col: dup 575 col: lit lit 15 2@ lit (?do) 4 cmove var: r> 856 ;s var: col: 27 con: ;s dup 15746 xor cells var: 2020 user: +! ;s 63 within 0= col: 4041 ;s con: user: 103 - unloop ;s 4 cr ;s ;s 4 col: - ;s 1128 ;s over col: 1 con: lit ! 14 unloop 0<> lit 1 @ ?branch drop 3441 ;s @ col: 37 ?branch cells var: 6 over ! lit 20570 <> ?branch lit 32 @ ;s - 9342 r> r> dup 1895 0< ?branch @ 760 @ 2* cells 1 dup >r lit 1 cells col: col: 15746 @ >r 2dup 89 con: var: @ 388 ?branch r> user: 25 lit (?do) i' 7 var: field: @ 1 ;s r> tuck 1129 var: @ 1+ 93 lit over 0<> 34111 ;s user: @ 18 ;s branch 2dup 15414 col: col: dup 1 noop var: @ 25 (?do) i' i 6099 (loop) i c@ 1089 var: @ 1- 1 var: up! sp@ 22 ?branch var: ! 63 con: * 1- 1205 c@ ;s xor 3854 nip nip execute 37 ! lit /string 2 lit (?do) col: 801 dup >r ?branch 14 2* cells resize 1700 ?branch var: count 14 resize col: ?dup 27 r> swap ;s 2048 ! ! ;s 1 execute c! ;s 93 over 0<> ?branch 55520 @ ;s @ 4 ;s /does-handler col: 848 lit (?do) unloop 745 over col: cell+ 10839 <> ?branch col: 1233 @ >r user: 1 col: 2* ;s 187 - swap col: 2130 ;s con: write-file 88 >r fp@ >r 50 ;s rdrop dup 5 col: col: 0= 1 col: * ;s 2886 ! ;s user: 18 noop ;s col: 63 con: con: 1+ 1 ;s drop var: 4 execute cells ;s 4041 con: user: @ 1162 over ! var: 4 2drop col: lit 10 2! col: col: 150 cell+ dup cell+ 3154 pick ! ! 93 ?branch faligned nip 109 @ user: ! 18159 2dup >r >r 7 + swap r> 7 and ;s dup 3 var: @ tuck 4 = ;s ;s 72 @ >r >r 7612 branch 2dup + 933 ?branch ;s dup 58 >r ;s col: 4359 ;s ?dup ?branch 842 dup ?branch dup 1222 var: @ field: 2 1- ;s branch 7867 col: col: defer: 1 ! fp@ user: 8039 ;s col: var: 4 col: >r ;s 126970 user: @ ;s 2 drop con: col: 12 nip ;s swap 160 ! ;s nip 2716 ?branch var: @ 18408 @ > ?branch 7648 over 1+ r> 2 col: does: @ 3 col: cr ;s 1611 over c@ lit 4 dup ;s ;s 1 (?do) i col: 1641 swap (?do) con: 4918 @ = ?branch 15 ;s - dup 4772 ;s ;s ! 1179 ! branch ;s 3081 ! lit col: 629 ! user: col: 1 r> close-file col: 342 ;s swap 1- 5522 - ;s con: 88 laddr# ;s >r 7605 over + swap 37 /string branch ;s 19 var: ;s branch 1499 r> ?branch 1+ 1 @ lit (?do) 14 con: open-file 0= 1305 rdrop ;s branch 14 r> rdrop lit 801 lit lit 2swap 150 dup 1+ pick 1 ;s 2dup col: 1895 + dup @ 1 lit ! lit 32 con: var: col: 4 r> ;s ;s 7 ;s ;s + 1 execute col: 2* 1 > ?branch con: 41 ;s ;s - 4 /does-handler col: col: 169 @ user: @ 14 ;s var: swap 1235 ;s col: r> 3061 ! ;s ?branch 774 dup 0> 0= 4772 + swap does: 16720 col: var: +! 33 ;s ;s char+ 2 * allocate col: 152 - count lit 1454 toupper lit - 518 2dup 2>r col: 58 lit ;s col: 208 dup >r count 88 col: >r sp@ 1368 swap lit (+loop) 1 ! ;s rp@ 1 cells col: swap 230 nip execute does: 1 + c@ lit 58 ;s lit user: 483 1- r> lit 1461 swap (?do) unloop 13 drop col: ?dup 1430 um* drop rot 342 (+loop) unloop d>s 1690 r> write-file ;s 15 >r dup allocate 25595 @ execute col: 873 ;s does-code! ;s 52 i' i - 14 r@ + swap 801 lit (?do) count 1 / ;s var: 234 ;s dup 0= 119 @ ?branch user: 19962 col: defer: col: 6410 ;s r> con: 76 ?branch i - 1 ?branch con: cells 137 0< ?branch col: 4 defer: (type) compare 2169 @ lit max 2 fill ;s ;s 656 (loop) count col: 1162 0= lit and 25 lit max lit 6 ! dup @ 3121 ! col: col: 1 1+ r@ write-file 1 2drop dup >r 1 ;s (?do) unloop 980 ! ;s 0= 4 @ ?branch ;s 36 over char+ col: 8621 ;s col: over 9342 count + aligned 11 var: 2! col: 1 move ;s drop 7 ;s var: field: 1162 u> lit and 16720 var: +! ;s 960 lit col: dup 14 2dup 1+ var: 22073 dup ?branch over 1216 ;s dup user: 13 ;s drop con: 3 invert over c@ 1 @ con: cells 6 var: @ over 9853 cell+ dup c@ 24 count defer: (type) 745 ?branch var: col: 17 over var: @ 1168 col: dup lit 1 ?dup ?branch r> 1 2swap 2dup col: 15 var: 2@ lit 724 ?branch drop user: 14 swap cmove var: 2 nip execute lshift 100 ;s r@ col: 79 @ ;s rot 10 2@ 2dup con: 4 (type) ;s col: 320 user: +! lit 18 cr col: col: 1603 and - lit 4 col: = ;s 11144 rot + swap 1797 ;s col: con: 1603 - lit and 9158 ?branch rdrop ;s 26 r@ pick r@ 1121 branch ;s col: 12115 @ col: col: 1895 cells >r var: 1897 pick @ ?dup 7 var: @ con: 1555 con: ;s ?branch 4888 ;s swap col: 9776 col: lit /mod 28 = ?branch var: 1 col: lit or 1224 ;s cell+ tuck 24 ;s count defer: 3278 ?branch drop 2drop 13312 @ ;s lit 319 = ?branch branch 27 unloop drop ;s 369 col: lit cells 1 + dup user: 25 defer: (type) (+loop) 14276 count lit and 1898 ;s dup faligned 1129 con: > col: 4366 ;s branch lit 152 + faligned over 779 col: con: lshift 1895 + var: @ 1427 u>= ?branch con: 6854 c! ;s (loop) 3063 dup @ 0< 6765 ;s col: >r 7 lshift ;s lit 10 2dup con: write-file 1430 drop rot user: 20 >= col: col: 2048 ;s lit pick 996 @ ?branch defer: 1 col: var: over 1895 ;s r> ;s 150 move drop r> 2889 and ?branch nip 76 ?branch drop lit 11000 swap c! ;s 650 swap - con: 1430 swap >r swap 2456 + ;s ! 985 ?branch 2drop col: 5004 + swap col: 1158 2drop 2drop ;s 7648 r> move c! 10576 ;s over c@ 44 0> ?branch dup 1368 * swap con: 1 r> or ?branch 1430 d+ r> ;s 97 var: @ user: 3521 nip execute col: 13 2dup or col: 49 dup con: ! 2 col: var: ;s 2486 user: @ col: 14 0<> lit and 7 field: @ col: 13805 col: ?dup ?branch 4772 swap does: + 1998 user: @ dup 1129 @ 1+ dup 7648 move c! ;s 27809 lit r@ um/mod 1 /string ;s var: 7629 = ?branch drop 25641 con: col: >r 1220 var: @ var: 6752 con: col: over 739 ;s ! con: 20 @ swap var: 1228 @ ?branch dup 1 @ ;s r> 1162 defer: defer: col: 875 con: <> ?branch 1 >r over >r 1 @ ;s r@ 325 1- <> col: 1210 ;s count lit 13360 over <> ?branch 119 r> col: cell+ 750 var: 2@ d<> 1 2@ col: col: 15 ;s r> drop 26058 ;s con: col: 119 swap ! var: 63 lit col: 1+ 32 col: 2dup u< 14 col: 1- tuck 14 1+ 2* cells 5 ;s >body user: 1162 @ ! branch 40 ! cell+ tuck 63 1+ con: * 4 (type) compare 0<> 1368 + swap lit 1895 ?branch @ over 4 +! ;s does-handler! 750 swap col: cell+ 2172 + ;s @ 51 = ?branch lit 878 cell+ ;s ! 14 >r 2@ dup 5635 dup ?branch 2dup 22 var: @ 2dup 1603 tuck 1- and 3 dup @ ?branch 3 @ tuck col: 322 @ var: cell+ 739 con: swap col: 6869 and ?branch ;s 7715 dup con: = 14 2dup var: r@ 1895 ;s xor cells 2140 count ;s con: 573 unloop 2drop con: 1129 dup con: > 9632 over min /string 15746 (hashfind) ;s ;s 6 >= ?branch ;s 120 ! branch lit 9854 sp@ user: @ 9859 col: cell+ dup 102 - swap ! 13 close-file swap 2dup 5 execute col: over 26 pick r@ pick 1 ;s 2! ;s 2048 dup lit pick 165 = ?branch con: 272 noop col: col: 1 execute col: * 4 cells ;s branch 1 2drop drop con: 13 ;s col: drop 7 execute col: + 1162 @ col: >r 4 execute col: - 2 count ;s compare 2463 dup ?branch ;s 1430 >r swap user: 6885 dup ?branch drop 2 dup count col: 22625 col: dup field: 17 col: over var: 18159 2dup + r> 1 2! ;s defer: 4 rdrop ;s lit 3 c@ lit <> 750 0<> ?branch col: 801 (?do) count col: 1761 ;s col: ?dup 80 execute col: con: 431 ?branch col: over 1458 ?branch con: ;s 27809 swap >r um/mod 30 ?branch drop con: 1459 ?branch dup user: 2 execute over ;s 1895 rot ! r@ 20 swap var: ! 6845 cell+ ;s @ 1430 @ um* drop 736 @ ;s tuck 1 ! var: ! 1 1+ col: cells 4 execute col: = 25 u>= ?branch drop 1368 con: * swap 803 col: lit (?do) 880 execute col: @ 1 col: drop ;s 6011 con: col: var: 857 ?branch @ lit 5 ?branch col: con: 6 ?branch over col: 23847 field: @ execute 10364 ;s ;s over 4845 cell+ @ = 801 >r col: lit 24 defer: (type) ;s 2 2! ;s branch 2 nip execute swap 2020 dup r> ?branch 2 ?branch 2dup * 2169 +! @ c! 4 @ ;s /does-handler 1 ;s col: 2swap 1 ?branch 2dup + 22595 lit and ?branch 1 lit ;s (+loop) 7 ;s + swap 1527 ;s branch @ 7453 (+loop) 2dup i 7612 count + c! 42 drop con: ;s 15746 (hashkey1) ;s r> 1162 and ;s var: 7 r> col: 1- 3169 @ lit pick 1 fp@ user: ! 10547 defer: col: defer: 443 <> col: col: 3 defer: drop ;s 13 >r drop col: 156 nip branch dup 1 @ ;s >r 4748 ?branch drop branch 3 @ ?branch ! 40 @ swap con: 5788 col: cell+ ;s 102 <> swap con: 27 swap ;s dup 1224 tuck c@ xor 5603 write-file col: ?dup 89 col: ;s ;s 6394 ;s ;s con: 789 ?branch 2dup swap 1129 > col: col: 9204 ! ;s dup 1 ;s cr ;s 6 over cell+ ! 15 drop r> col: 14 var: 2! 2* 1711 dup col: ;s 364 nip ;s dup 7 ;s dup field: 1205 >r col: col: 7119 ;s >r ?branch 969 @ swap - 1 ?branch 2dup 1- 1500 ;s var: count 58 2drop ;s r> 8768 +! ;s c! 446 ;s lit var: 943 code-address! ;s ;s 779 con: lshift ;s 1 over col: tuck 14 lit branch unloop 14 swap cmove 2dup 6430 ;s var: ! 2663 ! var: @ 1 cells allocate col: 1895 cell+ ! r> 1603 col: con: tuck 99 execute col: var: 325 / ;s ?dup 49 nip ;s user: 2020 min /string over 55 dup lit u<= 77 2dup col: col: 1162 >r 2dup 2dup 387 r> ?branch dnegate 4 and ;s 2dup 1 (type) con: col: 1 ?branch drop var: 14 2@ nip 1- 32 = ;s 0= 2169 over +! @ 14 rdrop lit branch 23847 field: @ field: 1895 xor cells >r 801 lit 2swap dup 5907 cells over + 2006 dup >r col: 7 var: ! defer: 9342 dup count + 4379 dup @ cells 225 ?branch col: lit 3105 ?branch 2drop ;s 1224 cell+ tuck c@ 5909 user: @ 0= 774 rdrop r> ?branch 2043 var: @ dup 976 ;s swap user: 1895 col: lit pick 27 ?branch dup r> 160 r> ;s ?branch 644 ?branch col: var: 9835 dup col: col: 9204 fp@ user: @ 1 unloop 2drop drop 16 execute does: col: 9342 + aligned >r 1452 user: @ u>= 27 ;s branch r> 7605 col: over + 37584 ;s ;s dup 342 lit lit r> 14 2! ;s var: 593 ?branch drop 2dup 1 2* ;s ;s 270 branch ;s ;s 2 execute lshift ;s 150 rot move drop 4 ?branch defer: noop 873 col: r> /does-handler 61331 col: col: col: 1162 r> col: dup 62 r> ;s 0= 7648 rot over 1+ 1224 drop ;s user: 8293 ;s var: @ 3 c@ and swap 2027 swap r> col: 138 @ ;s over 3349 ;s ;s var: 3 ;s ;s invert 15 var: 2@ nip 86 @ ! ;s 24003 defer: col: col: 2169 lit max col: 12 ;s var: 2! 801 dup lit u< 2268 ?branch dup @ 178 ! ;s branch 4 noop col: r> 5908 execute col: drop 2616 dup lit u> 5280 user: @ ?branch 9773 c@ or swap 27 ?branch r> swap 460 2drop lit col: 102 con: <> and 92 (f83find) ;s dup 1524 ?branch drop ;s 2686 swap col: lit 3047 branch col: user: 1560 con: - dup 1 var: over col: 6 u<> ?branch drop 1204 aligned swap (?do) 1 ?branch 2drop dup 2 dup rot ! 14186 @ ;s con: 18159 - 1+ r> 1155 cell+ @ col: 9202 ?branch nip nip 20 ! cell+ var: 576 execute col: user: 2169 ;s ;s 2dup 76 con: (+loop) dup 3 col: cells var: 76 drop lit col: 6099 ;s (loop) i 1 ! lit + 1898 col: dup >r 14 swap 2dup 1+ 119 @ dup 0< 6 lit ! var: 5 @ ;s branch 9853 faligned ;s r@ 1224 @ dup 0= 3154 lit pick ! 1524 @ dup 0> 4169 >body nip r> 3170 var: ! ;s 93 col: lit over 181 ?branch rdrop branch 1 over 1- con: 85 rdrop rdrop rdrop 8997 0= ?branch lit 3154 dup @ lit 980 branch user: @ 309 over col: over 1499 1+ user: +! 14 >r col: swap 1 1+ col: tuck 368 execute col: dup 212 code-address! ;s con: 14 ;s var: 2@ 518 2rdrop branch ;s 43424 ;s ;s ;s 1934 c! ;s col: 2766 unloop ;s col: 119 ;s @ r> 2048 lit pick + 639 col: r> dup 20 @ dup var: 315 ;s ;s drop 28151 col: >r lit 75 rdrop ;s col: 1 var: @ ?dup 76 col: lit con: 2048 pick col: dup 5004 con: rshift ;s 97 @ ?branch cell+ 6410 ;s (do) con: 4750 drop branch lit 63 rdrop dup col: 1 2dup 1- + 4 - ;s ;s 1514 lit col: user: 1224 c@ xor swap 387 r> ?branch r> 2723 dup 0= col: 92 col: col: @ 10547 (parse-white) 2dup + 7 r@ col: 1- 1026 (+loop) con: * 1603 1- and - 6 ?branch ;s >body 4041 +! swap user: 2544 @ ;s var: 9776 + c@ ;s 1 = ?branch user: 7119 >r ;s >r 72 >r ;s user: 290 and ?branch var: 969 user: @ swap 1897 lit pick @ 10 +! ;s ;s 1457 count col: user: 22073 over c@ r@ 4169 >r >body nip 76 ?branch con: (+loop) 858 >r dup col: 14 branch unloop 0<> 25 i - lit 98 ;s r> user: 18694 >r user: @ 32 col: con: <> 6 @ con: >= 5907 (do) 2dup i 6 var: @ >r 1 col: con: 0= 7 = ?branch 2drop 4934 lit user: ! 650 ;s col: sp@ 1690 dup >r write-file 1474 ! drop ;s 1499 ?branch 1+ user: 460 2drop col: defer: 6410 swap ;s (do) 2 ;s compare 0= 18159 @ ;s 2dup 4041 read-line col: ?dup 736 = swap col: 208 does: @ execute 1 tuck - lit 27 2drop user: ! 208 >r count col: 1 var: 2@ col: 4 ?branch con: min 15 >r lit col: 980 2drop col: user: 2658 ?branch ;s col: 102 and col: col: 1326 ;s ?branch var: 639 >r @ col: 801 lit u< ?branch 119 <> ?branch dup 16 col: lit var: 32 u< ?branch = 269 col: con: + 1216 ! ;s code-address! 1 c! 1+ col: 801 ?branch 2drop rdrop 2 ?branch dup defer: 4772 col: con: - 7 execute ! ;s 9853 c@ >r col: 3 col: con: var: 2169 lit + col: 1 cells col: lit 1690 count r> write-file 1960 ?branch ;s user: 6410 (loop) unloop 2drop 14 rdrop ;s nip 1 con: cells allocate 40 2dup u> 0= 27 i - unloop 7605 + swap ;s 22073 c@ r@ <> 2 ! col: defer: 2769 lit and ;s 9853 dup c@ >r 18159 1+ r> min 4041 lit user: +! 2 tuck allocate col: 2 2dup * allocate 319 col: dup negate 14 cells + 2! 79 dup @ col: 9833 ;s ;s (loop) 656 ;s (loop) count 117 drop ;s col: 21646 +! ;s col: 103 @ dup con: 5907 dup @ 1- 4916 0= col: col: 1 (+loop) i col: 166 col: con: @ 120 var: ! branch 1 i 1+ col: 1 ;s >body @ 857 @ lit r@ 276 defer: noop col: 322 ;s var: cell+ 3 execute col: cr 27809 r> ;s rot 3140 var: ! col: 7612 rot dup con: 1895 drop r@ @ 9781 c@ ;s ;s 2169 rot lit over 1 move ;s branch 6689 ?branch lit col: 20 ?branch con: - 7648 over >r rot 97 ?branch cell+ @ 7091 ?branch defer: col: 2 branch lit pick 1895 lit cells lit 13360 i 2@ over 7612 c! col: col: 6 2drop r> var: 4473 0= ?branch user: 2310 - dup lit 4702 var: col: con: 4233 lit and col: 96 execute col: ;s 750 ;s col: ;s 27809 r@ um/mod r> 2 execute col: ?dup 972 col: @ (f83find) 750 user: @ min 1 over >r lit 25 min 2dup defer: 76 con: (do) dup 1748 ;s @ execute 2873 dup ?branch 0> 7 user: ! over 1368 i c@ + 5004 var: + c@ 72 user: @ = 1 - lit cells 1 2@ nip var: 18408 user: @ > 144 user: @ user: 5907 + (do) 2dup 150 >r cells sp@ 1 0= col: 0= 86 ?branch con: <> 5567 ?branch col: user: 14 1- user: ! 4 (loop) unloop drop 2 u<= ?branch drop 319 - col: dup 151 col: dup con: 325 ?branch 1- <> 14 + dup >r 7648 col: over >r 20854 @ ;s +! 14 1- tuck + 6951 c@ col: col: 1 <> ?branch i 7612 ;s count + 212 ;s ?branch ;s 79 rot col: col: 13 ;s over 0= 1495 ;s count col: 4 lit swap 1+ 13 swap ;s col: 6 - var: over 4 ! defer: col: 3 execute + ;s 2 i col: cells 1 sp@ dup user: 13 swap lit col: 11939 ! ;s col: 1162 col: >r 2dup 2223 >r ;s count 7906 swap ! ;s 17 swap cell+ ! 49 con: ! col: 31 ?branch ;s swap 789 ?branch drop ! 2 ;s nip 0<> 4772 / col: col: 1 var: 2@ 2* 1 r> user: +! 158 ;s (loop) col: 63 col: con: con: 2 + (loop) unloop 11935 lit col: var: 7612 drop (parse-white) branch 24 con: - col: 13811 ?dup ?branch ;s 750 2@ d<> ?branch 1895 0= ?branch >r 152 faligned over lit 6230 col: dup @ 5907 drop con: ?branch 4 compare 0<> ?branch 50 >r r@ col: 2309 (?do) unloop ;s 750 @ 0<> and 25860 @ + ;s 9773 or swap c! 60 dup @ swap 6 var: over cell+ 764 u< ?branch drop 13470 ;s ! ;s 1076 lit var: ! 6363 @ ?branch col: 2020 rdrop ;s >r 37 u< ?branch cells 55 lit u<= ?branch 12 col: ;s branch 22 drop ;s lit 342 lit r> con: 800 @ var: ! 18 allocate col: ?dup 150 cells sp@ cell+ 88 >r rp@ user: 426 user: ! r> 4379 col: var: dup 1923 ;s @ var: 1454 lit u> ?branch 1106 ! ! branch 852 ;s (?do) i 72 col: r> user: 460 user: ! var: 1898 col: lit fill 3278 2drop lit (+loop) 2 (?do) dup lit 36 char+ col: col: 3106 col: col: sp@ 3 tuck col: col: 736 tuck swap ! 8 col: lit does: 803 ;s lit lit 74 ?branch con: branch 1089 @ 1- dup 1603 ;s lit (?do) 5334 nip nip unloop 25 lit does: swap 788 0= ?branch nip 102 swap con: <> 5013 c@ 0= ?branch 14 @ >r col: 420 swap col: col: 255 drop branch ;s 460 ;s 2drop col: 88 col: laddr# ;s 1 col: 1- ;s 9152 ;s branch col: 2 nip execute 1- 4318 @ ;s dup 76 (+loop) dup i 29 @ + col: 2169 ?branch lit + 14 2dup lit col: 120712 col: user: @ 760 + ;s 2@ 255 ;s drop branch 55 ?branch lit - 12 ! >r >r 9854 col: sp@ user: 1116 ?branch dup col: 2293 nip col: dup 342 swap ;s swap 1908 @ var: @ 6 ! ?dup ?branch 199 ;s branch dup 131 ! ;s swap 1043 ;s 0= col: 1 0= ?branch con: 750 @ min con: 152 + = ?branch 10 d<> ?branch var: 1 nip execute field: 2169 lit over +! 37 var: + @ 32375 @ ;s ;s 2984 negate ;s ;s 76 lit con: (do) 62 con: = col: 7 ;s lit cells 1 ;s r@ write-file 1452 user: ! drop 915 lit (+loop) unloop 2141 lit col: >r 1895 r@ swap col: 1895 cells lit col: 15 +! ;s user: 2 1- con: rshift 6 ?branch lit @ 1162 2dup r> col: 43162 ;s dup ?branch 79 r@ rot col: 755 lit col: con: 1461 ;s ?branch drop 1895 ?branch >r drop 3 and swap c! 13 con: - swap 1500 count con: write-file 579 ! var: col: 1162 dup 0= lit 6 ! lit var: 1690 ?dup ?branch var: 1 ;s var: over 71 ?branch r> r> 1 (type) ;s cr 1 lit cells col: 1408 r> user: ! 1898 swap dup col: 79 ;s r@ rot 33 char+ c@ ;s 2 create-file ;s branch 208 @ execute does: 206 execute does: @ 2397 (?do) con: col: 72 >r >r ;s 880 (f83find) ;s ;s 7648 1+ r> move 6543 user: ! lit 7 dup field: dup 14 swap invert and 158 ;s ;s 0= 15746 @ (hashfind) ;s 1007 0= ?branch 2drop 750 min con: write-file 273 ;s defer: noop 289 ;s over - 1430 @ um* d+ 83 user: ! >r 4 var: r> ;s 27809 >r lit r@ 9853 ;s r@ lit 717 dup ?branch rdrop 121 @ var: col: 857 0= ?branch @ 76 i - con: 3669 + aligned ;s 1717 ;s @ con: 13 drop >r drop 1 (?do) unloop 2drop 20 cell+ var: ! 85 ! rdrop rdrop 33 0= ?branch var: 1 over r> tuck 10005 lit and + 6 = ?branch dup 6698 ?branch 0> ?branch 27 ?branch 2drop user: 258 noop ;s ;s 2 count col: var: 9553 col: col: r> 14 r> + dup 14 + swap invert 428 dup 0< ?branch 756 lit (?do) con: 3249 (loop) unloop ;s 1503 <> ?branch rdrop 586 con: ;s ;s 11007 user: @ /string 72 r> user: @ 739 col: ;s ! 1075 @ 0= col: 1129 1+ dup con: 2984 ?branch negate ;s 1 nip var: 2! 1457 0< ?branch var: 750 col: 2drop col: 6410 c! (loop) unloop 1912 move ;s col: 843 - col: col: 1158 ?branch 2drop 2drop 873 r> /does-handler + 4593 ?branch user: @ 79 ;s rot ! 4772 does: + c@ 3 nip execute >body 2 0= ?branch 2dup 1479 ! col: var: 1224 rdrop ;s cell+ 74 branch ;s lit 1690 >r write-file ?dup 20570 /string branch dup 4840 @ 0= ?branch 79 cell+ ;s dup 64 rdrop ;s dup 20 dup lit >= 1 execute 2! ;s 3079 @ 0< ?branch 342 (do) con: * 5 execute @ ;s 2024 r> col: >r 4772 col: con: dup 13 ;s rdrop ;s 7 ;s >r rot 14 + 2! ;s 1690 var: count r> 164 col: dup ;s 15 swap 2dup r> 736 con: = swap 736 ;s @ lit 750 d0= ?branch ;s 1 (type) ;s var: 12 >r col: user: 76 0= ?branch drop 801 2swap dup >r 14 2@ dup >r 325 / ;s col: 15746 r> xor cells 1 var: 2! ;s 6591 2drop ;s ;s 4828 ?branch @ dup 1 or ;s create-file 63 1- >r r@ 1 lit or ;s 1166 col: cell+ count 79 rot ! col: 6410 >r col: dup 2984 and ?branch negate 14 nip nip r> 1717 col: ;s @ 14 open-file 0= ?branch 1 c! ;s branch 63 1+ within 0= 59 ! user: ! 1 ;s (+loop) i 4772 con: - ;s 15746 + @ >r 15 2dup r> -rot 6 con: ! ;s 9853 lit and 0= 5907 lit col: drop 156 branch dup @ 4055 ! lit user: 1 ?branch lit (bye) 1 ?dup ?branch @ 4042 @ ?dup ?branch 16 var: +! col: 1368 um* rot + 6 dup lit = 2056 ;s col: lit 71 ?branch r@ user: 2199 ;s count ;s 213 con: col: lit 152 lit + = 342 1- (do) con: 6873 + ;s col: 1 execute field: ;s 1026 lit (+loop) con: 9853 + faligned ;s 15746 lit + @ 9632 @ over min 1 swap c! 1+ 4 >r ;s ;s 27 branch r> user: 750 var: ! user: 4 1+ /string ;s 1728 ;s branch ;s 748 lshift ;s - 152 over lit + 2 execute create-file ;s 4 does-handler! ;s branch 1 2! col: var: 6098 branch col: sp@ 2029 ;s col: defer: 17 ?branch lit cells 3669 aligned ;s con: 6 defer: col: cell+ 17 + count cr 1368 con: um* rot 7 nip execute 2drop 25 max lit (?do) 4 con: min >r 289 over - swap 9342 >r swap >r 35 execute con: ;s 17 count cr col: 97 ;s con: ;s 19230 c! (loop) con: 13360 2dup i 2@ 55 u> ?branch lit 128 ?branch col: r> 12 ! ;s r> 26583 var: @ ;s 387 /string col: over 750 - dup ! 1 execute col: 0= 2056 col: cell+ cell+ 11138 ?branch col: dup 1 ;s col: 0= 1 <> ?branch 2dup 941 ! user: @ 1 2dup + lit 1896 lit + dup 4169 ?branch >r >body 801 col: over c@ 1895 @ over cell+ 1910 ;s swap dup 4 ;s r> col: 17 defer: (type) lit does: 9 rdrop ;s ;s user: 226 execute col: defer: defer: 20 ?branch con: - dup 8996 0= ?branch lit r@ 187 ;s ;s over - 272 ;s col: lit lit 3477 con: = ?branch col: 750 @ col: con: col: 84 col: ;s ;s branch 6 var: ! ?dup ?branch 45 ;s ;s var: col: 1907 (?do) unloop ;s col: 870 @ ;s ;s var: 15 @ + ;s ;s 121 ;s col: con: + 156 branch dup @ dup 1073 ;s ;s col: r> 1291 @ col: var: @ 14 rdrop ;s nip ?branch 1 or ;s create-file col: 62 rdrop ;s dup col: 3393 ?branch col: col: cell+ 137 dup 0< ?branch col: 12 ! ;s r> r> 1895 var: @ + var: 25 lit min 2dup defer: 18159 1+ r> min user: 750 ;s col: 2drop col: 4772 - ;s con: / 2218 rdrop ;s var: ! 14 cells + 2! ;s 80 ;s branch dup ?branch 93 ?branch faligned nip ;s 750 ;s user: ! col: 76 ?branch i - con: 1166 count lit and ;s 4041 ?dup ?branch ;s branch 5907 col: drop con: ?branch 7047 var: @ col: col: 1 ;s (?do) unloop ;s 18 swap col: col: col: 18 u> 0= ?branch dup 1 (+loop) i col: cells 29 ?dup ?branch ;s swap 9342 dup count + aligned 2 rot ! swap col: 426 user: ! r> user: 2169 over < ?branch lit 42 ;s col: cell+ cell+ 639 col: r> dup cell+ 325 / ;s ?dup ?branch 19230 i c! (loop) con: 27809 r@ um/mod r> swap 739 >r dup col: cell+ 61 ?branch ;s col: user: 1129 @ var: @ 1+ 4772 + swap does: + 15 +! ;s user: @ 6 = ?branch dup var: 36 move c! ;s col: 1162 @ over ! var: 18159 2dup >r >r user: 1427 u>= ?branch con: ;s 22 rdrop ;s ;s var: 2169 max col: >r lit 801 r> user: ! ;s 7179 ;s (loop) con: col: 1868 var: ! ;s ;s 1 var: 2! col: var: 86 = ?branch con: <> 650 - con: / ;s 1895 and col: con: (hashkey1) 1430 swap user: @ um* 44 ;s col: con: @ 1210 + ;s count lit 2020 min /string over swap 6 @ lit ! var: 1 2@ 2* cells col: 212 con: col: lit lit 28 drop con: ;s ?branch 1690 col: dup >r write-file 139 cell+ cell+ ;s ! 10 +! ;s ;s branch 102 ;s con: = ?branch 774 (loop) unloop lit branch 460 +! ;s 2drop col: 3154 @ lit pick ! 118 col: col: col: con: 750 ?branch ;s col: 2drop 2923 ;s var: ! col: 1162 @ col: >r 2dup 15746 >r 2dup col: con: 6 lit var: +! var: 750 @ 0<> ?branch col: 134 @ col: col: user: 4041 ?dup ?branch read-line col: 1 var: @ ;s 1- 3 con: var: @ tuck 2 execute swap ;s branch 5907 cells over + (do) 1133 ?branch var: @ col: 9370 lit and ?branch r> 7 - ?branch dup user: 965 0> ?branch nip nip 867 ;s col: r> /does-handler 13 col: >r >r lit 86 @ ! ;s ;s 20 ?branch rdrop ;s tuck 4041 ;s con: user: @ 10 ;s ;s defer: col: 208 @ execute does: dup 160 r> ;s ?branch var: 1895 rot ! r@ swap 71 col: dup ?branch r> 2169 r> ;s rot lit 5004 @ swap col: con: 92 ;s dup 0= ?branch 1162 @ ! branch ;s 10190 ! ;s col: col: 1895 @ + var: @ 1158 2drop 2drop ;s var: 20 ! cell+ var: ! 750 @ min con: write-file 1205 dup >r col: col: 60 execute col: col: lit 46307 col: col: var: @ 1 2@ lit (?do) unloop 2169 lit max col: >r 1895 >r var: lit cells 518 ?branch 2rdrop branch ;s 1 swap ;s 2dup col: 14 tuck + swap invert 750 ;s user: @ min 1690 >r write-file ?dup ?branch 2 dup defer: col: cell+ 3043 user: col: con: swap 17 (type) ;s defer: (type) 208 ?branch ;s ?dup ?branch 19 ;s swap ;s branch 32 ?branch = ;s 0= 23847 @ field: @ execute 9853 ;s dup ?branch col: 6099 ;s ;s (loop) i 104129 col: user: @ ;s 322 @ ;s var: cell+ 63 con: con: 1+ within 6 drop ;s dup col: 22073 ?branch over c@ r@ 4041 read-line col: ?dup ?branch 5004 swap col: var: + 16712 var: +! ;s col: 3278 <> ?branch drop 2drop 13312 ;s @ ;s lit 14 dup >r con: open-file 91 ! col: col: col: 131 ! ;s col: r> 212 code-address! ;s con: col: 1 con: rshift 1+ col: 1648 negate ;s ;s dup 736 unloop ;s ;s swap 4 col: - ;s ;s 7605 over + swap ;s 3610 col: user: @ ?dup 13 >r lit col: 1+ 8768 ;s +! ;s c! 7 lit = ?branch 2drop 2130 ;s con: write-file col: 33 @ ;s ;s char+ 25 r> user: ! col: 460 and ?branch col: col: 656 r> ;s (loop) count 8996 and 0= ?branch lit 119 swap user: ! swap 1875 cell+ cell+ ;s @ 639 r> dup cell+ >r 1503 <> ?branch rdrop ;s 100 drop r> ;s r@ 4 ;s lit swap 1+ 1158 ?branch 2drop 2drop ;s 212 ;s con: col: lit 5 nip execute col: over 1603 tuck 1- and - 5 ;s 2dup defer: (type) 72 r> user: @ >r 14 cmove var: over r> 6 var: var: ! ;s 789 dup ?branch drop ! 2020 /string over swap r> 7619 col: col: defer: col: 6 drop col: r> /does-handler 954 lit col: dup @ 750 - dup ! ;s 62 cell+ ;s @ ;s 57 ;s count ;s col: 740 2@ d<> ?branch ;s 750 col: col: var: 2@ 1305 ?branch rdrop ;s branch 4 0<> ?branch 2drop col: 432 @ >r user: @ 579 ! var: col: con: 739 col: ;s ! ;s 13 ;s ;s col: >r 99 var: ! ;s col: 4 var: r> ;s ;s 750 @ tuck - ;s 402 ;s col: var: col: 1 con: col: >r defer: 71 +! user: @ user: 1 execute col: 1- ;s 22 user: ! ;s var: 801 = dup >r ?branch 2048 ! ! ;s lit 1427 @ u>= ?branch con: 774 @ dup 0> 0= 3 var: @ tuck col: 6 execute drop ;s branch 1 0= col: 0= ?branch 80 nip execute col: con: 1 2dup defer: (type) con: 2169 ;s 2dup d0= ?branch 2169 ?branch lit + col: 142 ;s dup 0= col: 4 var: r@ cmove var: 24 ;s con: - col: 119 branch dup col: ;s 9775 ;s ;s over c@ 3393 col: col: cell+ ;s 25 max lit (?do) i' 1158 ?dup ?branch 2drop 2drop 15 ;s r> drop col: 460 +! ;s 2drop lit 10547 (parse-white) 2dup + r> 27523 user: @ ;s user: 35 col: col: con: col: 6 ;s ;s con: ! 1026 swap lit (+loop) con: 44 @ ?branch col: lit 6 var: @ 0= ?branch 319 = ?branch branch drop 28 ?branch con: ;s lit 1 ;s r@ write-file col: 27 dup ?branch r> swap 1 c! ;s branch col: 5 ?branch ;s >body user: 14 nip 1- user: ! 58 >r ;s col: ?dup 6 var: @ lit ! 5907 drop var: dup @ 37 cells var: + @ 387 >r ?branch lit /string 1204 @ ;s dup aligned 14 ?branch rdrop ;s nip 739 con: swap col: ;s 14 col: var: 2@ tuck 16 var: +! col: var: 980 ?branch 2drop col: user: 152 + faligned over lit 1 ;s 2dup col: var: 224 rdrop ;s ;s con: 4 rdrop ;s lit swap 1216 ! ;s code-address! ;s 18615 ;s con: col: col: 7 invert and ;s dup 1419 2dup d0= ?branch col: 2293 ?branch nip col: dup 750 var: @ 0<> and 1454 dup lit u> ?branch 32 col: con: <> col: 2039 col: >r dup ?branch 736 dup cell+ @ col: 24 ;s ;s con: - 14 + col: dup col: 40 dup @ swap con: 26 r@ pick r@ pick 4 ;s branch con: defer: 22 @ 2dup u> 0= 1205 >r col: col: var: 4 col: col: lit var: 7 nip nip execute ! 1 rdrop lit ;s ?dup 22625 col: dup field: @ 7 invert and ;s ;s 521 r> ?branch user: +! 1 ?branch ;s >body @ 9853 ?branch col: cell+ dup 6 @ dup ?branch 2drop 10 unloop drop ;s ;s 71 r@ user: +! user: 13 over 0= col: col: 854 ;s ;s col: over 1 var: @ ?dup ?branch 756 col: over col: ;s 11 ;s var: 2! col: 1 ?branch rdrop ;s over 2 drop con: col: col: 22 nip execute col: does: 3 + ;s branch col: 4 user: @ ?branch con: 15 ;s ;s r> drop 1 dup ?branch 2drop col: 18174 >r >r user: @ 28 = ?branch var: @ 460 drop ;s user: ! 796 ! col: col: user: 13 ;s ;s drop con: 4033 col: col: dup count 6 var: @ con: >= 1898 col: lit fill ;s 279 drop ;s ;s branch 369 col: lit cells + 6 ?branch ;s lit cells 1210 user: @ lit col: 16720 col: var: +! ;s 3 nip nip execute + 9853 and + faligned ;s 1205 c@ ;s xor r> 736 ;s tuck swap ! 1895 tuck cell+ ! r> 1129 dup con: > col: 71 ?branch r> r> user: 22 ! ;s branch ;s 103 @ @ dup con: 7 col: col: con: lshift 325 con: / ;s col: 11 unloop ;s ;s branch 1897 @ ?dup 0= ?branch 134 con: @ col: col: 14 2! ;s var: 2@ 980 c@ 0= ?branch 2drop 5 ;s >body user: @ 27 ;s ?branch 1- i' 10701 lit col: var: +! 1895 con: (hashkey1) ;s xor 102 ;s ;s con: = 460 ?branch ;s lit col: 92 @ (f83find) ;s dup 3278 over <> ?branch drop 5 con: ! ;s ;s 17 ?branch col: over var: 10 ;s 2@ 2dup con: 5004 con: rshift ;s col: 639 >r @ col: col: 1430 d+ r> ;s (loop) 1 con: col: lit or 460 ;s user: @ /string 1646 ;s ;s col: con: 389 ;s ;s over col: 387 ?branch r> user: ! 372 nip execute col: lit 86 ?branch rdrop ;s con: 119 ;s @ dup 0< 2 execute col: ?dup ?branch 1 var: @ lit > 460 ;s 2drop col: defer: 1210 and con: write-file col: 5907 + (do) 2dup i 99 nip execute col: var: 1641 swap (?do) con: col: 2169 lit over +! @ 3322 cell+ ;s @ col: 12 >r >r col: user: 5634 @ dup ?branch 2dup 6 col: cell+ dup @ 114 ;s ;s swap col: 1343 col: defer: col: defer: 1 0= r> or ?branch 9776 + c@ ;s ;s 992 ?branch defer: col: col: 2 count ;s compare 0= 206 execute does: @ execute 15746 @ (hashfind) ;s ;s 9204 > ?branch fp@ user: 9632 @ over min /string 595 dup ?branch ;s ;s 172 code-address! ;s ;s col: 14 >r con: open-file 0= 5 nip execute @ ;s 1 user: @ >r var: 2020 col: >r defer: col: 88 user: @ >r rp@ 1430 ?branch con: ;s ?branch 1368 con: um* rot + 15 r> col: col: col: 5 nip nip execute @ 1 / ;s var: 2! 10547 @ /string (parse-white) 2dup 801 ! ;s over c@ 150 cell+ rot move drop 121 con: + ;s col: 801 swap ! ;s over 1 drop var: @ ?branch 42 cell+ ;s col: lit 13 swap 2dup or col: 2 lit (?do) col: dup 58 ! >r ;s col: 3854 ?branch nip nip execute 7 + swap r> col: 6854 ;s c! ;s (loop) 9853 r@ lit and 0= 750 2@ var: 2@ d<> 1496 @ dup ?branch drop 2 ?dup 0= ?branch 2dup 873 user: @ ;s does-code! 15 r> -rot move ;s 20 dup @ swap var: 342 >r lit lit r> 1565 ! ;s lit col: 349 @ ?branch var: @ 2 (?do) col: dup ;s 76 ?branch con: (+loop) dup 50 drop r> ;s rdrop 131 var: ! ;s swap 536 dup ?branch rdrop ;s 4033 c@ 0= ?branch col: 1 nip nip execute c! 20 <= ?branch con: - 3 col: con: var: @ 1368 con: * swap con: 2 nip execute lshift ;s 2 ?branch ;s nip 0<> 7612 @ ;s count + 531 ;s lit col: >r 156 ?branch nip branch dup 2 (loop) unloop drop branch 6 lit col: dup lit 2048 lit pick col: dup 5163 col: user: @ ?branch 79 ;s r@ rot col: 119 ! swap col: col: 2 branch @ dup @ 1895 r> ;s tuck cell+ 476 ?branch col: col: r> 6 swap ! ;s con: 14 swap cmove var: over 325 branch lit col: dup 25 swap lit max lit 22841 defer: col: col: user: 119 ;s @ r> col: 216 does: dup var: ! 19230 c! (loop) con: col: 8 ! ;s branch col: 2 ;s +! ;s ;s 16 + ;s ;s ;s 6 ;s ;s ;s over 13 ;s ?branch ;s r> 25 @ u>= ?branch drop 1610 ;s ;s (loop) unloop 1 dup ?branch 2dup 1- 847 lit (?do) unloop ;s 156 nip branch dup @ 841 ?branch col: dup @ 1 nip execute col: drop 7 ;s >r rot r@ 49 col: dup con: ! 7591 ;s ;s col: var: 3278 2drop lit (+loop) 2dup 2218 ?branch rdrop ;s var: 4 @ ;s /does-handler col: 1430 swap >r swap user: 55 - dup lit u<= 5907 execute col: drop con: 18159 min user: ! ;s 1690 write-file ;s col: ?dup 1 ;s compare 0= r> 1176 ;s user: ! lit 5376 +! ;s ! ;s 88 user: ! execute col: 1895 drop r@ @ rot 764 lit u< ?branch drop 7715 dup con: = ?branch 739 r> ;s over col: 630 ?branch lit var: ! 556 lit lit ! user: 7 execute ! ;s branch 22625 dup field: @ field: 9342 col: r> r> dup 801 c@ lit = dup 1454 toupper lit - dup 1162 col: defer: defer: col: 322 cell+ ! col: con: 10 d<> ?branch var: count 14 branch unloop 0<> lit 13 ;s r> r> rot 27 ;s branch r> user: 67 execute col: var: col: 85 r> user: ! rdrop 5 execute col: over col: 47 execute col: col: con: 322 cell+ @ col: over 108 ;s nip ;s dup 3154 lit pick ! ! 11381 col: col: dup field: 150 >r cells sp@ cell+ 6098 ;s branch col: sp@ 46 branch dup ?branch dup 119 var: @ ?branch user: 1089 col: var: @ 1- 446 lit var: ! ;s 102 col: dup col: dup 750 0<> ?branch col: col: 1603 con: tuck 1- and 19230 (loop) con: col: >r 6752 + ;s col: >r 19 ! ;s ;s r> 2 var: ! ;s branch 190 ;s 0= ?branch ;s 460 @ /string con: col: 2 1- ;s branch col: 1 nip execute col: 0= 14 unloop 0<> lit and 20 lit >= col: col: 9776 col: lit /mod rot 5004 ;s col: col: lit 6 ?branch over col: lit 22 0= ?branch var: ! 41 ;s ;s - col: 147 c! ;s ;s var: 2 ;s over lit (?do) 17 count cr col: col: 181 ;s dup ?branch rdrop 739 col: cell+ ;s ! 226 d>s ;s ;s col: 801 col: over c@ lit 801 c@ lit - dup 5 execute @ ;s branch 63 con: * 1- >r 20 ;s col: col: con: 120 ;s col: over col: 119 ;s dup col: var: 1904 ?branch col: col: col: 2723 dup 0= col: col: 4 @ ?branch con: min 4169 >r >body nip r> 15746 lit + @ >r 212 ;s code-address! ;s con: 801 lit lit 2swap dup 331 swap ! ;s var: 13 ! col: ?dup ?branch 6 2drop r> var: ! 50 r> ;s rdrop dup 9853 dup c@ >r col: 103 var: @ @ dup 12 does-code! ;s ;s rot 58 lit ;s col: dup 857 0= ?branch @ lit 4834 ;s user: @ 0= 780 ;s var: @ dup 76 drop lit col: lit 2 over lit (?do) dup 25 min 2dup defer: (type) 821 ;s - col: col: 9776 /mod rot + swap 7 r@ col: 1- tuck 79 d>s ;s ;s r@ 13 drop col: var: @ 1 create-file col: ?dup ?branch 7605 col: over + swap 75 2drop branch ;s branch 4772 con: dup @ + 1895 lit col: lit pick 20 @ swap var: ! 13 ;s ;s col: drop 1204 ;s dup aligned swap 1 ;s col: 2swap 2dup 206 nip execute does: @ 801 dup >r col: lit 150 col: dup 1+ pick 4 nip execute cells ;s 14 swap 2dup 1+ var: 460 user: +! ;s con: 7612 con: col: col: defer: 5567 ?branch col: user: @ 6 ?branch drop ;s dup 93 over 0<> ?branch faligned 71 user: ! >r ;s 745 ?branch var: col: con: 1368 * swap con: um* 1234 lit col: var: @ 142 ?branch rdrop ;s 0> 272 ! ;s ;s defer: 93 0<> ?branch faligned nip 1 col: 2* ;s ;s 3 execute col: col: ;s 13 2dup or col: dup 573 2drop con: ;s ;s 3 ?branch ;s branch ;s 27809 um/mod r> ;s rot 1162 ?branch var: @ @ 258 defer: noop ;s ;s 460 ! drop ;s user: 2046 (loop) dup lit pick 102 over - swap ! 1 ?branch drop var: @ 6 lit ! var: var: 5334 dup ?branch nip nip 1454 = ?branch toupper lit 13 pick r@ pick rdrop 1 ;s >r over >r 37 ;s ;s ;s var: 736 <> and ;s ?branch 7 dup user: ! over 459 execute col: col: var: 1 execute field: ;s branch 1 0= ?branch col: user: 6011 con: col: var: +! 92 execute col: col: @ 5 0= ?branch var: @ 2 dup @ ?branch dup 7 ?branch col: dup col: 2984 ?branch negate ;s ;s 6410 + swap ;s (do) 14 swap col: cell+ cell+ 181 ;s 2drop ;s ;s 4970 col: cell+ ;s @ 1335 swap ! ;s user: 351 ;s lit col: dup 2 nip execute swap ;s 2 /string ;s ;s over 2 col: does: @ execute 740 d<> ?branch ;s defer: 2 ! swap col: lit 6 0= ?branch var: col: 13360 i 2@ over <> 9853 >r col: count lit 1162 ;s col: dup lit 3825 ;s ?dup ?branch 0> 1500 ;s con: - dup 1 var: ! var: ! 2 swap ;s branch col: 1399 u> ?branch dup user: 1499 dup r> ?branch 1+ 72 >r >r ;s user: 40 2dup u> 0= ?branch 9342 count + aligned >r 1898 swap dup col: col: 10547 defer: col: defer: col: 119 @ dup col: ;s 1895 ?branch @ over cell+ 1 lit swap c! 1+ 19 col: lit lit col: 414 ?branch col: over c@ 7179 (loop) con: col: col: 13 swap lit col: 1+ 74 swap ! ;s drop 1 -rot move ;s drop 4 r@ cmove var: r> 1895 @ rot ! r@ 1 user: +! lit ;s 1 ;s cr col: col: 2293 nip col: dup @ 7 nip execute 2drop ;s 736 ! ;s var: ! 18521 ;s col: col: var: 15749 var: @ + @ 2424 @ execute col: col: 36 char+ col: col: user: 1 ;s compare 0= >r 13 ;s drop con: ;s 9204 > ?branch ;s defer: 1129 con: > col: col: 756 lit (?do) con: col: 225 ?branch col: lit col: 724 drop user: ! col: 5907 1- cells over + 9773 or swap c! ;s 2889 ?branch lit and ?branch 1794 ;s ;s col: lit 158 ;s (loop) col: dup 76 col: lit con: (do) 1 execute col: col: 2dup 789 drop ! ;s var: 18408 user: @ > ?branch 4 ?branch defer: noop col: 158 ;s ;s 0= ?branch 3 @ ?branch ! ;s 5013 ;s ;s dup c@ 4828 ?branch @ dup ?branch 79 var: @ ;s rot 156 @ dup ?branch nip 3 col: cells var: @ 27 r> swap ;s dup 14640 (hashfind) ;s ;s dup 1163 ;s var: @ ?branch 4 con: defer: noop ;s 72 user: @ = ?branch 1220 count ;s con: col: 1606 faligned swap (?do) con: 57 ;s over col: col: 20 r> - ?branch 2drop 1205 @ dup >r col: 2 execute col: lit * 18527 ;s ;s ;s ;s 342 swap ;s swap 1- 3 col: col: ;s ;s 181 var: ! ;s does: 15746 execute col: lit + 580 con: ;s ;s ;s 75 ! ;s ;s 2drop 17 col: over var: @ 650 @ swap - con: 1089 1- dup 0= col: 93 col: lit over 0<> 1452 dup user: @ u>= 25640 rot i c! (loop) 137 0< ?branch col: col: 750 - dup @ tuck 726 @ ?branch col: col: 1 col: var: 2@ lit 13 >r >r lit col: 1204 dup aligned swap (?do) 2 var: ;s ;s branch 1898 ;s c! ;s col: 289 ;s over - swap 1 execute col: con: + 298 ;s ;s ;s drop 630 lit var: ! lit 1486 @ ;s var: ! 2 execute col: lit user: 2048 ;s lit pick + 6 over cell+ ! dup 3 ;s col: col: 2dup 1898 dup faligned swap (?do) 1 ;s defer: noop var: 1 nip var: 2! ;s 980 2drop col: user: @ 120 ?branch dup col: lit 760 col: var: 2@ drop 1676 ?branch ;s col: col: 15 ;s - dup ?branch 1 @ con: cells col: 1 lit > ?branch con: 20 @ ;s col: col: 1603 and - lit and 152 - count lit and 2421 ?dup ?branch ;s ;s 1500 ;s var: count con: 1501 var: ! var: @ 126 ! ;s ;s dup 315 2drop ;s branch ;s 18 d>s ;s ;s swap 6 nip execute drop ;s 1895 ;s xor cells >r 824 (f83find) ;s ;s dup 1 ;s @ ;s r> 18619 col: defer: col: col: 76 lit col: lit con: 9342 r> dup count + 7 ?branch dup user: ! 27 ?branch 2drop con: ;s 2020 - dup r> ?branch 764 drop ;s user: col: 4041 user: +! swap user: 12 ;s ;s swap dup 37 ! lit /string branch 75 ;s 2drop branch ;s 7612 + c! col: col: 2169 rot lit over < 724 ?branch drop user: ! 1067 ! ;s var: @ 1 ! ;s rp@ user: 7612 c! ;s con: col: 1075 col: user: @ 0= 2 nip execute 1- ;s 88 lit col: >r sp@ 343 ! ;s ;s var: 6752 con: col: over + 6 @ >r var: col: 35 execute con: ;s branch 4379 var: dup @ cells 1246 col: var: @ dup 10547 >r user: @ /string 10 2! col: col: r> 48 ;s col: lit user: 774 0> 0= ?branch nip 1071 ;s col: dup count 3 lit = ?branch con: 61 ;s code-address! ;s lit 1551 user: ! ;s user: 756 over col: ;s @ 319 negate user: +! lit 93 lit over 0<> ?branch 152 over lit + = 1162 over ! var: @ 14 open-file 0= ?branch nip 14 swap cmove 2dup var: 7 ;s ;s ;s + 17 ;s over col: lit 74 ! ;s drop branch 1 rp@ user: ! fp@ 750 ;s user: @ col: 12 ;s swap dup user: 2310 lit - dup lit 33 ;s char+ c@ ;s 22 ?branch var: ! drop 414 >r ?branch col: over 17 unloop drop ;s drop 5013 @ ;s ;s dup 7612 ;s count + c! 7648 >r rot over 1+ 1690 count r> write-file ;s 736 @ ;s tuck swap 2 lshift ;s branch col: 794 ;s @ var: ! 20570 r@ <> ?branch lit 27 execute col: lit lit 97 + ;s ;s con: 76 i - con: - 12947 ;s col: col: user: 1 = ?branch user: @ 55 execute col: dup col: 1 r> user: +! lit 64 ?branch rdrop ;s dup 1 con: ! ;s branch 1129 var: @ 1+ dup 387 r> ?branch r> user: 88 ;s >r user: @ 342 (do) con: * swap 2 nip execute col: ?dup 736 @ ;s var: @ 1 r> or ?branch 2drop 22 ;s ;s ;s con: 319 user: +! lit over 88 swap >r fp@ >r 1558 user: ! col: col: 761 user: ! ;s ;s 1 tuck - dup ?branch 3105 dup ?branch 2drop ;s 6133 ;s ;s con: col: 1641 c! ;s (loop) unloop 6 r> var: ! ;s 28 char+ c@ ;s col: 35 nip execute con: ;s 20 @ dup lit >= 130 branch dup ?branch rdrop 146 col: lit col: var: 88 col: laddr# ;s >r 1162 col: dup lit u> 9342 aligned >r swap >r 1895 over cell+ count lit 3878 ;s var: @ col: 4 ;s /does-handler col: col: 72 user: @ user: ! 858 cell+ ;s @ dup 629 ! user: col: con: 9204 ! ;s dup ?branch 1452 ?branch dup user: @ 1129 > col: col: r> 1633 >r dup ?branch over 2 lit (?do) dup lit 1224 col: user: @ dup 14 ?branch nip nip r> 4845 ?branch 2dup cell+ @ 677 execute col: lit col: 1690 con: col: dup >r 630 var: @ ?branch lit 1106 pick ! ! branch 181 0> ?branch col: lit 15749 cells var: @ + 898 col: var: @ var: 7698 ;s @ ;s col: 2169 - lit over +! 6951 c@ col: col: col: 1895 r@ @ rot ! 4772 col: col: con: dup 1 nip execute c! ;s 1 var: @ ;s r@ 7453 lit (+loop) 2dup i 2 user: ! col: defer: 14 ;s swap 2dup 1+ 19 nip execute var: ;s 7119 >r ?branch rdrop ;s 2 drop branch lit pick 1897 lit pick @ ?dup 20 rdrop ;s tuck ! 13805 col: ?dup ?branch ;s 2 col: lit (?do) col: 62 = col: col: r> 216 execute does: dup var: 1 var: 2@ nip var: 39 swap col: col: user: 142 rdrop ;s 0> ?branch 1129 ;s @ var: @ 27 ;s dup ?branch r> 1895 (hashkey1) ;s xor cells 14 con: open-file 0= ?branch 821 - col: col: col: 736 swap col: cell+ ;s 2889 ;s dup ?branch lit 14 + 2! ;s var: 1 ;s >r var: lit 1923 col: col: var: dup 1 lit (?do) unloop 2drop 71 @ = ?branch r@ 1162 ?branch col: cell+ count 1671 0> ?branch col: col: 4 and ?dup ?branch col: 72 col: col: r> user: 4041 branch lit user: +! 2169 c! ;s ;s 2dup 750 var: @ dup 0> 3610 @ ?dup ;s ?branch 25640 con: col: >r lit 29 ?branch ;s swap 2dup 1 lit + dup user: 3521 nip nip execute col: 6 @ col: 2dup u<> 71 ?branch r@ user: +! 309 ! ;s ;s over 4805 ;s +! ;s col: 9204 sp@ user: @ > 120 @ ?branch dup col: 2 execute 1- ;s branch 1162 u> lit and col: 10082 ?branch col: dup field: 382 ;s col: lit col: 325 1- <> col: col: 13 r> rot col: con: 9854 col: sp@ user: @ 9204 user: ! ;s dup 72 user: @ user: @ 119 <> ?branch dup col: 739 ;s @ dup ?branch 1216 col: lit >code-address ;s 4 col: dup ;s ;s 1 ;s @ ;s >r 6 ;s con: @ col: 8768 +! ;s c! ;s 2 execute col: does: @ 15746 @ >r 2dup col: 6 ! lit var: +! 2 nip nip execute lshift 2456 cells + ;s ! 14 1- user: ! lit 969 user: @ swap - 32 2dup u< ?branch = 41 @ ;s ;s - 748 lshift ;s - col: 2 * allocate col: ?dup 14 cmove 2dup var: r@ 1 lit <> ?branch 2dup 34 con: = ?branch lit 187 over - swap col: 5013 ;s dup c@ 0= 5004 swap col: con: rshift 15746 col: lit + @ 1129 1+ dup con: > 9204 fp@ user: @ > 4772 dup @ + ;s 1 ?branch 2dup + lit 14 dup >r 2@ dup 58 ;s user: ! user: 14 var: swap cmove 2dup 45 @ ;s ;s ;s 4 r> col: >r ;s 9204 @ > ?branch ;s 6 con: >= ?branch ;s 20570 lit /string branch dup 14 col: 2dup lit col: 7 r> col: 1- tuck 4748 ?branch drop branch lit 150 pick >r cells sp@ 1 defer: noop var: @ 9853 col: cell+ dup c@ 342 swap lit (+loop) unloop 76 (do) dup i - 63 col: 1+ con: * 1 dup >r lit col: 1 ;s 2! ;s branch 5 char+ c@ ;s ;s 2046 + (loop) dup lit 63 rdrop dup col: con: 168 swap ! ;s branch 1315 ! ;s ;s branch 57 execute col: con: col: 774 ;s (loop) unloop lit 40 ! cell+ tuck ! 102 swap con: <> and 85 ! rdrop rdrop rdrop 29 dup col: con: + 42 ;s ;s col: cell+ 4473 @ 0= ?branch user: 13 ;s swap con: - 8996 ?branch lit r@ lit 6 over col: cell+ cell+ 1895 col: lit pick @ 1 user: ! fp@ user: 76 lit con: (do) dup 2 ?branch ;s over lit 1652 ;s ;s 2drop ;s 63 1+ within 0= col: 2169 user: @ lit max 2 ?dup ?branch ;s over 272 ;s defer: noop ;s 2583 ;s ;s ;s user: 37 u< ?branch cells var: 2 pick + (loop) unloop 13 >r drop col: var: 1 ;s 0= col: 0= 60 branch ;s ;s col: 13 ?branch col: var: @ 11000 swap c! ;s ;s 736 con: = swap col: 1966 ;s ;s (loop) con: 875 ;s @ con: <> 369 lit cells + ;s 3 0> ?branch col: r> 1 lit cells / ;s 49 ! col: lit over 342 + swap ;s swap 12 dup user: ! >r 1106 var: @ col: lit 760 user: @ 2* cells 13 ! ;s ?branch ;s 4834 user: @ 0= ?branch 27 @ 0= ?branch 2drop 460 /string con: col: dup 26 ;s col: con: col: 857 @ lit r@ lit 7 field: dup var: ! 13 ;s ;s over 0= 1 sp@ dup user: ! 1898 ;s dup faligned swap 7 code-address! ;s ;s ;s 150 cells sp@ cell+ dup 736 ;s ! ;s var: 36 +! ;s col: over 2984 lit and ?branch negate 4845 2dup cell+ @ = 3 c@ ;s ;s invert 724 ;s ?branch drop user: 2172 cells + ;s @ 7612 over min /string rot 3048 ! ;s ?branch col: 2020 ;s >r over - 15 @ lit pick col: 27 swap ;s dup ?branch 9833 c! ;s ;s (loop) 2 dup rot ! swap 5 col: ;s ;s ;s 1184 ! ;s col: dup 17 = ?branch lit cells 3063 dup @ 0< ?branch 342 1- (do) con: * 12 ;s r> r> user: 6410 ;s (do) con: col: 272 col: defer: noop col: 88 sp@ r> swap >r 1 cells col: col: user: 7 ;s branch col: var: 1898 ;s @ ;s swap 17 ;s drop swap cell+ 216 dup var: ! col: 12 >r col: user: @ 6869 lit and ?branch ;s 14 tuck 1+ 2* cells 14 2@ tuck 1+ 2* 7 u>= ?branch col: dup 7453 (+loop) 2dup i 2@ 17757 con: col: col: user: 334 @ 0= ?branch ;s 20 - ?branch 2drop rdrop 3669 + aligned ;s con: 7 nip nip execute 2drop 2 (?do) dup lit pick 55 dup lit u<= ?branch 3906 ;s dup ?branch 2drop 118 con: <> col: col: 4828 = ?branch @ dup 14 1+ 2* cells resize 1106 @ col: lit + 1233 user: @ >r user: 27 2drop rdrop user: col: 63 col: con: con: 1+ 7119 ;s >r ?branch rdrop 736 col: dup col: ;s 322 ! col: var: @ 4169 ;s dup ?branch >r 2456 + ;s ! ;s 14 >r var: swap cmove 1430 col: swap >r swap 102 con: <> swap con: 4175 branch lit (+loop) 2dup 1457 user: @ lit = 280 ! drop ;s branch 750 var: ! user: @ 94 ;s col: dup @ 755 lit col: con: lshift 88 fp@ >r col: laddr# 92 col: col: @ (f83find) 873 ;s does-code! ;s ;s 2 col: tuck allocate col: 739 <> ?branch col: >r 97 col: var: @ user: 15746 con: (hashkey1) ;s r> 1 move ;s drop var: 14 1+ var: 2! 2* 14 ;s nip ?branch var: 1 (type) ;s cr ;s 6 ?branch lit @ var: 129 ;s branch ;s ;s 150 dup cell+ rot move 17 <> ?branch col: over 120 ! branch lit col: 117 ;s drop ;s col: 2 nip nip execute swap 56 branch ;s ;s ;s 216 ! col: cell+ cell+ 14 var: over r> + 75 2dup col: col: user: 1216 lit >code-address ;s col: 1042 ;s 0= col: col: 2048 pick col: dup @ 446 ;s lit var: ! 1224 user: @ dup 0= 131 ! ;s col: defer: 774 user: @ dup 0> 1 ?dup ?branch r> user: 739 ;s ! con: swap 2 0= ?branch 2dup * 13 pick rdrop dup col: 4 >r var: r@ cmove 1 col: con: col: >r 5334 ?branch nip nip unloop 1 /string ;s var: 2! 1748 cell+ ;s @ execute 739 cell+ ;s ! con: 750 2dup d0= ?branch ;s 1895 cells lit col: lit 4772 ;s swap col: con: 2 >r lit col: >r 76 0= ?branch drop lit 14 move ;s col: var: 2397 (?do) con: col: col: 2169 ;s rot lit over 387 dup >r ?branch lit 10005 count lit and + 858 dup col: cell+ ;s 20 var: @ dup lit 18 var: @ dup ?branch 2 fill ;s ;s var: 12 ;s ;s rot swap 6 col: 0= ?branch var: 801 (?do) count col: user: 100 r> ;s r@ col: 14 + swap invert and 7 con: lshift ;s lit 15746 + @ (hashfind) ;s 3699 ?branch user: @ con: 25 (+loop) unloop drop ;s 2450 user: ! lit col: 1690 dup >r write-file ?dup 49 dup con: ! col: 1 up! sp@ dup user: 2737 ?dup ?branch ;s var: 4041 ;s branch lit user: 815 dup ?branch dup col: 27 unloop ;s dup ?branch 27 1- i' i - 13 close-file swap 2dup or 1 compare 0= >r 2dup 1454 ?branch toupper lit - 17 over var: @ dup 2169 ;s ;s 2dup d0= 1690 r> write-file ;s col: 750 col: ;s var: ! 1 ;s col: 0= ?branch 1895 ?branch >r drop r@ 573 lit (+loop) unloop 2drop 7648 1+ r> move c! 387 rdrop r> ?branch dnegate 5533 unloop ;s ;s ;s 1898 @ ;s dup faligned 1026 lit (+loop) con: * 58 ;s col: dup ?branch 1 ! col: var: 2@ 7 r> - ?branch dup 2 ;s ;s lit lit 1 >r over >r lit 6 2dup u<> ?branch drop 4 defer: (type) ;s col: 5 execute col: con: swap 1 nip execute col: * 7 nip execute col: + 6 ! var: var: ! 1895 >r drop r@ @ 2 execute over ;s branch 72 @ user: ! user: 2 nip nip execute create-file 17 ! ;s ;s drop 1430 rot user: @ um* 4318 ;s @ ;s dup 4 nip execute col: - 1 ;s r> close-file col: 6099 ;s col: dup col: 17 ?branch lit cells + 750 tuck - ;s con: 10 ?branch ;s ;s defer: 867 user: @ col: col: 24 count defer: (type) ;s 150 move drop r> ;s 72 @ user: @ = 20570 ?branch lit /string branch 3 user: @ ?branch ! 650 swap - con: / 119 col: col: lit cells 5 execute col: col: 0= 1430 ;s col: dup 0= 15 dup allocate col: ?dup 319 - col: dup negate 334 ;s ;s user: col: 208 col: dup >r count 8768 lit col: col: user: 7 dup var: ! defer: 86 rdrop ;s con: var: 62 rdrop ;s col: cell+ 6410 swap ;s (do) con: 4802 lit user: ! ;s 13 u>= ?branch col: var: 1220 ;s con: col: dup 739 ?branch drop r> ;s 880 @ execute col: @ 4772 swap col: con: - 1368 + swap i c@ 4169 >body nip r> ;s 933 ?branch ;s dup ?branch 6 cells - var: over 800 @ var: ! ;s 3 2drop ;s ;s col: 750 var: @ 0<> ?branch 12 ;s rot swap col: 769 @ dup ?branch dup 1 2! ;s branch col: 119 ! ;s branch dup 2 rdrop ;s dup rot 15 drop r> col: col: 496 +! ;s 2drop ;s 1224 @ dup 0= col: 17 swap cell+ ! branch 1 nip execute col: 1- 79 ;s dup @ col: 736 ;s ! ;s con: 72 @ >r >r ;s 58 rdrop lit ;s col: 4772 con: / col: col: 86 var: @ ! ;s 4 nip execute col: = 1 var: swap ;s 2dup 7 lshift ;s ;s ;s 3 @ ?branch ;s branch 1897 swap col: lit fill 3 nip nip execute >body 1162 dup lit u> lit 9773 over c@ or swap 1 i 1+ var: @ 3 ;s ;s invert over 760 var: 2@ drop user: 1 fp@ user: ! col: 13 branch ;s col: lit 42 ;s ;s swap ! 13 1- >r r@ pick 4772 dup col: col: con: 14 2* cells + 2! 63 within 0= col: col: 342 unloop d>s ;s ;s 1419 d0= ?branch col: user: 29 ?branch ;s ;s branch 2169 < ?branch lit + 750 col: ;s var: @ 875 @ con: <> ?branch 388 c! ;s ;s ;s 1 ;s rp@ user: ! 801 @ >r user: col: 4702 var: col: con: swap 1158 and ?dup ?branch 2drop 1205 ;s c@ ;s xor 2 allocate col: col: r> 54 @ ;s ;s branch 1293 ;s col: defer: col: 11906 + ;s c! ;s 281 0= col: col: col: 1 nip execute move ;s 1 col: var: 2@ 2* 17 ;s defer: (type) lit 18 ;s branch 2dup u> 1895 lit fill ;s r> 875 ;s ;s ;s lit 7648 r> move c! ;s 518 drop 2dup 2>r col: 18159 2dup + r> - 4041 ?branch read-line col: ?dup 20 execute col: does: col: 1486 ;s count col: dup 1 @ ;s r@ write-file 521 ?branch user: +! ;s 6 ?branch dup var: ! 789 @ ?branch col: dup 27809 lit r@ um/mod r> 250 col: lit col: dup 1430 user: @ um* drop 1200 swap ! ;s lit 160 dup ;s col: col: 9853 lit r@ lit and 801 lit (?do) count col: 27 2drop con: ;s dup 14 nip nip r> rdrop 10082 <> ?branch col: dup 639 dup cell+ >r @ 4 execute col: dup ;s 29 @ dup col: con: 1451 var: ! col: var: 139 col: col: r> dup 1 cells col: swap >r 98 ;s r> user: ! 119 + ;s @ col: 158 ;s ;s ;s 0= 322 @ var: cell+ @ 4033 ?branch col: col: dup 216 var: ! col: cell+ 4379 @ cells + ;s 1 ! col: lit lit 342 (+loop) unloop d>s ;s 32 ;s @ ;s - 15746 + @ >r 2dup 2 dup count col: var: 1 noop var: @ lit 18 ;s ;s branch 2dup 7462 lit col: col: col: 8 var: +! ;s ;s 8 ?branch col: cell+ cell+ 1 = ?branch i 1+ 28 con: = ?branch var: 1 lit <> ?branch i 1 ?branch con: cells allocate 15 lit col: >r >r 1252 ;s user: col: con: 181 rdrop branch ;s dup 8 execute col: var: +! 3669 lit + aligned ;s 1895 @ over cell+ count 4041 ?branch ;s branch lit 85 user: ! rdrop rdrop 3 var: ! defer: drop 1 +! lit ;s (+loop) 22 var: @ 2dup u> 268 col: dup 0= col: 15 + col: col: var: 289 dup 0< ?branch var: 811 ;s ;s dup col: 2 defer: drop ;s drop 319 branch drop ;s ;s 3 over c@ and swap 1430 ?branch col: swap >r 483 1- r> lit and 15 nip ;s - dup 13 @ close-file swap 2dup 2020 >r defer: col: col: 75 ;s ;s 2drop branch 325 ;s ?dup ?branch 1- 2048 col: dup @ lit 27 ! col: var: col: 27 ?branch 1- i' i 460 ;s user: ! var: 5102 dup count lit col: 6 dup col: lit over 20 ;s over r@ u>= 1162 2dup 2dup r> col: 1 2! ;s defer: noop 4 ;s @ ;s /does-handler 1224 ?branch rdrop ;s cell+ 1895 count lit and col: 1 nip execute field: ;s 1652 ;s ;s ;s 2drop 29 var: @ dup col: 750 @ var: @ 0<> 1895 + var: @ ?branch 1 branch dup ?branch 2drop 6 lit = ?branch dup 6 drop ;s ;s con: 27 0= ?branch 2drop con: 1603 lit and ;s lit 996 user: @ ?branch defer: 6099 2dup col: var: @ 15 var: 2@ lit (?do) 266 dup col: col: var: 9204 ;s defer: col: defer: 368 nip execute col: dup 1450 execute col: col: user: 27 ?branch dup r> - 16 nip execute does: col: 28 @ ?branch con: ;s 85 rdrop rdrop lit ;s 5473 @ col: col: col: 1 move ;s branch col: 739 col: >r dup col: 5334 ;s dup ?branch nip 2454 ?branch ;s ;s col: 6 var: @ ?branch over 25 u>= ?branch drop con: 2 1- con: rshift 1+ 6 defer: col: cell+ dup 2223 swap >r ;s count 639 cell+ >r @ col: 387 ?branch lit /string col: 60 ?branch var: @ field: 3825 ?dup ?branch 0> ?branch 14436 ;s ;s lit col: 748 dup 0> ?branch lit 152 and + faligned over 14 0= ?branch nip nip 226 2drop ;s ;s branch 3 c@ and swap c! 724 user: ! col: user: 1089 var: @ 1- dup 821 col: lit user: ! 518 2dup 2>r col: col: 62 @ con: = col: 630 ! lit col: var: 847 ;s lit (?do) unloop 21088 var: @ + ;s 37 + @ user: ! 7612 branch 2dup + r> 2 col: dup count col: 272 defer: noop col: col: 736 @ lit <> and 76 dup 0= ?branch drop 19 execute var: ;s branch 774 ?branch user: @ dup 139 ;s ?branch ;s ;s 1967 ;s 2drop ;s branch 1501 ;s var: ! var: 1452 user: ! drop ;s 6 - var: over cell+ 460 @ lit col: >r 2169 +! @ c! ;s 7665 @ ;s ;s col: 322 ?branch var: @ var: 750 2drop col: col: col: 6410 c! (loop) unloop 2drop 1166 ;s ?branch var: @ 1 execute col: drop ;s 121 @ var: col: con: 9853 cell+ dup c@ >r 102 var: @ ?branch con: 736 @ col: dup col: 980 user: ! ;s 0= 29 var: @ + col: 1 tuck - lit cells 1 defer: (type) con: col: 1210 ;s user: @ lit 4 +! ;s does-handler! ;s 518 ;s ?branch 2rdrop branch 2873 dup ?branch 0> ?branch 4 ;s r> col: >r 7629 con: = ?branch drop 748 col: user: @ col: 1430 >r swap user: @ 2 ?branch 2dup * allocate 5334 nip unloop ;s ;s 1217 dup user: ! lit 118 col: col: con: + 426 ! r> user: ! 37 lit /string branch ;s 3 + ;s col: col: 5907 var: dup @ 1- 1452 ;s user: ! drop 1129 ! col: var: dup 13102 ;s lit col: col: 32 ;s con: var: col: 760 2@ drop user: @ 20 ;s ;s dup 0= 25 - lit min 2dup 37 @ user: ! lit 295 nip execute col: user: 22073 over c@ r@ <> 857 and 0= ?branch @ 1 1+ /string ;s var: 4222 ! ;s ;s ;s 736 drop ;s branch @ 10 var: 2! col: col: 187 - swap col: col: 322 var: cell+ ! col: 2234 ! col: col: var: 1895 r@ swap col: lit 1216 ;s dup user: ! 4 cmove var: r> ;s 79 ;s rot ! col: 3066 ;s ?branch col: col: 6410 (do) con: col: >r 1 ;s ;s var: over 13 >r ;s drop col: 55 ?branch lit - dup 9776 lit /mod rot + 7 ! over c@ lit 1 >body @ col: col: 789 ?branch drop ! ;s 14 ?branch ;s ;s r> 725 ?branch ;s ?branch drop 1162 col: dup 0= lit 14 2! 2* cells + 131 does-code! ;s ;s swap 1169 aligned swap (?do) unloop 1 @ lit > ?branch 1 ;s r> tuck - 15 ;s var: @ + 1500 ! var: @ ?branch 11 nip ;s col: lit 100 ;s r@ col: dup 14 r> rdrop lit branch 27 dup r> - ?branch 208 dup >r count col: 1224 tuck c@ xor swap 102 col: col: con: @ 1 2@ nip var: 2! 3669 ;s lit + aligned 6 0< ?branch lit @ 4 d>s ;s ;s ;s 1162 and ;s var: @ 1222 @ field: @ field: 1457 @ lit = ?branch 34 = ?branch lit col: 120 branch lit col: var: 13 ;s drop col: ?dup 1514 lit col: user: @ 1162 defer: defer: col: col: 1162 lit and ;s var: 7 swap r> col: 1- 1748 ;s @ execute col: 14 dup >r var: swap 44 0> ?branch dup col: 290 0<> and ?branch var: 8 nip execute does: dup 86 ?branch con: <> col: 86 con: = ?branch con: 920 count ;s con: write-file 801 >r col: lit (?do) 779 col: con: lshift ;s 7648 ;s col: over >r 6869 and ?branch ;s ;s 7 col: + ;s ;s 1532 ;s branch ;s user: 7648 col: over >r rot 3047 branch col: user: @ 1 var: ! col: lit 13360 2dup i 2@ over 873 r> /does-handler + col: 20 cell+ var: ! ;s 349 var: @ ?branch var: 1129 @ 1+ dup con: 7 ;s var: field: @ 1 ?branch i 1+ var: 52 branch ;s branch ;s 119 ;s branch dup col: 160 nip r> ;s ?branch 4 2dup defer: (type) compare 79 rot ! col: col: 1368 i c@ + swap 119 var: @ var: col: 4 (type) compare 0<> ?branch 1 ;s over r> tuck 6 >= ?branch ;s lit 14 (?do) dup >r 2@ 102 <> and col: col: 2 execute col: var: ;s 2 dup ?branch ;s nip 103 ;s var: @ @ 1713 branch ;s user: @ 97 ;s ;s con: ;s 25 lit max lit (?do) 1162 ?dup ;s ?branch col: 2 ;s count ;s compare 7 dup field: dup var: 9370 ?branch r> lit and 4041 user: @ ;s con: 13 - swap lit col: 748 0> ?branch lit col: 1210 @ + ;s count 2 execute lshift ;s branch 4 lit and ;s 2dup 72 user: @ >r >r 7 ;s ;s var: field: 22 con: - col: col: 5 ?branch var: @ over 62 branch ;s ;s user: 149 0= ?branch ;s col: 1 defer: drop ;s ;s 1 over >r lit col: 7612 move c! ;s con: 3 ;s invert over c@ 5907 dup @ 1- cells 216 noop ;s ;s branch 7 ! ;s >r rot 4 - ;s ;s branch 5907 con: ?branch lit col: 7612 >r user: @ over 1 swap c! 1+ col: 2 lit * ;s ;s 3 @ col: lit lit 14 ?branch var: 2@ lit 1898 ;s move ;s col: 736 @ con: = swap 1 nip 0<> ;s col: 4 ;s ;s r> col: 25 i - lit min 20 dup var: <= ?branch 72 col: r> user: @ 483 and ?branch 1- r> 1457 count col: user: @ 325 ;s branch lit col: 97 @ user: @ ?branch 325 / ;s col: user: 119 @ col: cell+ cell+ 760 @ 2* cells + 6 cell+ dup @ 0< 873 col: r> /does-handler + 14 + dup >r con: 5004 + swap col: var: 1 @ ?branch drop ;s 764 u< ?branch drop ;s 2 col: 0= ?branch ;s 460 +! ;s con: write-file 3669 aligned ;s con: - 103 0> ?branch col: user: 1 ?branch @ col: col: 40 tuck ! cell+ tuck 7612 col: col: col: col: 15 ;s branch ;s col: 5 col: col: col: lit 14 col: col: 2dup lit 1 >r 2dup col: col: 3 @ tuck col: col: 14 var: 2@ tuck 1+ 1 @ ;s 1- con: 1 lit r@ write-file col: 18 defer: noop ;s col: 76 = ?branch i - 1 drop var: 2@ nip 4 swap 1+ /string ;s 13 drop >r drop col: 19 c@ ;s col: lit 1603 and ;s lit (?do) 6 var: +! var: @ 10082 over <> ?branch col: 3278 ?branch drop 2drop lit 14 over r> + dup 36 @ ;s over char+ 13 swap con: - swap 14 col: dup col: var: 119 swap ! var: col: 1106 branch var: col: con: 10404 ?branch ;s defer: col: 1162 defer: col: col: col: 319 col: user: @ swap 811 ! ;s var: col: 1162 ;s var: @ field: 79 con: ;s ?branch ;s 1162 var: @ and ?dup 801 ! ;s lit lit 2020 r> col: >r dup 27 ! ;s col: con: 15 ;s swap 2dup r> 5213 c! ;s (loop) con: 5004 col: var: + c@ 1 execute col: var: over 11 + ;s @ ;s 28954 col: col: col: user: 7 ;s + swap r> 79 @ ;s rot ! 5603 write-file col: ?dup ?branch 3 >body ;s branch col: 750 dup ! ;s col: 1 (type) ;s 2dup defer: 5 @ ;s branch col: 130 ;s col: lit cells 9 c@ ;s col: user: 6 cell+ ! dup @ 5102 col: dup count lit 19 col: col: con: <> 1257 col: var: col: con: 15 user: @ lit pick 98 ;s 0> ?branch col: 15746 ;s r> xor cells 25 2dup defer: (type) (+loop) 1 ! execute col: user: 1 col: col: con: 0= 14 col: 1- tuck + 342 swap 1- (do) con: 60 @ ;s col: lit 736 col: var: ! ;s 4041 swap user: ! lit 1162 0= lit and col: 102 dup col: dup con: 74 ?branch con: branch ;s 1 var: @ con: cells 573 unloop 2drop con: ;s 4 lit swap 1+ /string 5004 var: + c@ ;s 1948 var: @ col: var: 801 2swap dup >r col: 119 var: @ ;s col: 363 swap col: col: var: 873 + col: col: user: 6 0= ?branch ;s >body 19 swap ;s branch ;s 1430 ;s ?branch col: swap 13 var: ! ;s rdrop 20 var: ! ;s over 40 swap con: - dup 23847 field: @ execute col: 290 and ?branch var: col: 873 /does-handler + col: col: 1205 r> col: col: var: 6410 (loop) unloop 2drop ;s 1 ! var: @ con: 5907 @ 1- cells over 19 ;s ;s swap ;s 97 ?branch dup col: col: 750 @ lit col: col: 5004 rot + swap col: 801 ;s lit lit 2swap 63 * 1- >r r@ 774 unloop lit branch ;s 1 ?branch ;s >r var: 980 ! ;s 0= col: 325 ;s col: user: col: 7800 ;s @ ;s ;s 1368 swap con: um* rot 29 con: + ;s var: 6951 i c@ col: col: 725 dup ?branch ;s ?branch 9773 ;s over c@ or 1162 col: >r 2dup 2dup 3791 ;s ;s col: dup 1 ;s 0= ?branch col: 18 ?branch drop ;s ;s 2 over ;s branch col: 4 = ;s ;s branch 1168 0< ?branch var: @ 2199 >r ;s count ;s 1 0= ?branch lit (bye) 224 execute col: defer: noop 44 ;s 0> ?branch dup 2 execute create-file ;s branch 6 lit @ var: ! 9342 >r swap >r ;s 406 >r dup ?branch rdrop 748 con: lshift ;s - 9 ;s count col: col: 750 col: 2drop col: col: 2140 ;s count ;s con: 6410 unloop 2drop ;s ;s 1218 ;s col: user: @ 4 branch con: defer: noop 9853 c@ >r col: count 6752 @ + ;s col: 1162 unloop ;s ;s lit 631 ?branch col: var: col: 1486 count col: dup col: 9204 @ > ?branch fp@ 1 (?do) i col: cells 764 ?branch drop ;s user: 22073 dup ?branch over c@ 342 lit r> con: col: 6410 i c! (loop) unloop 76 = ?branch con: (+loop) 1106 (hashfind) ;s ;s var: 852 ;s (?do) i c@ 750 ;s var: ! user: 1 execute col: 0= ?branch 1020 ;s ;s branch ;s 1 ! lit + dup 1 (type) con: col: lit 7613 ;s col: var: @ 18159 user: @ ;s 2dup 801 >r user: col: con: 1898 @ ;s swap dup 2048 ! ;s lit pick 736 ?branch dup col: dup 18 cr col: col: r> 9853 dup ?branch col: cell+ 1680 nip execute col: col: 1 execute 2! ;s branch 33 ;s ;s char+ c@ 292 faligned swap (?do) unloop 276 ! ;s col: var: 518 2>r col: col: user: 10646 con: col: col: col: 29 @ var: @ + 5004 col: con: rshift ;s 1216 ;s ! ;s code-address! 779 var: @ var: @ 6 drop branch ;s branch 14 r> + dup >r 2 dup 0< ?branch drop 346 col: lit col: user: 63 con: 1+ within 0= 160 swap ! ;s nip 152 faligned over lit + 7648 rot over 1+ r> 1 1+ col: col: col: 1503 r@ <> ?branch rdrop 801 lit 2swap dup >r 852 (?do) i c@ col: 1 over 1- con: rshift 3467 = ?branch col: col: 2 0= ?branch ;s swap 1110 ;s ! ;s does: 2 2dup col: col: r> 1291 ;s does: col: var: 1 2! col: var: 2@ 518 ?branch nip ;s ?branch 736 ?branch drop ;s branch 1 unloop 2drop drop con: 1898 dup col: col: user: 1449 con: ;s ?branch col: 1115 rdrop ;s ;s col: 86 con: var: @ ! 4 compare 0<> ?branch 2drop 4 defer: (type) compare 0<> 9342 + aligned >r swap 1934 c! ;s col: col: 4 execute col: - ;s 117 ;s ;s drop ;s 20570 <> ?branch lit /string 10 2@ d<> ?branch var: 76 ?branch drop lit col: 1895 ;s r> ;s tuck 2 + (loop) unloop drop 1 lit ;s (+loop) i 325 rdrop ;s branch lit 4 con: min >r var: 18 noop ;s col: r> 13 rdrop lit ;s r> 6 ! ;s con: @ 18 0= ?branch dup col: 730 does-code! ;s ;s ;s 387 dnegate r> user: ! 750 min con: write-file col: 4772 ;s con: / col: 4 dup ;s ;s branch 16 lit var: +! col: 13 ! >r ;s drop 24575 var: @ ;s ;s 1 over col: tuck allocate 76 con: (+loop) dup i 4179 user: @ ?branch col: 200 col: col: defer: defer: 4772 / col: col: lit 102 and col: col: r> 3 ?branch ! ;s ;s 1222 var: @ field: @ 1 dup ?branch drop var: 4 ;s ;s drop col: 1895 lit + dup @ 4 >r ;s ;s col: 7612 rot dup con: = 2338 and col: ?dup ?branch 32 col: 2dup u< ?branch 1 2@ col: col: col: 1532 ?branch nip col: cell+ 1960 ?dup ?branch ;s user: 1058 ! col: con: col: 1 @ >r var: @ 1368 um* rot + swap 3 execute >body ;s branch 1430 um* d+ r> ;s 5013 dup c@ 0= ?branch 4 ! defer: col: cell+ 21073 col: var: @ + 582 col: lit col: >r 7612 = ?branch drop (parse-white) 2463 ;s dup ?branch ;s 736 var: ! ;s var: 13 lit ;s r> user: 1895 ! r> var: @ 14 nip ?branch var: 2@ 1216 ;s col: lit >code-address 102 @ ;s over - 1 r> tuck - lit 272 noop col: col: col: 414 dup >r ?branch col: 1 var: 2@ col: col: 1 con: 0= ?branch lit 1 close-file col: ?dup ?branch 1 swap ;s (?do) unloop 2 execute col: lit (?do) 1 swap ! ;s rp@ 2889 and ?branch nip nip 4169 dup ?branch >r >body 128 ?branch col: r> dup 58 ! ;s lit user: 774 ?branch 2drop rdrop r> 3825 nip r> ;s ?dup 1500 var: count con: write-file 37 ?branch cells var: + 6 ;s dup col: lit 1 + dup user: ! 37 var: + @ user: 8440 ;s ;s col: col: 62 ?branch rdrop ;s col: 599 branch ;s branch col: 15 col: >r >r user: 12 nip ;s swap user: 79 r@ rot col: col: 460 2drop col: defer: col: 4 col: >r ;s ;s 319 dup negate user: +! 1291 ! ;s does: col: 518 nip ;s ?branch 2rdrop 14 2dup 1+ var: 2! 1 1+ col: cells var: 852 swap ;s (?do) i 8 col: lit does: swap 4772 con: - ;s con: 13 ;s ;s swap con: 6 ! dup @ dup 40 cell+ tuck ! cell+ 1 execute col: * ;s 745 ;s over col: cell+ 76 - unloop ;s ;s 1 <> ?branch 2dup + 7612 count + c! col: 1430 um* drop rot user: 7731 @ ;s col: over 4845 cell+ @ = ?branch 1226 var: @ ?branch dup 25 defer: (type) (+loop) unloop 7 ;s ;s dup field: 28 ?branch var: @ ?branch 17 cell+ ! branch ;s 208 ;s ?dup ?branch col: 1 col: * ;s ;s 15 @ + col: col: 1728 ;s col: col: r> 11922 ;s c! ;s ;s 1216 @ ;s dup user: 1 var: 2@ 2* cells 5341 ;s dup ?branch drop 4772 ;s ;s ! ;s 2 lit u<= ?branch drop 322 var: @ var: cell+ 1210 ;s count lit and 5004 var: @ swap col: 1 @ ;s >r over 1 con: lit ! lit 736 dup col: dup cell+ 289 0< ?branch var: col: 6 over ! lit var: 2 ;s (loop) unloop drop 120 var: ! branch lit 1 ;s ?branch col: user: 309 execute col: dup 0< 24 ;s count defer: (type) 79 dup @ col: var: 6011 ;s con: col: var: 7 lshift ;s lit col: 3825 r> ;s ?dup ?branch 750 dup col: ;s var: 14 cells resize col: ?dup 27 rdrop user: col: con: 1 lit cells col: col: 27 ;s dup ?branch dup 1 con: cells allocate col: 97 @ ?branch cell+ @ 7648 over 1+ r> move 88 >r fp@ >r col: 4 nip nip execute cells 630 var: ! lit col: 4772 @ + ;s swap 1 var: lit r@ write-file 1895 cells >r var: lit 1895 @ 0< ?branch @ 6 ;s lit cells - 32 = ;s 0= ?branch 15 drop col: con: @ 20 swap var: ! ;s 1 ;s var: 2! var: 124 execute col: col: defer: 12 @ execute col: ;s 1026 (+loop) con: * swap 40 ;s nip ;s col: 1162 ?branch dup @ 0< 1 rshift 1+ r@ write-file 1 ! ;s drop ;s 8982 user: ! ;s col: 119 ?branch dup col: cell+ 6410 ;s r> con: col: 1 var: 2! ;s defer: 3 invert over c@ and 527 swap ! ;s col: 2020 rdrop ;s >r over 71 dup ?branch r> r> 22073 c@ r@ <> ?branch 1 execute col: 2* ;s 1 var: ! ;s drop 1 rdrop ;s over r> 1452 user: @ u>= ?branch 7 execute col: + ;s 1 @ ?branch ;s ;s 736 swap ! col: con: 15 swap 2dup r> -rot 1162 >r 2dup 2dup r> 44 ?branch dup col: ;s 1500 ?branch ;s var: count 20 tuck ! cell+ var: 1 swap ! ;s cr 750 unloop ;s col: ;s 10 @ 0< ?branch ;s 18159 r> min user: ! 1 @ ?dup ?branch @ 74 branch ;s lit col: 88 >r rp@ user: ! 102 dup con: <> swap 55 lit u> ?branch lit 58 ?branch 2drop ;s r> 4 noop col: r> dup 27 ?branch 2drop user: ! 3 var: @ ?branch ;s 27 - unloop ;s dup 40 @ swap con: - 18159 + r> - 1+ 150 1+ pick >r cells 1 nip execute col: 2* 62 nip r> ;s 0= 7 execute 2drop ;s branch 79 rot col: col: var: 1205 ;s xor r> col: 1603 ;s col: con: tuck 8 + ;s ;s branch 27809 col: >r lit r@ 1895 lit cells lit col: 19 lit lit col: >r 83 r> r> user: ! 1 rshift 1+ col: tuck 4748 dup ?branch drop branch 4 2drop col: lit does: 1717 col: ;s @ con: 1106 ! branch var: col: 10 ?branch var: count con: 13 lit ;s user: @ 1 dup @ ?branch drop 2 ! ;s branch @ 3302 swap ! ;s ;s 1 r> close-file col: ?dup 6 var: @ >r var: 25 lit (?do) i' i 7612 ?branch drop (parse-white) branch 2 count col: var: @ 976 ;s swap user: ! 5102 count lit col: col: 789 ?branch 2dup swap col: 1162 ;s ?branch dup @ 460 user: ! var: col: 736 code-address! ;s ;s var: 6 col: 2dup u<> ?branch 1 lit ;s ?dup ?branch 1 ! fp@ user: ! 40 col: col: lit col: 2 nip nip execute 1- 23847 field: @ field: @ 37 lit u< ?branch cells 119 con: <> ?branch dup 1 col: var: 2@ col: 1 + lit swap c! 14 ;s var: swap ;s 3 execute col: cr ;s 4706 2drop ;s branch col: 38 con: @ col: 2dup 1793 execute col: col: col: 14 @ + col: dup 75 drop 2dup col: col: 2 (loop) unloop drop ;s 5907 col: drop var: dup 14 >r 2@ dup >r 12 ;s ! ;s r> 74 con: branch ;s lit 9204 ?branch fp@ user: @ 18159 @ ;s 2dup >r 1 >r var: lit r@ 2 col: var: ;s ;s 1 con: cells col: lit 4772 does: + c@ ;s 14 0<> lit and col: 18159 - 1+ r> min 86 ;s con: var: @ 20570 /string branch dup ?branch 20 >= col: col: r> 325 ?dup ?branch 1- <> 448 >r user: @ >r 13 rdrop lit ;s user: 1 nip nip execute field: 14 1- tuck + swap 446 ! ;s lit var: 120 ?dup ;s ?branch ;s 13 swap ;s col: user: 150 sp@ cell+ dup cell+ 49 nip ;s user: ! 27 var: @ col: dup 6099 ;s (loop) i c@ 280 @ execute col: user: 1895 lit and col: con: 32 @ ;s - col: 319 swap - col: dup 6099 ?branch defer: col: 2dup 57 count ;s col: col: 5907 over + (do) 2dup 102 <> swap con: <> 6 >r var: col: con: 1162 ;s var: @ and 6410 col: >r col: dup 4 col: = ;s ;s 3 @ + @ col: 483 ?branch 1- r> lit 68 drop branch ;s ;s 11129 ;s col: col: col: 27 i' i - unloop 97 cell+ @ col: col: 1 @ = ?branch user: 41 execute col: defer: col: 27 2drop user: ! col: 4635 0= col: col: r> 10 count con: col: dup 869 ! user: @ col: 13 drop col: ?dup ?branch 4041 @ ;s con: user: 150 cell+ dup cell+ rot 3 r@ write-file col: ?dup 1106 branch ;s col: user: 1895 0< ?branch @ over 3 + @ col: lit 387 r> ?branch dnegate r> 1 1+ r@ write-file col: 15746 @ + @ (hashfind) 1430 user: @ um* d+ 1 2drop dup >r lit 256 nip ;s dup ?branch 13 user: @ close-file swap 28 con: ;s lit col: 36 ;s over char+ col: 739 over col: cell+ ;s 1224 rdrop ;s cell+ tuck 1162 2dup r> col: dup 3 c@ lit <> ?branch 14 user: @ >r col: 460 ;s 2drop lit col: 750 unloop ;s ;s user: 1 over r> tuck - 799 ;s user: ! ;s 129 user: +! ;s col: 76 + = ?branch i 1162 ;s @ ;s user: 980 branch user: @ con: 961 dup col: ;s @ 933 dup ?branch ;s dup 267 rdrop ;s ;s lit 1499 r> ?branch 1+ user: 6279 @ col: col: dup 1 ;s var: over col: 789 dup ?branch 2dup swap 14 ?branch ;s var: swap 1 ;s ?dup ?branch r> 3437 @ con: = ?branch 6410 dup 0< ;s r> 1895 ?dup 0= ?branch >r 17 lit cells + count 980 rdrop ;s branch user: 736 ! ;s con: col: 4 execute col: = ;s 12 ! >r >r col: 1 lit ! lit col: 1603 - lit and ;s 55520 user: @ ;s @ 14 swap invert and ;s 1210 ;s defer: col: col: 6410 0< ;s r> con: 15 swap >r dup allocate 15 pick col: lit over 32 con: var: col: con: 1 col: lit or ;s 4772 swap does: + c@ 1 ?branch user: @ user: 750 @ dup 0> ?branch 6347 2drop ;s ;s ;s 3 execute + ;s branch 3669 @ ;s lit + 32 ;s ;s con: var: 1162 var: @ @ over 208 ?branch col: dup >r 1 ?branch 2drop col: col: 15 >r user: @ lit 12 ;s nip ;s swap 14 >r col: swap >r 14 2@ nip 1- user: 736 ;s @ lit <> 736 ;s @ ;s tuck 10 = ?branch col: dup 22 - col: col: user: 650 sp@ user: @ swap 97 ;s con: ;s ?branch 1205 + ;s c@ ;s 9342 r> r> dup count 1430 @ um* drop rot 736 lit <> and ;s 750 dup @ tuck - 2169 @ c! ;s ;s 756 con: <> ?branch col: 88 laddr# ;s >r user: 1162 @ @ over ! 803 ;s over c@ lit 4772 col: con: - ;s 4748 drop branch lit (+loop) 6 ;s drop col: r> 426 r> user: ! r> 2020 >r over - dup 750 ;s 2@ var: 2@ 750 ?branch ;s user: ! 1 ;s ;s col: 2swap 1 2dup + lit swap 4772 rot + swap does: 8 execute col: lit var: 4033 0= ?branch col: col: 119 @ dup 0< ?branch 750 col: var: @ 0<> 1670 ;s ! ;s lit 1499 ?branch 1+ user: +! 980 ;s branch user: @ 309 ;s over col: over 108 nip ;s dup col: 10 var: count con: col: 6 col: dup lit = 2 unloop drop branch lit 7612 drop (parse-white) branch 2dup 158 (loop) col: dup ;s 460 drop ;s ;s ;s 801 - dup lit u< 334 col: user: col: con: 15 d>s ;s ;s var: 1106 ! ! branch var: 342 lit lit r> con: 53 lit u<= ?branch dup 150 dup 1+ pick >r 9853 ;s r@ lit and 1454 - dup lit u> 768 ?branch col: col: var: 1895 ;s tuck cell+ ! 1 1- + c@ lit 7 ;s ;s + swap 208 count col: col: user: 319 +! lit over = 7 var: field: @ col: 17 drop swap cell+ ! 62 ;s col: cell+ ;s 1 ;s >body @ col: 2 0< ?branch drop con: 13 or col: dup ?branch 1 ?branch 2drop dup >r 9 count col: col: 2dup 1 + c@ lit <> 62 con: = col: col: 27809 >r lit r@ um/mod 2614 @ ;s user: ! 88 r> swap >r fp@ 6098 branch col: sp@ user: 92 branch ;s ;s branch 42 0> ?branch col: dup 87 ! execute col: col: 593 dup ?branch drop 2dup 387 ?branch dnegate r> user: 20 var: <= ?branch con: 27809 swap >r um/mod r> 50 >r r@ col: dup 20 @ dup var: <= 119 + ;s @ dup 2 col: lit * ;s 12 rot swap col: cell+ 50 ;s rdrop dup col: 13 ;s col: >r >r 322 var: cell+ @ col: 4041 user: @ ?dup ?branch 1168 ;s lit col: user: 7 ;s ! ;s >r 319 @ swap - col: 5 @ ?branch col: con: 1 ?branch con: lit ! 6 @ ?branch over col: 26583 col: var: @ ;s 15746 2dup col: con: (hashkey1) 2 lit fill ;s ;s 3106 col: col: sp@ user: 97 var: @ user: @ 1090 ;s ;s var: ! 6410 >r col: dup 0< 7 >r rot r@ col: 1 2* cells col: swap 1 ?branch col: col: 2dup 119 ;s @ col: cell+ 62 r> ;s 0= col: 1895 col: lit + dup 573 (+loop) unloop 2drop con: 6 @ ;s col: con: 25 (type) (+loop) unloop drop 760 2* cells + ;s 443 <> col: col: r> 7612 /string rot dup con: 842 ;s @ con: = 1210 ?branch ;s user: @ 1 var: over 1- con: 76 con: (do) dup i 2 @ ?branch dup defer: 2020 ;s user: @ over 20 ;s tuck ! cell+ 7766 c! ;s ;s col: 2 ?branch ;s swap col: 1166 col: cell+ count lit 1224 ;s cell+ tuck c@ 17 lshift ;s ;s branch 1162 lit u> lit and 2020 ?branch rdrop ;s >r 4872 +! ;s col: dup 122 nip r> ;s dup 955 branch ;s dup ?branch 13 drop con: ;s ;s 6279 col: var: @ col: 17 @ = ?branch lit 7 rot r@ col: 1- 964 ;s ;s swap user: 176 ;s dup col: col: 7 = ?branch 2drop rdrop 13 ?branch ;s r> user: 6 @ over ! lit 14 lit branch unloop 0<> 27809 um/mod r> swap >r 9 execute col: user: col: 14 -rot move ;s col: 5907 drop con: ?branch lit 85 rdrop rdrop rdrop lit 102 col: dup con: <> 27 ?branch r> swap ;s 20854 @ ;s +! ;s 152 lit + = ?branch 14 var: r@ + swap 119 cell+ ;s @ r> 630 @ ?branch lit var: 1 1+ col: tuck allocate 13 ;s ;s r> r> 1 2! var: up! sp@ 1 @ ;s r> tuck 8 0> ?branch col: cell+ 12 ;s ! col: col: 88 >r col: laddr# ;s 1 1+ var: @ = 15 r> drop col: con: 9342 col: col: r> r> 59 ! user: ! user: 1 lit <> ?branch col: 2020 over - dup r> 26071 @ ;s user: @ 3048 ?branch col: col: sp@ 61 code-address! ;s lit col: 14 lit user: ! user: 14 2@ dup >r var: 1218 ;s user: @ con: 14 nip r> rdrop lit 73 user: ! user: col: 23 over col: lit over 16 +! col: var: @ 331 rdrop ;s ;s ;s 943 ;s code-address! ;s ;s 736 ;s ?branch drop ;s 12201 ;s ;s ;s dup 63 lit col: 1+ con: 7 c@ lit = ?branch 120 ;s var: ! branch 1075 user: @ 0= col: 1 ;s var: @ over 6 u<> ?branch drop ;s 269 col: con: + ;s 149 + ;s var: ! 15 user: +! ;s user: 2 ;s swap col: cell+ 20 + ;s ;s col: 518 2rdrop branch ;s branch 656 ;s (loop) count col: 1603 1- and - lit 1 user: ! lit + 7 and ;s ;s ;s 1336 negate ;s ;s ;s 2206 ;s ;s var: @ 16 c! ;s ;s branch 1895 0= ?branch >r drop 3610 user: @ ?dup ;s 342 col: >r lit lit 2 2dup * allocate col: 138 ;s @ ;s over 5 col: col: 0= ?branch 3 nip execute >body ;s 1 2swap 2dup col: col: 3505 ;s ;s ;s col: 3 ;s col: con: var: 1 var: over col: tuck 2046 pick + (loop) dup 754 dup ?branch drop r> 556 col: lit lit ! 17641 col: con: (hashkey1) ;s 631 @ ?branch col: var: 3322 ;s @ col: col: 3061 user: ! ;s ?branch 4 defer: noop col: r> 119 var: ! ;s >r 750 - ;s con: write-file 1 cells allocate col: ?dup 71 r> user: ! >r 774 2drop rdrop r> ?branch 4055 ! lit user: ! 119 user: ! swap col: 491 nip execute col: defer: 1416 user: +! ;s 2drop 1690 write-file ?dup ?branch var: 3 * ;s ;s branch 13 con: - swap lit 16 execute does: col: var: 1 2drop col: col: user: 1 @ lit (?do) i 127 cell+ ;s ! ;s 35 con: ;s branch col: 158 ?branch ;s col: var: 166 col: con: @ col: 17 + count cr col: 58 lit user: ! lit 14 2dup var: r@ + 150 rot move drop r> 120 dup col: lit cells 72 ! user: @ >r 24 con: lshift ;s ;s 1 <> ?branch i 1+ 119 swap user: ! user: 1 execute move ;s branch 1 i 1+ col: cells 25640 r> ;s rot i 2 ;s dup rot ! 9853 lit and 0= ?branch 789 2dup swap col: lit 6 var: over cell+ ! 63 1+ con: * 1- 10145 ;s @ ;s con: 1 ;s create-file col: ?dup 1368 swap i c@ + 789 col: dup @ dup 105626 col: col: user: @ 774 dup ?branch 2drop rdrop 483 lit and ?branch 1- 692 ?branch col: col: user: 25 does: swap lit max 9642 @ ;s lit col: 1 >r var: @ lit 4 ;s does-handler! ;s branch 17 cells + count cr 27809 >r um/mod r> ;s 2 user: @ var: col: 5 ?branch col: con: @ 7750 col: con: swap ! 2 nip nip execute over 6099 (loop) i c@ col: 4 cells ;s branch col: 1 ;s (+loop) i col: 25 i' i - lit 4043 @ ?branch col: user: 12 col: ;s branch ;s 2 nip execute over ;s 3261 ;s ;s ;s branch 3393 dup @ con: = 27 ! ;s branch r> 309 col: dup 0< ?branch 1499 1+ user: +! ;s 71 = ?branch r@ user: 5 >body user: @ ?branch 10145 @ ;s con: col: 2048 lit pick + (loop) 5907 @ execute col: drop 59 user: ! user: ! 73 ! branch ;s ;s 1224 cell+ tuck c@ xor 32 @ col: 2dup u< 748 ?branch lit col: con: 2390 (loop) unloop ;s ;s 1 or ?branch 2drop dup 1 > ?branch con: lit 1 nip execute 2! ;s 1136 ;s var: ! ;s 6 ?branch 2drop r> var: 1 col: con: 0= ?branch 1 fill ;s var: @ 325 con: / ;s ?dup 750 con: - dup ! 750 user: @ min con: 16092 @ execute col: lit 816 col: user: @ >r 88 rp@ user: ! execute 1 ?dup ?branch @ col: 1106 ! branch ;s col: 35 nip nip execute con: 29 faligned nip ;s col: 20 r@ u>= ?branch col: 856 ;s var: col: con: 4 ;s +! ;s does-handler! 736 = swap col: cell+ 13 ;s rdrop ;s col: 15 lit pick col: lit 4 @ ?branch defer: noop 4 does-handler! ;s branch con: 9853 r> lit and ?branch 7119 >r ;s >r ?branch 2 u<= ?branch drop con: 160 col: dup ;s col: 119 ;s @ dup col: 1 lit fill ;s var: 53 u<= ?branch dup user: 13 r@ pick rdrop dup 21 execute col: var: @ 18 allocate col: ?dup ?branch 774 lit branch ;s dup 6 var: @ over ! 1224 c@ xor swap c! 4781 ?branch ;s ;s ;s 2169 con: - lit over 28 user: ! col: var: 4473 0= ?branch user: @ 103 @ dup con: = 1895 cell+ ! r> var: 1895 xor cells >r var: 319 col: dup negate user: 2873 ;s dup ?branch 0> 5004 col: var: @ swap 736 tuck swap ! col: 4041 @ ?dup ?branch read-line 208 >r count col: col: 15746 (hashkey1) ;s r> xor 4041 lit user: +! swap 2169 lit + col: col: 58 execute col: col: sp@ 6099 dup ?branch defer: col: 736 and ;s ?branch drop 2 create-file ;s branch col: 25 (?do) i' i - 801 lit = dup >r 1 ! var: ! col: 1 execute c! ;s branch 2020 swap r> col: >r 1 - dup ?branch 2dup 1 +! ;s 2! ;s 88 >r sp@ r> swap 460 ?dup ?branch ;s lit 2048 dup lit pick col: 4493 ! ;s ;s col: 2889 dup ?branch lit and 319 lit over = ?branch 750 ;s col: ;s var: 1 ;s +! ;s 2! 19 lit col: >r dup 4772 c! ;s ;s ! 102 - swap ! ;s 1 defer: (type) ;s var: 208 does: @ execute does: 736 ;s @ ;s var: 2 branch lit pick @ 4845 dup ?branch 2dup cell+ 2169 lit over < ?branch 119 ;s swap ! var: 4379 dup @ cells + 191 user: ! user: @ 37 ;s lit col: 1+ 2019 lit col: >r defer: 10 2dup con: write-file col: 1603 col: con: tuck 1- 1 ! ;s cr col: 181 drop branch ;s user: 76 + = ?branch con: 119 user: @ col: var: 1 field: ;s branch col: 567 execute col: user: @ 3 = ?branch con: ;s 16 dup 0= ?branch ;s 6099 ;s dup ?branch defer: 4772 col: con: dup @ 810 con: - dup @ 13 rdrop ;s col: r> 736 ;s col: defer: defer: 13 col: drop >r drop 1 /string ;s ;s col: 1 ;s cr ;s ;s 17 execute col: con: lshift 119 dup col: col: lit 117 drop ;s col: lit 1 @ 0= ?branch con: 1 ?branch r> user: +! 2 - col: var: @ 34 ?branch lit col: dup 22 ;s var: @ 2dup 15 - dup ?branch drop 20440 branch dup ?branch over 29 nip ;s col: dup 1368 c@ + swap lit 1 (?do) unloop 2drop drop 158 ;s ;s (loop) col: 76 (+loop) dup i - 1 ?branch ;s var: ! 279 ;s ;s ;s swap 521 dup r> ?branch user: 1898 +! ;s move ;s 774 0= ?branch nip ;s 208 ?dup ?branch col: dup 739 drop r> ;s over 1 compare 0= r> or 1 ?branch ;s r> close-file 156 dup ?branch nip branch 4 (type) ;s col: cell+ 4 ?dup ?branch col: col: 1 col: drop ;s ;s 736 col: dup cell+ @ 827 col: col: col: r> 1 defer: (type) ;s 2dup 119 @ r> col: cell+ 19 nip nip execute var: 1 (type) ;s var: @ 84 execute col: ;s ;s 1527 ;s branch @ dup 4055 user: ! lit user: 4 ;s col: lit var: 1106 @ ?branch dup @ 1532 nip col: cell+ cell+ 859 (loop) unloop ;s col: 2 ;s nip 0<> ;s 736 cell+ @ col: dup 28 ?branch drop con: ;s 760 drop user: @ 2* 119 @ col: var: col: 6 ;s var: @ lit 35 aligned swap (?do) con: 208 dup ?branch ;s ?dup 1495 @ ;s ;s count 322 @ col: over col: 1690 ?branch var: count r> 1205 var: @ dup >r 1 cells col: lit fill 1162 ! var: @ ! 15746 xor cells var: @ 1 0= >r 2dup col: 4 cr ;s ;s branch 24 >r ;s count defer: 5907 (do) 2dup i 2@ 1162 ;s ?branch col: cell+ 6 ! ?dup ?branch ;s 14 2@ lit (?do) dup 13 var: swap ;s col: 1158 2drop ;s var: @ 1162 var: @ ! branch 24 ;s col: var: 2@ 181 ?branch rdrop branch ;s 42 cell+ cell+ ;s col: 3 @ dup @ ?branch 79 col: cell+ ;s dup 1895 r> var: @ + 15 ?branch drop r> col: 16738 +! ;s col: col: 1162 var: @ col: >r 7119 swap >r ;s >r 319 ?branch branch drop ;s 58 2drop ;s r> user: 1162 @ and ?dup ?branch 2 branch ;s col: dup 5907 lit col: drop var: 1 2! ;s branch dup 880 @ (f83find) ;s ;s 1897 pick @ ?dup 0= 3132 ?branch ;s ;s dup 32 u< ?branch = ;s 49 faligned nip ;s user: 9370 and ?branch r> lit 7648 over >r rot over 72 >r ;s user: ! 15 ;s user: @ ?branch 55520 @ ;s @ ;s 460 user: @ /string con: 309 over col: over col: 5897 @ con: col: col: 319 over = ?branch branch 972 col: @ (f83find) ;s 1 lit or ;s create-file 2889 lit and ?branch nip 1224 xor swap c! ;s 75 ?branch drop 2dup col: 1212 ?branch ;s var: @ 5004 rshift ;s col: col: 4 and ;s 2dup defer: 1 var: 2! var: up! 6 @ 0< ?branch lit 9776 col: col: lit /mod 2338 lit and col: ?dup 3393 col: dup @ con: 342 lit (+loop) unloop d>s 739 swap col: ;s ! 5907 ?branch lit col: drop 14 2* cells resize col: 60 ;s lit col: lit 15746 r> xor cells var: 4 ;s col: lit does: 2 lit col: ;s ;s 14 resize col: ?dup ?branch 1368 rot + swap i 2 ! col: defer: col: 5 @ 0= ?branch var: 7 branch col: var: @ 2984 and ?branch negate ;s 1 1- ;s ;s branch 119 ! ;s >r dup 14 lit (?do) dup >r 2169 ;s con: - lit 12 cell+ ;s ! col: 3278 drop 2drop lit (+loop) 20 ! ;s over r@ 114 ;s swap col: col: 2 dup 0> ?branch col: 6 nip nip execute drop 1327 does: col: var: dup 28 code-address! ;s ;s lit 255 ;s drop branch ;s 20854 user: @ ;s +! 750 + ;s 2@ var: 789 ;s ;s branch @ 60 - dup @ swap 9773 c@ ;s ;s over 1 con: rshift 1+ r@ 1 ;s drop ;s ;s 750 d0= ?branch ;s col: 13360 2@ over <> ?branch 22 ! drop ;s lit 4 ;s col: cell+ count 857 ?branch @ lit r@ 3750 ;s ;s branch col: 3825 0> ?branch nip col: 27 i - unloop ;s 322 ;s var: cell+ ! 97 user: @ ?branch cell+ 160 ! ;s nip ;s 12 swap dup user: ! 3047 ?branch 2drop ;s branch 1690 var: count r> write-file 160 ;s ?branch var: col: 1 cells / ;s var: 1 var: up! sp@ dup 181 ;s ;s drop branch 119 ?branch user: @ col: 7612 ;s @ ;s count 1 <> ?branch col: col: 99 execute col: col: r> 131 @ col: col: defer: 387 rdrop r> ?branch r> 650 ;s col: sp@ user: 1898 ;s swap dup col: 10005 lit and + faligned 25640 ;s rot i c! 1168 @ 0< ?branch var: 4790 ?branch 0> ?branch nip 1 @ col: col: var: 1162 r> col: dup field: 325 ?branch 1- <> col: 6 lit cells - var: 15 2dup r> -rot move 280 drop ;s branch ;s 460 ?dup ?branch ;s defer: 693 ;s dup col: ;s 119 @ ?branch user: @ 6 drop ;s branch col: 738 swap user: ! col: 2020 over swap r> col: 1 2drop drop con: ;s 19 var: ;s branch col: 1525 branch @ dup ?branch 801 over c@ lit - 88 col: >r sp@ r> 133 dup col: var: @ 76 - con: - unloop 5 unloop ;s branch ;s 22 ;s col: dup con: 750 user: @ col: con: 1 col: var: over 1- 1 nip nip execute move 10 + ;s 2@ 2dup 1898 ;s +! ;s move 131 ! ;s swap ! 1106 ?branch dup @ lit 789 swap col: lit + 573 branch lit (+loop) unloop 2 over c@ lit <> 2169 @ lit max col: 9632 user: @ over min 387 lit /string col: over 1 - lit cells / 17 (type) lit does: swap 1495 ;s ;s count col: 1 0= ?branch con: cells 14 var: 2! 2* cells 120 cells + ;s var: 1 nip nip execute 2! 55 u> ?branch lit - 1 ;s 1- con: rshift 460 2drop lit col: >r 4041 +! swap user: ! 57 over col: col: var: 27 dup ?branch dup r> 2169 + col: col: col: 31733 ;s ;s dup ?branch 1 var: @ dup @ 1236 ! ;s ;s lit 17 = ?branch drop ;s 2169 over +! @ c! 1 user: @ ?branch ;s 56 (f83find) ;s ;s var: 2 col: user: @ var: 1581 ;s ! ;s col: 14 var: 2@ nip 1- 2 lit lit col: ;s 27 con: ;s dup ?branch 54 ;s swap ! ;s 808 over c@ lit = 342 ;s swap 1- (do) 97 ?branch cell+ @ col: 7612 c! col: col: user: 3 ! defer: drop ;s 1368 + swap lit (+loop) 10 2@ 2dup con: write-file 1895 ! r@ swap col: 13 r> r> rot col: 1 ;s lit cells col: 14 2dup lit col: >r 1895 fill ;s r> ;s 1430 drop rot user: @ 1 ?branch 2dup 1- + 2780 dup col: col: col: 6752 r> con: col: over 13 ;s ;s ;s r> 853 ;s col: over + 11039 ;s lit col: var: 1216 >code-address ;s col: col: 11906 @ + ;s c! 656 (loop) count col: user: 2 drop ;s drop col: 7 ;s dup field: dup 10547 /string (parse-white) 2dup + 22 u> 0= ?branch var: 750 @ col: lit user: 3 1+ /string ;s ;s 10547 user: @ /string (parse-white) 6 con: ;s ;s branch 272 ;s ;s defer: noop 750 ;s ;s user: ! 873 @ ;s does-code! ;s 1 2dup col: var: 2@ 33 branch dup ?branch drop 10870 @ ;s ;s lit 992 @ ?branch defer: col: 2378 ! lit col: col: 73 ! lit col: >r 11 col: col: var: col: 2 i col: cells var: 7612 (parse-white) branch 2dup + 1162 dup 0= lit and 14 @ >r col: swap 14 ;s var: 2@ nip 712 ! drop ;s ;s 1 ?dup ?branch ;s r> 1 nip 0<> ;s 0= 4 ?branch rdrop ;s lit 119 >r dup col: col: 13 ?branch ;s col: ?dup 7 and ;s dup col: 1205 xor r> col: col: 1761 ;s col: ?dup ?branch 9853 + faligned ;s r@ 16 col: var: @ 0< 6 ?branch var: @ >r 2016 unloop ;s col: col: 6 dup var: ! ?dup 60 lit col: lit lit 6 col: var: @ 0= 60 ;s ?branch ;s col: 5376 ;s +! ;s ! 181 dup ?branch rdrop branch 4 /does-handler col: col: user: 760 cells + ;s 2@ 736 cell+ ;s @ lit 7 nip execute ! ;s 1 ;s drop var: 2@ 1461 swap (?do) unloop ;s 756 ;s lit (?do) con: 3626 col: user: @ lit 385 0= ?branch ;s ;s 4 r> ;s ;s branch 27 ?branch 2drop rdrop user: 1210 lit and con: write-file 6099 col: 2dup col: var: 15 2drop ;s ;s var: 1925 col: con: col: col: 12 user: ! >r >r 2 nip execute create-file ;s 1898 move ;s col: col: 125 @ ?branch col: r> 119 r> col: cell+ cell+ 42 noop ;s ;s ;s 60 lit user: ! col: 15 >r dup allocate col: 117 ! ;s user: col: 3 col: cr ;s ;s 1 drop con: ;s 0= 2 ?branch dup defer: col: 102 con: <> and col: 1162 ?dup ;s ?branch dup 5897 user: @ con: col: 12 execute col: ;s branch 1205 @ + ;s c@ 48 col: col: defer: noop 152 i - count lit 3154 dup @ lit pick 3047 ;s branch col: user: 27 dup ?branch 2drop user: 1210 count lit and con: 1895 var: lit cells lit 397 (?do) unloop ;s ;s 1699 ?dup ?branch ;s col: 1166 ?dup ;s ?branch var: 37 user: ! lit /string 1 r> tuck - dup 7 user: ! over c@ 7612 min /string rot dup 317 drop ;s ;s col: 980 0= ?branch 2drop col: 244 @ ;s ;s over 2320 ;s ;s user: @ 4169 ?branch >r >body nip 2 con: - col: var: 3 tuck col: col: var: 97 @ col: col: con: 2056 col: cell+ cell+ ;s 13 pick r@ pick r@ 853 + swap ;s (?do) 6410 ;s col: >r col: 1 var: @ = ?branch 3249 ;s (loop) unloop ;s 5102 lit col: col: dup 6 dup ?branch 2drop r> 6 ;s con: ! ;s 2 tuck allocate col: col: 4 ?branch 2drop col: lit 387 /string col: over c@ 36 over char+ col: col: 801 col: lit (?do) count 49 con: ! col: lit 27809 r> swap >r um/mod 739 ?branch col: >r dup 256 ?branch nip ;s dup 3 and swap c! ;s 230 nip nip execute does: 9853 r@ lit and ?branch 750 var: 2@ d<> ?branch 6 +! var: @ con: 13 ;s col: drop >r 4828 @ = ?branch @ 13 user: ! col: ?dup 368 ;s col: r> dup 122 r> ;s dup 0= 1 var: @ lit (?do) 1 c! 1+ col: col: 3 nip execute col: cr 14 rdrop lit branch unloop 22 drop ;s lit col: 18 branch 2dup u> 0= 88 @ >r rp@ user: 460 0<> and ?branch col: 342 ;s col: >r lit 23815 col: col: col: var: 951 dup @ dup ?branch 63 dup col: con: con: 1908 ?branch 0> ?branch col: 9853 faligned ;s r@ lit 1 ;s var: @ ?dup 79 ;s ;s branch dup 5600 con: write-file col: ?dup 1089 @ 1- dup 0= 72 >r user: @ user: 774 dup 0> 0= ?branch 2 ?branch drop con: col: 7750 con: swap ! ;s 20 over r@ u>= ?branch 4 execute cells ;s branch 6045 @ ;s ;s con: 5 c@ ;s ;s branch 92 (f83find) ;s dup 0= 13 ;s over 0= col: 750 @ 0<> and ?branch 1923 + ;s @ var: 17 defer: (type) ;s defer: 1690 ?dup ?branch var: count 6410 col: dup 0< ;s 739 ! con: swap col: 774 r> ;s (loop) unloop 27 @ col: dup con: 2184 var: @ ?branch col: 30 rdrop ;s ;s over 13 rot col: con: <> 4 var: ! defer: col: 20 dup lit >= col: 1 dup user: ! user: 1 ?branch i 1+ col: 50 1- >r r@ col: 29 nip ;s col: user: 1 con: ;s 0= ?branch 20 col: does: col: var: 84 nip execute col: ;s 4379 col: var: dup @ 1 2dup 1- + c@ 4041 con: user: @ ?dup 32 col: var: @ ?branch 6 dup lit = ?branch 2048 pick ! ! ;s 27 con: ;s ?branch 1- 119 con: + ;s ;s 152 dup i - count 750 user: @ col: lit 18159 ;s 2dup >r >r 1 col: 2swap 2dup col: 1 2* ;s ;s branch 736 @ col: var: ! 13 ! ;s rdrop ;s 1 ;s ?branch drop con: 5334 nip nip unloop ;s 2020 over min /string over 118 + ;s col: con: 71 user: +! user: @ 518 ?branch drop 2dup 2>r 880 execute col: @ (f83find) 1454 lit = ?branch toupper 18159 r> - 1+ r> 7 ;s lit col: con: 10 0< ?branch ;s ;s 1895 + dup @ 0< 37 branch ;s user: col: 1 0<> ;s 0= col: 37 /string branch ;s user: 17 drop ;s drop swap 1 col: 1- ;s ;s 16 var: @ 0< ?branch 9853 col: count lit and 22841 ;s user: @ ;s 15 col: swap >r dup 1 lit (?do) i col: 6402 ;s ! ;s ;s 119 ;s >r dup col: 1500 count con: write-file col: 4772 + ;s swap col: 52 ;s branch ;s branch 9773 c@ or swap c! 1430 @ um* d+ r> 1808 var: @ ;s var: 556 lit ! user: col: 20 var: @ dup var: 14 ;s ;s r> user: 6099 defer: col: 2dup col: 1399 lit u> ?branch dup 1 ?dup ?branch ;s >r 5 unloop ;s ;s col: 13 >r r@ pick r@ 25 lit does: swap lit 58 ;s lit user: ! 14 + swap cmove var: 650 ;s ;s col: sp@ 3 nip execute + ;s 1 0<> ;s col: 0= 1 defer: (type) ;s cr 27 branch r> user: ! 15 faligned nip ;s - 5 (?do) unloop ;s branch 6 @ con: >= ?branch 74 @ ?branch con: branch 3061 cell+ count lit and 10 ?branch ;s var: 2! 1075 @ 0= col: col: 1472 var: ! col: col: 724 ! col: user: @ 16 col: lit var: +! 1898 ;s ;s col: defer: 4 ?branch con: min >r 1998 ?branch rdrop ;s ;s 79 ;s ;s r@ rot 14 r@ + swap cmove 4 min >r var: r@ 79 cell+ ;s dup @ 21 col: col: lit user: 801 dup lit u< ?branch 13 ;s user: @ close-file 150 r@ col: dup 1+ 2 ;s lit lit col: 76 con: - unloop ;s 2769 ! ;s user: @ 1 @ = ?branch i 7545 col: dup col: col: 22 var: ! drop ;s 7 field: @ col: col: 1 @ ;s lit cells 325 ;s ;s ;s col: sp@ 1368 i c@ + swap lit 13 ;s ;s ;s r> r> 10145 @ ;s @ ;s con: 1 2! ;s branch col: sp@ 1895 r> var: @ + var: 7 r> col: 1- tuck + 760 col: var: 2@ drop user: 27809 um/mod r> swap >r um/mod 12 r> user: ! col: col: 152 - count lit and + 25 (?do) i' i - lit 1224 >r ?branch rdrop ;s cell+ 79 rot col: col: var: @ 29 dup col: con: + ;s 750 2dup d0= ?branch ;s col: 87 user: ! execute col: col: 319 over = ?branch branch drop 1 over r> tuck - dup 1 ;s create-file col: ?dup ?branch 2130 ;s con: write-file col: ?dup 6410 over + swap ;s (do) 2 ;s over lit (?do) dup 5 ?branch nip nip execute @ 1089 1- dup 0= col: col: 2 branch lit pick @ ?dup 4772 col: dup col: col: con: 1216 lit >code-address ;s col: col: 15 ! execute col: col: r> 42 cell+ ;s @ ;s ;s 119 user: ! ;s ;s dup 4 ?branch nip nip execute cells 1106 @ ?branch dup @ lit 100 ;s r@ col: dup 1+ 224 execute col: defer: noop col: 1 ;s ;s col: 2swap 2dup 760 @ 2* cells + ;s 706 @ dup ?branch drop r> 6 drop branch ;s branch col: 1 ;s @ ;s lit cells 88 >r user: @ >r rp@ 4041 lit user: +! swap user: 9853 lit and + faligned ;s 7 user: ! over c@ lit 118 con: <> col: col: r> 4 execute col: - ;s ;s 759 ;s ;s ;s ;s lit 6 ?branch nip nip execute drop 2740 ;s ! ;s ;s ;s 774 0> 0= ?branch nip ;s 342 swap ;s swap 1- (do) 2 execute col: ?dup ?branch ;s 1895 xor cells >r var: lit 1 ;s nip 0<> ;s 0= 9204 ;s defer: col: defer: col: 2 r> var: ! ;s branch 1 2drop dup >r lit col: 29 ;s nip ;s col: dup 79 rot ! col: col: col: 2169 con: - lit over +! 750 user: @ col: con: col: 4 @ and ?dup ?branch col: 67 nip execute col: var: col: 2390 ;s (loop) unloop ;s ;s 7119 swap >r ;s >r ?branch 3 ;s ;s col: con: + 1748 cell+ ;s @ execute col: 1 nip execute c! ;s branch 787 branch @ dup ?branch 2dup 15 ;s r> drop col: con: 1 tuck - lit cells / 1452 user: @ ;s user: ! 5 nip execute col: over col: 11 nip ;s col: lit cells 1 var: 2@ col: col: col: 15749 cells var: @ + @ 40 nip execute col: col: con: 20 var: ! ;s over r@ 150 >r cells sp@ cell+ dup 6099 col: 2dup col: var: @ 88 rp@ user: ! execute col: 4 ;s col: lit var: +! 102 @ ;s over - swap 14 2@ nip 1- user: ! 7648 1+ r> move c! ;s 3 var: @ tuck col: col: 2 nip execute col: lit * 119 ;s @ r> col: cell+ 9342 col: col: r> r> dup 181 +! ;s 2drop ;s ;s 6279 @ col: col: dup field: 656 d+ r> ;s (loop) count 4 @ ?branch defer: noop col: 9342 r> dup count + aligned 873 col: r> /does-handler + col: 1 ?branch 2drop dup >r lit 7 con: lshift ;s lit col: 1603 ;s ;s col: con: tuck 789 ;s ;s branch @ dup 2020 >r over - dup r> 1 @ ;s lit cells col: 40 ! ;s nip ;s col: 92 execute col: col: @ (f83find) 72 >r >r ;s user: ! 1 create-file col: ?dup ?branch ;s 1430 rot user: @ um* d+ 14 resize col: ?dup ?branch ;s 460 +! ;s 2drop lit col: 21 col: col: lit user: ! 32 @ ;s @ ;s - 150 1+ pick >r cells sp@ 103 @ @ dup con: = 15 2drop ;s ;s var: @ 10701 ;s lit col: var: +! 286 nip execute col: user: @ 746 lit (?do) unloop ;s col: 1 col: var: over 1- con: 917 col: col: var: @ 1- 1129 1+ dup con: > col: 1 ;s cr ;s ;s branch 460 ;s user: ! var: col: 5004 @ swap col: con: rshift 4 con: defer: noop ;s ;s 387 ?branch r> user: ! ;s 2 branch ;s col: dup @ 6 dup var: ! ?dup ?branch 736 var: @ col: var: ! 32 ;s @ ;s - col: 319 = ?branch branch drop ;s 739 >r dup col: cell+ ;s 12 ! ;s swap ! ;s 4 noop col: r> dup cell+ 285 rdrop ;s ;s col: lit 1 branch @ dup ?branch drop 3 ;s ;s col: con: var: 980 rdrop ;s branch user: @ 5 nip nip execute col: over 1162 count lit and ;s var: 1 fp@ user: ! col: var: 50 1- >r r@ col: dup 102 <> and col: col: r> 1 count ;s compare 0= r> 750 - dup @ tuck - 11 cells + ;s @ ;s 11 col: col: var: col: con: 616 (loop) unloop ;s ;s swap 9853 col: cell+ dup c@ >r 79 col: col: cell+ ;s dup 1898 ;s swap dup col: col: 7119 >r ;s >r ?branch rdrop 342 >r lit lit r> con: 17 ;s ;s col: con: @ 801 con: swap ! ;s over 4 ?branch con: min >r var: 1898 ;s dup faligned swap (?do) 22 var: ! drop ;s lit 1205 @ + ;s c@ ;s 768 ;s var: @ col: col: 2258 ;s ;s ;s user: @ 6 ;s drop col: r> /does-handler 965 ?branch 0> ?branch nip nip 880 col: @ (f83find) ;s ;s 1 user: ! col: var: 2@ 4041 col: ?dup ?branch ;s branch 18 ;s ?branch col: col: var: 2 execute col: var: ;s ;s 5102 col: dup count lit col: 5907 (do) 2dup i 2@ over 2 2dup col: col: r> r> 1 @ ?dup ?branch @ col: 2 lit (?do) col: dup ;s 12 ;s does-code! ;s ;s rot 6 col: 0= ?branch var: col: 25 lit min 2dup defer: (type) 873 + col: col: user: @ 1454 ?branch toupper lit - dup 9773 over c@ or swap c! 1 d>s ;s ;s ;s branch 7 r> - ?branch dup user: 322 ;s ;s var: ! col: 460 user: +! ;s 2drop col: 2 2dup * allocate col: ?dup 74 con: branch ;s lit col: 460 ;s 2drop col: defer: col: 1 ! ;s branch col: var: 2 - col: var: @ swap 855 (loop) unloop ;s col: col: 35 ?branch nip nip execute con: 17 cells + count cr col: 158 ;s ;s (loop) col: dup 768 var: @ ;s ;s var: 748 ! col: col: var: dup 20 ?branch con: - dup @ 1 ?dup ?branch ;s r> close-file 750 d0= ?branch ;s col: 2drop 3322 cell+ ;s @ col: col: 17 rdrop ;s ;s ;s ;s 5907 lit col: drop var: dup 7612 @ ;s @ ;s count 72 ! user: @ >r >r 14 @ + col: dup col: 760 2@ drop user: @ 2* 4 defer: (type) compare 0<> ?branch 20 cell+ tuck ! cell+ tuck 12947 ;s col: col: user: @ 8996 and 0= ?branch lit r@ 26071 user: @ ;s user: @ 1210 + ;s count lit and 13 lit ;s user: @ close-file 7 ?branch col: dup col: dup 7612 c! ;s con: col: col: 4043 @ ?branch col: user: @ 94 ;s col: dup @ con: 748 con: lshift ;s - col: 789 @ dup ?branch drop ! 6193 ;s ;s col: col: col: 801 (?do) count col: user: @ 117 swap ! ;s user: col: 4 col: >r ;s ;s col: 13 >r >r lit col: 1+ 1220 ;s count ;s con: col: 3 0> ?branch col: r> dup 4 compare 0<> ?branch 2drop col: 1319 ;s ! ;s col: col: 14 rdrop ;s nip ?branch var: 1 ;s ?branch col: user: @ 3 @ ?branch ;s branch ;s 853 over + swap ;s (?do) 15 pick col: lit over 0<> 2 drop con: col: col: col: 22 rdrop ;s ;s var: @ 6410 swap ;s (do) con: col: 4 ! ;s ;s r> col: 6 ;s drop branch ;s branch 5907 field: @ execute col: drop 1 var: @ = ?branch i 10005 count lit and + faligned 736 ;s @ lit <> and 460 drop ;s user: ! var: 460 @ /string con: col: dup 19863 col: col: var: @ + 29 ?dup ?branch ;s swap 2dup 109 does-code! ;s ;s ;s swap 16 +! ;s c! ;s ;s 1224 ;s cell+ tuck c@ xor 4041 ?branch ;s branch lit user: 71 user: @ = ?branch r@ 243 nip execute col: col: var: 3 ;s col: con: var: @ 26 ;s col: con: col: col: 13 r@ pick r@ pick rdrop 37 var: + @ user: ! 1 ! execute col: user: @ 387 rdrop r> ?branch r> user: 736 @ ;s var: @ col: 76 lit con: (do) dup i 1162 dup 0= lit and col: 168 con: swap ! ;s branch 3050 con: col: col: col: var: 1895 ;s r> ;s tuck cell+ 6 branch drop ;s ;s con: 4041 con: user: @ ?dup ?branch 181 ?branch 0> ?branch col: lit 1212 var: @ col: var: @ 6752 var: @ + ;s col: 29 faligned nip ;s col: user: 76 ?branch drop lit col: lit 102 col: col: col: con: @ 2397 (?do) con: col: col: col: 4 nip execute col: - ;s 1 ;s ;s var: over col: 45 ;s ;s var: col: con: 824 (f83find) ;s ;s dup ?branch 315 ;s 2drop ;s branch ;s 1606 @ ;s ;s col: con: 10082 <> ?branch col: dup field: 1 ;s +! ;s 2! ;s 1 user: @ = ?branch user: 1 swap c! 1+ col: col: 17 cell+ ! branch ;s ;s 13 ?branch ;s col: ?dup ?branch 5907 dup @ 1- cells over 40 tuck ! cell+ tuck ! 593 branch ;s branch col: sp@ 346 col: lit col: user: @ 18159 user: @ ;s 2dup >r 208 ;s dup ?branch ;s ?dup 14 swap col: cell+ cell+ ;s 17524 ;s col: col: var: @ 1068 col: con: col: col: col: 42 ;s col: cell+ cell+ ;s 1 nip nip execute col: 1- 1608 ;s ;s (loop) unloop ;s 75 ;s ;s 2drop branch ;s 1 compare 0= r> or ?branch 14 dup >r 2@ dup >r 2324 ?branch ;s ;s col: dup 980 ?branch rdrop ;s branch user: 750 @ tuck - ;s con: 14 branch unloop 0<> lit and 28954 col: col: col: user: @ 3 r@ write-file col: ?dup ?branch 62 ?branch rdrop ;s col: cell+ 750 lit user: ! ;s user: 750 user: @ min con: write-file 2617 ;s ;s dup ?branch 0> 1158 @ and ?dup ?branch 2drop 2 col: user: @ var: col: 1895 cells >r var: lit cells 119 ;s dup col: var: @ 1603 - lit and ;s lit 6 ! ?dup ?branch ;s col: 9204 user: @ > ?branch ;s 51 branch ;s ;s col: lit 1 lit ;s ?dup ?branch r> 1 nip execute col: col: 2dup 1 cells col: swap >r dup 351 ;s lit col: dup @ 119 @ r> col: cell+ cell+ 750 cells + ;s 2@ var: 468 col: col: user: @ ?branch 119 col: var: @ var: col: 1166 ?dup ;s ?branch var: @ 2 execute over ;s branch col: 15 lit pick col: lit over 1162 @ ?dup ;s ?branch dup 1 2! ;s branch dup ?branch 208 does: @ execute does: dup 342 (do) con: * swap con: 45 ;s var: ! ;s col: 460 user: ! var: col: con: 1 nip nip execute move ;s 14640 @ (hashfind) ;s ;s dup 2 dup @ ?branch dup defer: 5907 + (do) 2dup i 2@ 58 >r ;s user: ! user: 85 ;s r> user: ! rdrop 20 ;s over r@ u>= ?branch 14 nip ?branch var: 2@ lit 17 (+loop) unloop drop ;s drop 79 2drop ;s ;s branch dup 3393 ?branch col: col: cell+ ;s 131 ?branch ;s col: var: @ 88 fp@ >r col: laddr# ;s 309 ;s over col: over col: 736 ;s var: @ ?branch col: 4 min >r var: r@ cmove 1455 ;s ;s col: col: user: 764 u< ?branch drop ;s user: 20 + ;s ;s col: col: 6 var: +! var: @ con: 1603 ;s col: con: tuck 1- 99 nip nip execute col: var: 6313 unloop 2drop ;s ;s ;s 745 ?branch var: col: con: swap 20 ;s ;s dup 0= col: 2 ?dup 0= ?branch 2dup * 15 dup ?branch drop r> col: 33 branch dup ?branch drop r> 24 ;s ;s con: - col: 1 drop ;s ;s ;s ;s 750 ;s ;s user: ! col: 17 ;s drop swap cell+ ! 12 ! ;s nip ;s swap 3 unloop 2drop ;s ;s col: 27 1- i' i - unloop 852 + swap ;s (?do) i 2 nip execute col: lit user: 1 nip execute col: * ;s 16 ;s dup 0= ?branch ;s 331 con: swap ! ;s var: 491 nip nip execute col: defer: 4 nip execute col: dup ;s 7 over c@ lit = ?branch 13 ;s col: drop >r drop 120 @ ?branch dup col: lit 1 <> ?branch col: col: 2dup 801 ! ;s over c@ lit 6098 ;s branch col: sp@ user: 342 1- (do) con: * swap 724 ! col: user: @ col: 2 ;s ;s ;s col: r> 55 u> ?branch lit - dup 593 ;s dup ?branch drop 2dup 79 con: ;s ?branch ;s ;s 6752 r> con: col: over + 6 >r var: col: con: swap 6 drop ;s ;s con: ! 79 unloop d>s ;s ;s r@ 882 dup col: col: col: var: 2048 pick col: dup @ lit 518 ?branch nip ;s ?branch 2rdrop 1 ?dup ?branch ;s >r var: 460 @ ;s user: @ /string 10 cells + ;s 2@ 2dup 5004 /mod rot + swap col: 12 user: ! >r >r col: 92 (f83find) ;s dup 0= ?branch 13 col: >r >r lit col: 1 lit <> ?branch i 1+ 1 count ;s compare 0= >r 1 (?do) i col: cells var: 1224 lit col: user: @ dup 12 col: ;s branch ;s user: 6 ?branch ;s col: col: var: 29 var: @ dup col: con: 16 lit var: +! col: var: 1895 drop r@ @ rot ! 6 does-code! ;s ;s ;s branch 1162 ;s ;s lit col: user: 1162 >r 2dup 2dup r> col: 2020 r> col: >r dup ?branch 10 con: = ?branch col: dup 3 execute col: dup col: col: 15 unloop d>s ;s ;s var: 724 ?branch drop user: ! col: 179 ;s col: col: col: r> 1 execute col: 0= ?branch var: 2048 ! ! ;s lit pick 6 - var: over cell+ ! 4 and ;s 2dup defer: (type) 2 /string ;s ;s over c@ 14 nip 1- user: ! lit 319 col: dup negate user: +! 5 char+ c@ ;s ;s branch 22 - col: col: user: @ 1895 lit and col: con: (hashkey1) 14 ;s user: ! lit user: 76 con: (+loop) dup i - 58 ! >r ;s col: ?dup 14 2dup lit col: >r dup 1162 col: >r 2dup 2dup r> 4682 ;s user: @ ;s user: 724 ;s ?branch drop user: ! 1 close-file col: ?dup ?branch ;s 736 lit <> and ;s ?branch 80 (?do) unloop ;s ;s user: 88 >r fp@ >r col: laddr# 6951 c@ col: col: col: var: 14 2* cells resize col: ?dup 1204 ;s @ ;s dup aligned 9204 > ?branch fp@ user: @ 319 negate user: +! lit over 42 ;s ;s ;s swap ! 2 nip nip execute lshift ;s 181 ?branch rdrop branch ;s dup 6013 var: @ ;s ;s con: 13 ;s drop col: ?dup ?branch 18 branch 2dup u> 0= ?branch 801 swap ! ;s lit lit 4041 +! swap user: ! lit 20440 /string branch dup ?branch over 1 nip var: 2! ;s defer: 1 @ = ?branch i 1+ 28 con: ;s lit col: col: 1106 pick ! ! branch var: 2 >body user: @ ?branch col: 1 ;s branch dup ?branch 2drop 1 ?branch ;s ?branch drop con: 2 @ dup 0> ?branch col: 756 col: over col: ;s @ 25 swap lit max lit (?do) 2889 ;s ;s dup ?branch lit 7 nip execute col: + ;s 6011 @ ;s ;s con: col: 997 ;s col: col: var: dup 20 rdrop ;s tuck ! cell+ 2 col: does: @ execute does: 322 ! col: var: @ ;s 750 ?branch ;s col: 2drop col: 8406 ! ;s col: col: user: 14 1- tuck + swap invert 74 ;s con: = ?branch col: 4828 ?branch @ dup ?branch 2dup 57 ;s col: col: r> user: 60 nip execute col: col: lit 2984 and ?branch negate ;s ;s 1162 0< ?branch var: @ @ 1 nip nip execute col: drop 521 dup r> ?branch user: +! 76 i - con: - unloop 360 >r user: @ >r user: 7612 drop (parse-white) branch 2dup + 1 col: col: 0= ?branch ;s 460 ! drop ;s user: ! 2169 um/mod r> ;s rot lit 4772 c! ;s ;s ! ;s 7119 >r swap >r ;s >r 13 ! ;s ;s drop con: 88 laddr# ;s >r user: @ 57 ;s over col: col: var: 97 user: @ ?branch cell+ @ 27 con: ;s dup ?branch r> 750 unloop ;s ;s user: ! 13 or col: dup ?branch r> 7612 move c! ;s con: col: 119 cells + ;s @ col: 12 >r col: user: @ col: 1 1- + c@ lit <> 6 ?branch var: @ ?branch over 2889 dup ?branch lit and ?branch 852 swap ;s (?do) i c@ 130 ;s col: lit cells + 573 (+loop) unloop 2drop con: ;s 3105 ;s dup ?branch 2drop ;s 1210 ;s user: @ lit col: 10 2! col: col: r> r> 1895 @ over cell+ count lit 28 ?branch con: ;s lit col: 630 var: ! lit col: var: 86 ?branch ;s ;s ;s ;s 15746 ;s r> xor cells var: 4 ;s ;s col: lit does: 25 min 2dup defer: (type) (+loop) 71 dup ?branch r> r> user: 3 swap 1+ /string ;s ;s 212 ;s code-address! ;s con: col: 9370 lit and ?branch r> lit 309 ! ;s ;s over col: 739 cell+ ;s @ dup ?branch 42 ;s ;s col: cell+ cell+ 789 @ ?branch col: dup @ 17 ! ;s ;s col: con: 1 ?branch con: lit ! lit 7 ;s ;s + swap r> 1 var: @ ?dup ?branch @ 8 + ;s ;s branch col: 22 var: @ 2dup u> 0= 342 over + swap ;s swap 748 col: con: lshift ;s - 10870 @ ;s ;s lit col: 2 1- ;s branch col: sp@ 2 ! defer: drop ;s drop 14 lit user: ! user: col: 27 swap ! ;s branch r> 460 user: +! ;s 2drop lit 6410 (do) con: col: >r lit 1895 col: con: (hashkey1) ;s xor 13 rot col: con: <> col: 4 lit lit col: >r dup 114 ;s ;s swap col: col: 15 d>s ;s ;s var: @ 630 ! var: @ ?branch lit 1 ?branch nip nip execute move 13 var: ! ;s rdrop ;s 9342 aligned >r swap >r ;s 181 ;s ;s drop branch ;s 3403 @ con: = ?branch col: 858 col: cell+ ;s @ dup 79 unloop 2drop ;s ;s branch 1 var: @ 0= ?branch con: 4 drop ;s ;s ;s var: 7612 min /string rot dup con: 1 >r lit col: >r dup 736 col: dup col: ;s @ 2 ;s (loop) unloop drop ;s 122 nip r> ;s dup 0= 7 ! ;s ;s var: field: 13 ;s ;s col: drop >r 36 over char+ col: col: user: 103 @ dup con: = ?branch 4033 col: col: dup count lit 1966 ;s ;s (loop) con: col: 15746 con: (hashkey1) ;s r> xor 2556 ;s ;s ;s branch col: 1 ;s defer: noop var: @ 1419 d0= ?branch col: user: @ 1 ?branch nip nip execute c! 875 col: ;s @ con: <> 1 ! defer: drop ;s ;s 774 dup ?branch 2drop rdrop r> 7 ;s + swap r> col: 750 ?dup ?branch ;s user: ! 750 - dup ! ;s col: 630 @ ?branch lit var: ! 15 drop r> col: col: col: 1 lit + dup user: ! 8 nip execute does: dup var: 352 c! ;s ;s ;s ;s 750 ;s 2@ var: 2@ d<> 739 <> ?branch col: >r dup 3 col: cells var: @ + 7 = ?branch 2drop rdrop user: 102 con: <> and col: col: 33 ;s @ ;s ;s char+ 15746 @ >r 2dup col: con: 1491 +! ;s ! ;s lit 32 2dup u< ?branch = ;s 103 var: @ @ dup con: 650 ;s ;s col: sp@ user: 131 ;s var: ! ;s swap 6 ?branch ;s lit cells - 58 execute col: col: sp@ user: 22841 @ ;s user: @ ;s 95 ;s col: col: col: con: 319 user: @ swap - col: 342 (+loop) unloop d>s ;s ;s 187 - swap col: col: var: 10 ?dup ?branch ;s ;s defer: 13 r> r> rot col: con: 1761 ;s col: ?dup ?branch ;s 58 lit ;s col: dup ?branch 14 var: swap cmove 2dup var: 14 >r ;s user: ! lit 1 0= ?branch col: user: @ 13 ;s ;s over 0= col: 57 ;s ;s lit col: >r 1690 ?dup ?branch var: count r> 56 (f83find) ;s ;s var: @ 1 ?branch 2drop col: col: user: 39 ;s swap col: col: user: 181 0> ?branch col: lit col: 1106 ;s ?branch var: @ col: 5 @ ;s branch col: sp@ 3061 lit user: ! ;s ?branch 1 var: lit r@ write-file col: 2293 nip col: dup @ con: 1606 dup faligned swap (?do) con: 14 col: user: @ >r col: 14 tuck 1+ 2* cells resize 79 ;s ;s r@ rot col: 169 rdrop ;s ;s ;s dup 6 @ lit ! var: var: 13 >r ;s drop col: ?dup 1216 ;s ! ;s ;s lit 3 over c@ and swap c! 1368 swap i c@ + swap 5603 write-file col: ?dup ?branch ;s 119 user: ! swap col: col: 1129 var: ! col: var: dup 80 nip nip execute col: con: 760 var: 2@ drop user: @ 2 lshift ;s branch col: sp@ 1200 con: swap ! ;s lit 1205 dup >r col: col: var: 17 ;s 0> ?branch col: col: 57 count ;s col: col: r> 3 ;s 0> ?branch col: r> 1895 var: lit cells lit col: 55 ?branch lit - dup lit 102 swap con: <> and col: 6 var: ! ?dup ?branch ;s 4 count lit and ;s 2dup 6099 defer: col: 2dup col: var: 4834 ;s user: @ 0= ?branch 1 +! lit ;s (+loop) i 14 nip r> rdrop lit branch 5 ;s >body user: @ ?branch 1368 + swap i c@ + 10 count con: col: dup >r 63 con: 1+ within 0= col: 1162 var: @ col: >r 2dup 4772 swap col: con: - ;s 4772 does: + c@ ;s ;s 14640 (hashfind) ;s ;s dup ?branch 22 ! ;s col: dup con: 1 col: lit or ;s create-file 2048 ;s lit pick + (loop) 265 rdrop ;s ;s lit col: 21 swap c! ;s ;s ;s 20 cell+ tuck ! cell+ var: 1 (?do) unloop ;s ;s col: 15746 execute col: lit + @ 25 lit does: swap lit max 4 @ ;s @ ;s /does-handler 460 and ?branch col: col: r> 1 var: @ lit > ?branch 1898 @ ;s +! ;s move 1 /string ;s ;s col: 2swap 496 user: +! ;s 2drop ;s 1071 ;s @ ;s ;s col: 84 col: ;s ;s branch col: 7 con: ;s ;s ;s branch 9853 ;s ;s dup ?branch col: 61 ?branch ;s col: user: @ 14 cells resize col: ?dup ?branch 4 col: dup ;s ;s branch 6 lit @ var: ! ;s 16 col: lit var: +! col: 7 drop con: ;s ;s ;s 4041 ?dup ?branch read-line col: ?dup 1 code-address! ;s lit col: col: 181 branch ;s dup ?branch 0> 27 @ 0= ?branch 2drop con: 920 ;s count ;s con: write-file 51 var: ! ;s col: col: 2 ?dup ?branch ;s ;s branch 9342 col: r> r> dup count 1486 count col: dup col: col: 76 (do) dup i - count 6 ?branch var: @ >r var: 27 @ ?branch var: @ col: 1 execute col: user: @ >r 6410 rot i c! (loop) unloop 4 nip execute col: = ;s 6 var: var: ! ;s ;s 4041 branch lit user: +! swap 980 0= ?branch 2drop col: user: 5907 over + (do) 2dup i 13 u>= ?branch col: var: @ 319 col: user: @ swap - 18619 col: defer: col: col: user: 25 @ u>= ?branch drop con: 523 does-code! ;s ;s ;s dup 736 +! ;s ! ;s var: 15746 var: @ + @ (hashfind) 1 ! var: @ con: cells 24 swap >r ;s count defer: 1 lit > ?branch con: lit 1 > ?branch con: lit ! 1 2@ nip var: 2! ;s 1210 ?dup ?branch ;s user: @ 6 cell+ dup @ 0< ?branch 14 2dup var: r@ + swap 777 ! ;s ;s col: var: 1 over >r lit col: >r 11906 var: @ + ;s c! 2 nip execute col: ?dup ?branch 6 var: @ lit ! var: 5907 @ 1- cells over + 6854 +! ;s c! ;s (loop) 37 /string branch ;s user: col: 4772 + swap does: + c@ 57 nip execute col: con: col: 2 rdrop ;s dup rot ! 8 cell+ cell+ ;s @ col: 60 lit user: ! col: col: 1895 col: lit fill ;s r> 13 var: swap ;s col: user: 34 col: col: lit col: >r 13 ! ;s rdrop ;s col: 13 r@ pick rdrop dup col: 2 negate ;s ;s ;s 0= 4 nip execute cells ;s branch 72 user: ! user: @ >r 290 and ?branch var: col: con: 172 ;s col: var: @ 1- 5 var: @ 0= ?branch var: 1895 ;s xor cells >r var: 4845 2dup cell+ @ = ?branch 21073 col: var: @ + ;s 60 @ ;s col: lit >code-address 1106 branch ;s col: user: @ 156 dup @ dup ?branch nip 15 ?branch drop r> col: col: 1 nip nip execute col: * 7 cell+ ;s ! ;s >r 7 ;s ;s dup field: dup 7 nip nip execute col: + 2 ;s ;s lit lit col: 20 ;s ;s ;s dup 0= 1690 ?branch var: count r> write-file 750 @ col: con: col: col: 13 close-file swap 2dup or col: 789 2dup swap col: lit + 5907 execute col: drop con: ?branch 1 user: ! fp@ user: ! 556 lit ! user: col: con: 4 nip nip execute col: - 2 execute create-file ;s branch col: 1 ;s con: ! ;s branch 764 dup lit u< ?branch drop 954 lit col: dup @ con: 120 + ;s var: ! branch 853 unloop ;s col: col: col: 14 cmove var: over r> + 9853 dup c@ >r col: count 1 ;s 2dup col: var: 2@ 18 swap col: col: col: var: 2 var: ;s ;s branch col: 2 user: ! col: defer: col: 518 ?branch 2rdrop branch ;s branch 2378 ! lit col: col: col: 272 ;s ;s col: lit lit 7073 ;s col: col: col: var: 93 lit over 0<> ?branch faligned 75 2drop branch ;s branch col: 1162 @ @ over ! var: 11 + ;s @ ;s ;s 4175 branch lit (+loop) 2dup i 1129 con: > col: col: r> 117 ! ;s user: col: con: 8955 min user: ! ;s col: 1089 rdrop ;s var: ! ;s 750 var: @ dup 0> ?branch 35 execute con: ;s branch col: 71 r> user: ! >r ;s 1 ?branch 2dup 1- + c@ 789 swap col: lit + dup 789 dup ?branch 2dup swap col: 20 >r ?branch rdrop ;s tuck 37 @ user: ! lit /string 85 rdrop rdrop rdrop lit ;s 27809 >r lit r@ um/mod r> 5102 lit col: col: dup field: 28 ;s char+ c@ ;s col: 20 >= col: col: r> r> 1 col: var: 2@ 2* cells 93 col: lit over 0<> ?branch 1 lit r@ write-file col: ?dup 5004 col: var: @ swap col: 2455 dup 0= col: col: r> 22 user: ! ;s var: col: 3 @ tuck col: col: var: 119 @ col: cell+ cell+ ;s 1898 @ ;s dup faligned swap 41 ;s ;s - col: col: 2169 ;s ;s 2dup d0= ?branch 1399 u> ?branch dup user: @ 13 ;s col: var: @ ?branch 2169 over +! @ c! ;s 119 var: @ ?branch user: @ 1 0<> ;s 0= col: 0= 158 ;s ;s 0= ?branch ;s 7612 @ over min /string rot 369 col: lit cells + ;s 1 cells col: lit fill ;s 342 + ;s col: >r lit 131 user: @ col: col: defer: 4 execute col: col: lit var: 6 lit var: +! var: @ 2 >r ;s count ;s compare 22 @ 2dup u> 0= ?branch 1 lit cells / ;s var: 4 - ;s ;s branch col: 4 nip nip execute col: = 736 tuck swap ! col: con: 1895 ?dup 0= ?branch >r drop 20 <= ?branch con: - dup 9853 ?branch col: cell+ dup c@ 72 r> user: @ >r user: 460 col: ?dup ?branch ;s lit 60 ?branch var: @ field: @ 55 dup lit u> ?branch lit 1 col: var: @ ;s r@ 62 con: = col: col: r> 46 drop branch ;s ;s branch 18159 2dup >r >r user: @ 1162 var: @ ! branch ;s 58 lit user: ! lit col: 36 r> move c! ;s col: 1 ;s var: @ dup ?branch 750 ;s col: var: @ var: 2048 dup lit pick col: dup 7 swap invert and ;s ;s 27 2drop rdrop user: col: con: 309 execute col: dup 0< ?branch 1895 @ rot ! r@ swap 15 lit lit col: >r >r 801 r> user: ! ;s user: 7 c@ lit = ?branch 2drop 119 ;s ;s dup col: var: 142 ;s dup 0= col: col: 10145 @ ;s con: col: col: 4772 dup @ + ;s swap 774 unloop lit branch ;s dup 3332 @ col: col: col: var: 750 - ;s con: write-file col: 1205 var: @ + ;s c@ 1 ?branch nip nip execute field: 1689 ?branch col: col: col: col: 1169 aligned swap (?do) unloop ;s 1898 ;s move ;s col: col: 656 r> ;s (loop) count col: 1 ;s compare 0= >r 2dup 52 ;s ;s branch ;s branch 119 ! ;s swap ! var: 92 @ (f83find) ;s dup 0= 1895 tuck cell+ ! r> var: 74 @ ?branch con: branch ;s 857 @ lit r@ lit and 320 1+ user: +! ;s con: 1218 ;s user: @ con: col: 1895 and col: con: (hashkey1) ;s 14 1- user: ! lit col: 1 execute col: drop ;s ;s 853 ;s col: over + swap 1897 swap col: lit fill ;s 35 nip execute con: ;s branch 9853 faligned ;s r@ lit and 1 con: ;s ?branch col: user: 119 cell+ cell+ ;s @ r> 119 + ;s @ col: cell+ 10 2@ d<> ?branch var: count 859 ;s (loop) unloop ;s col: 100 drop r> ;s r@ col: 2 ;s +! ;s ;s branch 14 lit branch unloop 0<> lit 322 @ col: over col: ;s 10 +! ;s ;s branch col: 2 drop ;s drop col: r> 75 ;s ! ;s ;s 2drop 9204 ?branch fp@ user: @ > 750 0<> ?branch col: col: var: 1895 var: @ + var: @ 14 2@ dup >r var: swap 1158 and ?dup ?branch 2drop 2drop 579 ! var: col: con: swap 4 >r ;s ;s col: lit 15746 @ execute col: lit + 2 0= ?branch 2dup * allocate 783 col: col: col: r> r> 1 ;s var: @ ?dup ?branch 131 ! ;s col: defer: col: 20854 col: user: @ ;s +! 17 count cr col: col: r> 1895 cells lit col: lit pick 1895 lit + dup @ 0< 102 col: dup con: <> swap 1 ;s @ ;s >r over 120 lit cells + ;s var: 630 ! lit col: var: @ 5334 nip nip unloop ;s ;s 712 user: ! drop ;s ;s 7 ;s lit col: con: lshift 100 move drop r> ;s r@ 172 (?do) unloop ;s ;s lit 28 @ ?branch con: ;s lit 1 con: col: >r defer: col: 11 (loop) unloop ;s ;s branch 5 ?branch col: con: @ col: 13 ;s var: swap ;s col: 631 ?branch col: var: col: con: 760 2* cells + ;s 2@ 639 >r @ col: col: col: 9853 ;s r@ lit and 0= 1670 ?branch ;s col: col: r> 1075 col: user: @ 0= col: 9 c@ ;s col: user: @ 17 swap cell+ ! branch ;s 187 @ ;s ;s over - 76 lit + = ?branch i 152 lit and + faligned over 1551 ;s ! ;s lit col: 6 drop ;s dup col: lit 6 drop ;s ;s col: col: 17 col: lit lit col: >r 4772 - ;s con: / col: 2223 >r swap >r ;s count 4748 dup ?branch drop branch lit 1 @ lit > ?branch con: 1419 2dup d0= ?branch col: user: 9 branch ;s ;s col: col: 1 = ?branch user: @ user: 4772 swap does: + c@ ;s 18 ;s branch 2dup u> 0= 1 dup ?branch drop var: @ 8 ;s 0> ?branch col: cell+ 736 @ col: var: ! ;s 14 open-file 0= ?branch nip nip 3610 col: user: @ ?dup ;s 22 ;s col: dup con: ! 3048 ;s ?branch col: col: sp@ 1 + dup user: ! user: 327 swap ! ;s lit var: 16 ! ;s lit col: dup 631 @ ?branch col: var: col: 120 (?do) unloop ;s ;s swap 4 dup @ dup ?branch 2drop 1224 col: user: @ dup 0= 187 ;s over - swap col: 3669 ;s @ ;s lit + 5 con: ! ;s ;s branch 14 var: 2@ lit (?do) dup 1 0= >r 2dup col: col: 13 rdrop ;s ;s col: >r 1450 execute col: col: user: @ 1172 ;s ;s ;s col: lit 801 col: over c@ lit - 86 ?branch con: <> col: col: 76 - con: - unloop ;s 6 >= ?branch ;s lit cells 32 col: con: @ col: 2dup 518 nip ;s ?branch 2rdrop branch 10547 >r user: @ /string (parse-white) 49 ?branch faligned nip ;s user: 1 (?do) unloop 2drop drop con: 27 - unloop ;s dup ?branch 127 cell+ cell+ ;s ! ;s 13 drop col: ?dup ?branch ;s 873 user: @ ;s does-code! ;s 32 ?branch = ;s 0= ?branch 4041 ;s con: user: @ ?dup 1898 move ;s col: col: col: 2 ;s count ;s compare 0= 4 @ ?branch con: min >r 3 @ lit = ?branch con: 12 execute col: ;s branch ;s 18 ;s swap col: col: col: 4 = ;s ;s branch col: 4748 ?branch drop branch lit (+loop) 801 lit (?do) count col: user: 1430 ?branch col: swap >r swap 518 0= ?branch nip ;s ?branch 90 branch ;s ;s branch col: 769 @ dup ?branch dup col: 12 r> r> user: ! col: 2 nip nip execute col: ?dup 1 ;s col: 0= ?branch var: 118 + ;s col: con: + 736 +! ;s ! ;s con: 1 ! ;s cr col: col: 13 ;s r> user: ! col: 20 col: var: @ dup lit 1 >r 2dup col: col: r> 980 dup c@ 0= ?branch 2drop 6048 2drop ;s ;s ;s ;s 319 user: +! lit over = 5 nip execute col: con: swap 980 ?branch 2drop col: user: @ 4 drop ;s ;s col: lit 2 col: lit * ;s ;s 15746 field: @ execute col: lit 455 ! drop ;s ;s ;s 4 lit and ;s 2dup defer: 753 @ var: ! ;s ;s 13 * 1- >r r@ pick 22 0= ?branch var: ! drop 15 ?branch ;s swap 2dup r> 1500 ?branch ;s var: count con: 92 col: col: @ (f83find) ;s 18159 @ ;s 2dup >r >r 187 ;s ;s over - swap 6 var: @ 0< ?branch lit 4 r@ cmove var: r> ;s 158 ;s ;s ;s 0= ?branch 119 ! swap col: col: var: 736 code-address! ;s ;s var: @ 1 r> close-file col: ?dup ?branch 117 @ dup 0< ?branch col: 1454 lit = ?branch toupper lit 20 ;s @ ;s col: col: 22 ;s ;s ;s ;s con: 181 ;s ;s ;s drop branch 1603 lit and ;s lit (?do) 54 ;s swap ! ;s ;s 8 (+loop) unloop drop ;s ;s 14 ?branch rdrop ;s nip ?branch 331 nip execute col: lit col: 764 ?branch drop ;s user: col: 17 defer: (type) lit does: swap 1 0= ?branch ;s col: user: 789 col: dup @ dup ?branch 1 con: cells allocate col: ?dup 1633 >r dup ?branch over c@ 460 user: ! drop ;s user: 29 + ;s var: ! ;s 630 var: @ ?branch lit var: 1 0= r> or ?branch 2drop 1 1+ /string ;s ;s col: 244 swap col: col: var: @ 27 ;s branch r> user: ! 208 dup >r count col: col: 44 ?branch col: lit col: user: 22 ;s user: ! ;s var: 446 ;s lit var: ! ;s 801 col: lit (?do) count col: 460 ?dup ?branch ;s lit col: 5 col: col: col: lit col: 3825 ;s ?dup ?branch 0> ?branch 20 col: does: col: var: dup 738 ;s swap user: ! col: 4334 ;s lit col: col: col: 62 @ con: = col: col: 119 ?branch dup col: cell+ ;s 2 ;s branch @ dup @ 150 dup cell+ rot move drop 1162 ?dup ;s ?branch col: cell+ 1 var: 2! col: var: 2@ 334 ;s ;s user: col: con: 2169 ;s rot lit over < 801 col: col: user: @ >r 1 execute col: 2* ;s ;s 6 col: dup lit = ?branch 3 nip execute + ;s branch 761 col: lit user: ! ;s 789 ! ;s ;s branch @ 58 ;s col: dup ?branch r> 1 + ;s ;s ;s branch 325 ;s branch lit col: dup 15 ;s ;s r> drop col: 2062 ! ;s ;s ;s ;s 18159 r> - 1+ r> min 103 ;s c! ;s ;s var: 14 ?branch ;s var: swap ;s 1427 @ u>= ?branch con: ;s 10 = ?branch col: dup @ 325 rdrop ;s branch lit col: 15 var: @ + ;s ;s 1690 count r> write-file ;s col: 2 ! swap col: lit fill 63 within 0= col: col: r> 292 dup faligned swap (?do) unloop 847 and ;s lit (?do) unloop 1895 r@ swap col: lit fill 2 col: ?dup ?branch ;s over 6 col: var: @ 0= ?branch 1211 execute col: col: col: user: 5376 @ ;s +! ;s ! 86 >r ?branch rdrop ;s con: 847 ;s lit (?do) unloop ;s 1 nip nip execute 2! ;s 3 execute >body ;s branch col: 72 user: @ user: @ = 22 - swap ! ;s col: 150 dup 1+ pick >r cells 755 lit col: con: lshift ;s 6099 c! ;s ;s (loop) i 216 does: dup var: ! col: 331 ?branch rdrop ;s ;s ;s 33 ;s ;s char+ c@ ;s 4 count defer: (type) ;s col: 1129 ;s @ var: @ 1+ 1 var: 2@ lit (?do) unloop 146 execute col: lit col: var: 1895 con: (hashkey1) ;s xor cells 2320 ;s ;s user: @ 0= 460 ;s 2drop lit col: >r 1205 c@ ;s xor r> col: 16 col: var: @ 0< ?branch 1162 col: dup lit u> lit 1216 @ ;s dup user: ! 29 ;s ;s var: @ dup 387 ?branch lit /string col: over 73 ! lit col: >r sp@ 1 <> ?branch i 1+ var: 11489 ;s ;s ;s dup ?branch 27 ?branch drop con: ;s ?branch 119 cell+ ;s @ dup 0< 736 ;s @ ;s tuck swap 37 + @ user: ! lit 130 branch dup ?branch rdrop ;s 27 ?branch var: @ col: dup 4702 var: col: con: swap ! 37 lit u< ?branch cells var: 23847 @ field: @ execute col: 169 ;s dup col: col: var: 119 ?branch user: @ col: col: 650 col: sp@ user: @ swap 750 var: @ 0<> and ?branch 19 col: col: con: <> col: 25 defer: (type) (+loop) unloop drop 880 execute col: @ (f83find) ;s 1419 ?branch col: user: @ lit 739 over col: cell+ ;s ! 60 ;s ?branch ;s ;s col: 5334 ;s ;s dup ?branch nip 35 aligned swap (?do) con: col: 7 ! ;s >r rot r@ 29 @ dup col: con: + 3047 branch col: user: @ ?branch 629 ! user: col: con: swap 208 ?branch col: dup >r count 1220 count ;s con: col: dup 106 ?branch col: user: @ ?branch 17 ;s ;s over col: lit 639 cell+ >r @ col: col: 216 defer: noop ;s ;s branch 2 nip execute lshift ;s branch 75 nip ;s dup ?branch 0> 147 ;s 2drop ;s ;s branch 368 ;s col: r> dup cell+ 119 swap ! var: col: con: 6410 ;s r> con: col: over 7 execute 2drop ;s branch col: 750 dup ! ;s col: col: 3 execute + ;s branch col: 98 rdrop ;s 0> ?branch col: 518 dup ?branch drop 2dup 2>r 8 execute col: lit var: +! 32 ;s ;s var: @ col: 13 r@ pick r@ pick r@ 1 ! col: var: 2@ col: 1652 ;s ;s 2drop ;s branch 63 con: * 1- >r r@ 10082 over <> ?branch col: dup 16 execute does: col: var: dup 95 execute col: col: col: r> 1 or ?branch 2drop dup >r 102 ;s over - swap ! 650 sp@ user: @ swap - 131 ;s ! ;s col: defer: 181 var: ! ;s does: col: 1895 ;s tuck cell+ ! r> 9204 user: ! ;s dup ?branch 1 ;s var: 2! col: var: 1 >r over >r lit col: 28 ! ;s lit col: var: 4772 col: col: con: dup @ 1 ;s ;s ;s ;s var: 2 branch ;s ;s branch ;s 1106 @ (hashfind) ;s ;s var: 309 nip execute col: dup 0< 4169 dup ?branch >r >body nip 2 nip nip execute create-file ;s 24 >r ;s count defer: (type) 18 execute col: col: var: dup 15 drop col: con: @ col: 1966 c! ;s ;s (loop) con: 27809 col: >r lit r@ um/mod 6 dup col: lit over 0<> 1 lit cells col: col: user: 20 @ ;s col: col: con: 119 @ ;s col: over col: 1205 col: var: @ dup >r 3 nip execute col: col: ;s 267 ?branch rdrop ;s ;s lit 1 fill ;s var: @ over 102 ;s ;s con: = ?branch 789 ?branch col: dup @ dup 4055 user: ! lit user: ! 15 execute col: col: r> user: 1 ;s ;s ;s col: con: 750 lit col: col: col: col: 6 ;s ;s ;s over col: 34 @ con: = ?branch lit 1 fill ;s ;s var: col: 24 ! ;s ;s ;s col: 6163 swap c! ;s ;s col: 750 2drop col: col: col: user: 1 >r var: lit r@ write-file 96 ;s ;s ;s swap col: 6 execute drop ;s branch col: 1162 ;s user: ! lit col: 75 ! ;s ;s 2drop branch 27 user: ! ;s col: con: 27 dup ?branch r> swap ;s 1210 lit and con: write-file col: 6 @ con: >= ?branch ;s 1499 ?branch 1+ user: +! ;s 773 ! ;s col: col: col: 8 0> ?branch col: cell+ cell+ 736 ;s ;s col: defer: defer: 6 var: @ con: >= ?branch 1 dup user: ! user: ! 119 ;s @ dup col: ;s 88 col: laddr# ;s >r user: 4 execute col: dup ;s ;s 181 ?branch col: lit col: dup 857 lit and 0= ?branch @ 2169 +! @ c! ;s ;s 15746 lit + @ >r 2dup 27 ?branch 2drop con: ;s dup 97 + ;s ;s con: ;s 1220 ;s con: col: dup >r 16 nip nip execute does: col: 2218 >r ?branch rdrop ;s var: 139 col: col: r> dup cell+ 774 ?branch 2drop rdrop r> ?branch 4828 @ = ?branch @ dup 27 ;s dup ?branch r> swap 739 col: >r dup col: cell+ 60 ?dup ;s ?branch ;s ;s 9773 or swap c! ;s ;s 2 pick + (loop) unloop drop 1216 >code-address ;s col: col: col: 965 dup ?branch 0> ?branch nip 3 col: cr ;s ;s branch 208 ;s ?dup ?branch col: dup 5004 rshift ;s col: col: lit 21 does-code! ;s ;s ;s ;s 736 ! ;s var: ! col: 63 dup col: con: con: 1+ 3393 dup @ con: = ?branch 102 dup con: <> swap con: 1227 ;s ;s col: dup col: 2 0< ?branch drop con: col: 19 ;s ;s swap ;s branch 5907 drop var: dup @ 1- 2338 and col: ?dup ?branch ;s 774 dup 0> 0= ?branch nip 75 drop 2dup col: col: user: 2 @ ;s ;s con: - 27 unloop ;s dup ?branch dup 1 2drop col: col: user: @ 160 con: swap ! ;s nip 7 nip nip execute 2drop ;s 20 @ swap var: ! ;s 15 >r user: @ lit pick 372 nip nip execute col: lit 19 nip execute var: ;s branch 1 nip nip execute col: 2* 4 col: col: 0= ?branch var: 5334 ;s dup ?branch nip nip 17757 ;s con: col: col: user: 130 /string branch dup ?branch rdrop 1162 ;s @ ;s user: ! 14 tuck + swap invert and 29 nip ;s col: dup @ 57 ?branch ;s ;s col: col: 32 2drop ;s ;s ;s var: 821 ;s - col: col: col: 71 +! user: @ user: ! 325 ?dup ?branch 1- <> col: 5 @ 0= ?branch var: @ 2 @ dup @ ?branch dup 10 var: @ 0< ?branch ;s 1 ?branch ;s >body @ col: 2737 col: ?dup ?branch ;s var: 14 dup ?branch rdrop ;s nip 1 @ dup ?branch drop var: 12 ;s ;s rot swap col: 1895 col: lit + dup @ 319 ?branch branch drop ;s ;s 42 defer: noop ;s ;s ;s 1 ! lit + dup user: 119 ;s swap user: ! swap 160 r> ;s ?branch var: col: 1166 @ execute col: col: col: 72 user: @ >r >r ;s 1224 cell+ tuck c@ xor swap 1 defer: (type) ;s cr ;s 76 + = ?branch i - 150 pick >r cells sp@ cell+ 35 col: col: con: col: col: 1 i 1+ var: @ = 181 ;s ;s ;s ;s drop 101 lit (?do) unloop ;s ;s 750 col: ;s var: ! var: 224 nip execute col: defer: noop 5 c@ ;s ;s branch col: 851 ;s ;s branch ;s user: 2169 + col: col: col: col: 736 ;s code-address! ;s ;s var: 1495 @ ;s ;s count col: 125 user: @ ?branch col: r> 1 2! var: up! sp@ dup 1 ?branch @ col: col: var: 1 2* ;s ;s branch col: 18 ;s ;s ;s var: ! 14 + col: dup col: var: 867 ;s col: r> /does-handler + 13 ?branch ;s r> user: ! 1454 toupper lit - dup lit 1 cells / ;s var: 2! 350 ;s ;s col: lit col: 3 @ col: lit lit col: 650 ;s col: sp@ user: @ 1501 ;s var: ! var: @ 5 ;s char+ c@ ;s ;s 216 execute does: dup var: ! 206 nip execute does: @ execute 230 ?branch nip nip execute does: 14 ?branch var: 2@ lit (?do) 25 i' i - lit min 352 ;s ! ;s ;s branch 801 - dup lit u< ?branch 156 ?branch ;s ;s ;s 0= 1 col: 1- ;s ;s branch 387 2drop rdrop r> ?branch dnegate 7 rot r@ col: 1- tuck 9 execute col: user: col: con: 131 ! ;s col: r> /does-handler 430 execute col: col: var: @ 1077 ;s ;s ;s col: var: 2140 >r ;s count ;s con: 1110 ;s @ execute col: col: 11 execute col: col: var: col: 1106 @ ! branch ;s col: 13 ;s ;s swap con: - 22 ! drop ;s lit col: 9853 lit r@ lit and ?branch 295 nip nip execute col: user: 103 c! ;s ;s var: @ 37 branch ;s user: col: con: 2 ;s dup ?branch ;s nip 3699 0= ?branch user: @ con: 27 2drop user: ! col: var: 13 pick rdrop dup col: con: 1652 ;s ;s ;s 2drop ;s 1 swap ;s (?do) unloop ;s 1368 * swap con: um* rot 178 user: ! ;s col: var: 1 user: ! lit + dup 2583 ;s ;s ;s ;s user: 6410 dup 0< ;s r> con: 75 ?branch drop 2dup col: col: 55 nip execute col: dup col: 86 = ?branch con: <> col: 13 ;s branch ;s col: lit 2169 lit max col: >r lit 1 @ ?branch ;s ;s ;s 88 >r sp@ r> swap >r 72 @ user: @ = ?branch 1 lit (?do) unloop 2drop drop 1 execute col: var: over 1- 42 col: cell+ cell+ ;s col: 1 r> or ?branch 2drop dup 1 defer: (type) con: col: lit 149 ;s 0= ?branch ;s col: 75 2dup col: col: user: @ 355 ! r> user: ! r> 1399 lit u> ?branch dup user: 1 con: swap ! ;s rp@ 14 >r con: open-file 0= ?branch 483 ?branch 1- r> lit and 1532 0> ?branch nip col: cell+ 10 var: ! ;s ;s branch 6 swap ! ;s con: @ 2444 col: col: user: @ ?dup 1 2@ lit (?do) unloop 2drop 801 lit - dup lit u< 1071 @ ;s ;s col: dup 6 @ ;s col: con: col: 6 con: >= ?branch ;s lit 7 cell+ var: ! ;s col: 1 ;s @ ;s r> tuck 102 col: col: con: @ col: 573 2drop con: ;s ;s ;s 1 lit ! lit col: >r 1454 lit - dup lit u> 1 rp@ user: ! fp@ user: 2 (?do) col: dup ;s col: 27 ! col: var: col: con: 29 con: + ;s var: ! 172 code-address! ;s ;s col: col: 736 dup col: dup cell+ @ 10547 (parse-white) 2dup + r> - 1216 ;s col: lit >code-address ;s 42 ;s ;s ;s col: cell+ 2 nip execute over ;s branch 13 drop >r drop col: var: 27 r> swap ;s dup ?branch 9853 cell+ dup c@ >r col: 460 2drop lit col: >r defer: 119 ;s @ col: cell+ cell+ 14 ;s col: var: 2@ tuck 7612 @ ;s col: over >r 756 over col: ;s @ con: 465 ?branch col: col: r> r> 9776 col: lit /mod rot + 120 cells + ;s var: ! 117 2drop ;s ;s ;s drop 6 ! ;s lit col: user: 715 var: @ ?branch col: col: 736 dup cell+ @ col: dup 56 execute col: con: col: col: 2 ;s dup rot ! swap 122 ;s ;s con: col: col: 4 @ ;s +! ;s does-handler! 119 does-code! ;s ;s swap user: 1895 rot ! r@ swap col: 2 lit pick + (loop) unloop 25 +! ;s col: col: user: 7 execute col: + ;s ;s 750 min con: write-file col: ?dup 5 col: ;s ;s ;s branch 7453 (+loop) 2dup i 2@ over 74 = ?branch col: col: col: 50 move drop r> ;s rdrop 3 ;s col: col: 2dup lit 290 @ 0<> and ?branch var: 1410 swap ! ;s ;s ;s 14 dup >r con: open-file 0= 14 unloop 0<> lit and col: 750 ;s user: ! ;s ;s 750 tuck - ;s con: write-file 256 0= ?branch nip ;s dup 1162 var: @ and ?dup ?branch 736 user: @ col: col: col: 19 ;s ;s ;s var: @ 2 rot ! swap col: lit 2 i col: cells var: @ 5004 col: var: + c@ ;s 5 unloop ;s branch ;s ;s 9204 @ > ?branch fp@ user: 13 ;s over 0= col: col: 33 @ ;s ;s char+ c@ 432 user: @ >r user: @ 1 +! ;s 2! ;s branch 1430 user: @ um* drop rot 6099 ?branch defer: col: 2dup col: 79 ;s con: ;s ?branch ;s 120 ;s col: over col: ;s 42 ! ;s ;s ;s swap 7453 lit (+loop) 2dup i 2@ 119 var: ! ;s >r dup 10547 /string (parse-white) 2dup + r> 1224 ?branch rdrop ;s cell+ tuck 3669 lit + aligned ;s con: 152 faligned over lit + = 2 + (loop) unloop drop branch 6 over ! lit var: +! 102 dup col: dup con: <> 1113 + ;s ! ;s col: 15 - dup ?branch drop r> 1 @ ;s >r over >r 119 ! ;s branch dup col: 60 ?dup ;s ?branch ;s col: 6279 var: @ col: col: dup 79 d>s ;s ;s r@ rot 334 @ 0= ?branch ;s ;s 4 ;s branch con: defer: noop 119 ! ;s >r dup col: 750 ;s var: ! user: @ 1069 ;s col: dup count lit 76 drop lit col: lit con: 280 user: ! drop ;s branch 2 tuck allocate col: col: r> 12 +! ;s ! ;s r> 18159 2dup + r> - 1+ 27 0= ?branch ;s ;s branch 1 con: swap ! ;s cr 18 d>s ;s ;s swap col: 268 rdrop ;s ;s col: dup 25640 r> ;s rot i c! 3322 ;s @ col: col: col: 1162 @ ?dup ;s ?branch col: 6 ! ;s var: @ lit 1 col: lit fill ;s var: 212 ! ;s code-address! ;s con: 3 >body ;s branch col: sp@ 2 u<= ?branch drop con: ;s 325 ?branch rdrop ;s branch lit 1200 ?branch ;s defer: col: col: 57 over col: col: var: @ 740 var: 2@ d<> ?branch ;s 1603 and - lit and ;s 1110 + ;s ! ;s does: 2889 lit and ?branch nip nip 69 execute col: col: defer: defer: 58 ! ;s lit user: ! 342 lit (+loop) unloop d>s ;s 1 @ = ?branch user: @ 4 does-handler! ;s branch con: defer: 1 2@ col: col: col: col: 5 (?do) unloop ;s branch ;s 14 var: 2@ nip 1- user: 296 swap (?do) unloop ;s ;s 14 ! lit user: ! user: 79 ;s ;s branch dup ?branch 181 nip ;s dup ?branch rdrop 338 ;s lit col: var: @ 48 ;s col: lit user: ! 19230 (loop) con: col: >r lit 152 + faligned over lit + 6 var: @ >r var: col: 6 @ col: 2dup u<> ?branch 1 ?branch i 1+ col: cells 342 swap lit (+loop) unloop d>s 801 2swap dup >r col: lit 1 (type) ;s cr ;s ;s 3248 con: swap ! ;s ;s 4 @ ;s /does-handler col: col: 1 or ;s create-file col: ?dup 17 = ?branch lit cells + 11381 col: col: dup field: @ 857 col: con: col: col: defer: 4 col: - ;s ;s branch 39 swap col: col: user: @ 19 execute col: var: @ ?branch 22073 ?branch over c@ r@ <> 595 ;s dup ?branch ;s ;s 965 0> ?branch nip nip execute 60 ;s ?branch ;s col: user: 3154 @ lit pick ! ! 25 (type) (+loop) unloop drop ;s 319 dup negate user: +! lit 750 ;s var: @ dup 0> 5 execute col: col: 0= ?branch 131 var: ! ;s swap ! 1641 ;s c! ;s (loop) unloop 22 ! ;s branch ;s ;s 13 ! branch ;s ;s ;s 460 0<> and ?branch col: col: 6 ?branch drop ;s dup col: 14 swap cmove var: over r> 17 (type) lit does: swap lit 62 ;s col: cell+ ;s @ 6752 @ + ;s col: >r 1427 user: @ u>= ?branch con: 3 con: + ;s col: col: 980 ! ;s 0= col: col: 313 ;s ;s lit col: dup 9 ;s ;s count col: col: 750 ;s con: - dup ! 1205 var: @ dup >r col: 13 user: ! ;s ?branch ;s 6 col: cell+ dup @ 0< 1 col: drop ;s ;s branch 20 col: dup 0< ?branch col: 750 swap ! ;s ;s col: 4 nip nip execute cells ;s 342 lit lit r> con: col: 1162 2dup 2dup r> col: dup 1162 ;s ;s col: dup lit 41 @ ;s ;s - col: 1500 count con: write-file col: ?dup 75 dup ?branch drop 2dup col: 7 r@ col: 1- tuck + 3825 >body nip r> ;s ?dup 1 nip execute col: var: over 3 var: ! defer: drop ;s 20 var: ! ;s ;s lit 5004 var: + c@ ;s ;s 15 user: @ lit pick col: 71 = ?branch r@ user: +! 309 over col: over col: ;s 2169 lit over < ?branch lit 750 @ min con: write-file col: 1493 @ col: col: col: user: 40 dup @ swap con: - 1 ;s >r over >r lit 1 ?branch col: user: @ >r 1 drop con: ;s 0= ?branch 103 user: +! ;s col: dup 725 dup ?branch ;s ?branch drop 455 drop ;s ;s ;s branch 7 dup field: dup var: ! 212 ;s con: col: lit lit 1551 user: ! ;s user: @ 1 r> user: +! lit ;s 406 col: >r dup ?branch rdrop 119 ! var: @ ?branch user: 13 1- >r r@ pick r@ 4041 ?branch read-line col: ?dup ?branch 4 cr ;s ;s branch col: 1 swap ! ;s cr col: 27 drop con: ;s ?branch 1- 6 lit = ?branch dup var: 1 var: over col: tuck allocate 7 u>= ?branch col: dup col: 7 r@ u>= ?branch col: dup 3367 ;s col: col: col: user: 1856 ;s ;s lit col: col: 14 2* cells + 2! ;s 943 ! ;s code-address! ;s ;s 86 var: @ ! ;s ;s 119 lit var: ! ;s >r 76 dup 0= ?branch drop lit 5 swap (?do) unloop ;s branch 53 u<= ?branch dup user: @ 40 swap con: - dup @ 49 faligned nip ;s user: ! 124 nip execute col: col: defer: 13 ;s ;s drop con: ;s 86 ?branch rdrop ;s con: var: 119 con: <> ?branch dup col: 9 user: ! ;s ;s ;s 4 ;s r> col: >r ;s 40 @ swap con: - dup 1 /string ;s var: 2! var: 801 lit lit 2swap dup >r 1026 lit (+loop) con: * swap 2 swap user: ! col: defer: 52 branch ;s branch ;s user: 79 r@ rot col: col: var: 1 ! ;s drop ;s ;s 750 col: 2drop col: col: col: 6 dup lit = ?branch dup 4 execute cells ;s branch col: 72 col: r> user: @ >r 1 dup ?branch rdrop ;s over 796 ! col: col: user: @ 3278 ?branch drop 2drop lit (+loop) 14 + dup >r con: open-file 334 user: @ 0= ?branch ;s 6 ! lit var: +! var: 71 ! r> user: ! >r 268 ;s ;s col: dup 0= 1106 ! ! branch var: col: 93 0<> ?branch faligned nip ;s 147 2drop ;s ;s branch col: 1430 ;s ?branch col: swap >r 19 execute var: ;s branch col: 736 = swap col: cell+ ;s 62 col: cell+ ;s @ ;s 1690 col: dup >r write-file ?dup 2 ;s 0= ?branch ;s swap 3048 ?branch col: col: sp@ user: 4 unloop d>s ;s ;s ;s 1368 rot + swap i c@ 13 swap 2dup or col: dup 13 rdrop rdrop lit ;s user: 6869 lit and ?branch ;s ;s 1976 ;s ! ;s ;s col: 1 var: 2@ 2* cells col: 980 branch user: @ con: col: 1106 + var: @ ?branch dup 14 ;s ;s r> user: ! 14 + swap cmove var: over 81 @ col: var: @ ;s 27 ! ;s col: con: @ 740 d<> ?branch ;s defer: col: 181 ;s var: ! ;s does: 30 ?branch rdrop ;s ;s over 10870 var: @ ;s ;s lit 789 @ dup ?branch 2dup swap 6 lit cells - var: over 7 col: col: col: col: con: 25640 ;s rot i c! (loop) 4041 ;s branch lit user: +! 1 rdrop rdrop lit ;s ?dup 119 col: var: @ ;s col: 4 dup var: ! defer: col: 1 ?branch 2dup + lit swap 13 @ close-file swap 2dup or 2 branch @ dup ?branch 2drop 4828 cell+ @ = ?branch @ 7 2drop ;s ;s ;s + 1486 ! col: col: var: @ 1 ?branch i 1+ var: @ 1161 (?do) unloop ;s col: col: 582 col: lit col: >r defer: 736 swap col: cell+ ;s @ 7 ;s ;s ;s + swap 3825 r> ;s ?dup ?branch 0> 20 var: @ dup lit >= 387 dnegate r> user: ! ;s 1898 @ ;s swap dup col: 14 ! ;s lit col: >r 750 @ lit col: col: col: 1 nip nip execute field: ;s 387 r> ?branch dnegate r> user: 1 r> tuck - lit cells 750 ;s con: - dup @ 750 col: col: var: 2@ drop 6951 i c@ col: col: col: 2 ?branch dup defer: col: cell+ 15 2dup r> -rot move ;s 325 - con: / ;s ?dup 3825 nip r> ;s ?dup ?branch 2169 rot lit over < ?branch 325 ;s ;s ;s user: col: 29 col: con: + ;s var: 460 ?dup ?branch ;s defer: col: 10701 lit col: var: +! ;s 7 swap r> col: 1- tuck 119 dup col: col: lit cells 7648 ;s col: over >r rot 811 ! ;s var: col: con: 4 col: = ;s ;s branch 1 var: 2! var: up! sp@ 518 ?branch drop 2dup 2>r col: 58 user: ! >r ;s col: 14 dup col: var: @ swap 750 ;s col: ;s var: @ 1166 ;s col: user: @ ?dup 7612 @ ;s count + c! 4772 ;s swap col: con: - 387 r> ?branch r> user: ! 750 ;s col: 2drop col: col: 6410 + ;s col: >r col: 54 ;s @ ;s ;s branch 1895 >r drop r@ @ rot 122 r> ;s dup 0= col: 224 ?branch rdrop ;s ;s con: 37 cells var: + @ user: 15 swap >r dup allocate col: 13 r@ u>= ?branch col: var: 4041 user: @ ?dup ?branch read-line 1454 - dup lit u> ?branch 1204 @ ;s dup aligned swap 14 col: 1- tuck + swap 521 r> ?branch user: +! ;s 156 branch dup @ dup ?branch 1129 @ var: @ 1+ dup 7648 col: over >r rot over 325 / ;s ?dup ?branch 1- 17 lshift ;s ;s branch col: 60 lit col: lit lit ! 281 0= col: col: col: r> 4 var: ! ;s ;s drop 873 col: user: @ ;s does-code! 4772 ;s con: / col: col: 119 col: ;s ! ;s lit 28 cell+ ;s ! ;s ;s 4166 col: user: @ ?branch col: 14 ;s lit col: >r sp@ 88 @ >r rp@ user: ! 483 lit and ?branch 1- r> 322 cell+ ! col: con: col: 736 unloop ;s ;s swap user: 7 ;s col: var: @ dup 1923 col: col: var: dup @ 656 (loop) count col: user: @ 2 lit col: >r >r user: 3154 dup @ lit pick ! 63 col: con: con: 1+ within 9632 user: @ over min /string 1452 @ ;s user: ! drop 7 ! over c@ lit = 2 lit * ;s ;s branch 739 ?branch drop r> ;s over 387 rdrop r> ?branch dnegate r> 1 nip execute col: 2* ;s 292 faligned swap (?do) unloop ;s 1 = ?branch i 1+ col: 7 execute ! ;s branch col: 50 ;s rdrop dup col: con: 1 col: 2* ;s ;s branch 22 ;s con: - col: col: 8996 lit and 0= ?branch lit 58 2drop ;s r> user: ! 1 ;s rp@ user: ! fp@ 2 over ;s branch col: sp@ 212 c! ;s ;s col: lit 37 user: ! lit /string branch 1 noop var: @ lit > 7648 over 1+ r> move c! 14 ?dup ?branch ;s ;s r> 1895 lit fill ;s r> ;s 341 ;s ;s col: var: col: 5951 c! ;s ;s col: col: 6 ;s ;s over col: cell+ 6 0< ?branch lit @ var: 4041 swap user: ! lit user: 1 ;s ;s col: over col: 5013 @ ;s ;s dup c@ 748 @ dup 0> ?branch lit 16 execute col: col: col: con: 25 lit (?do) i' i - 1291 ! ;s does: col: var: 72 user: ! lit col: >r 1 drop var: @ ?branch col: 119 user: ! user: @ col: 756 ;s lit (?do) con: col: 290 lit col: user: @ swap 801 ;s lit lit 2swap dup 85 r> user: ! rdrop rdrop 41 nip execute col: defer: col: 92 @ execute col: col: @ 20 var: <= ?branch con: - 6099 2dup col: var: @ col: 4 ?branch defer: noop col: r> 25 2dup defer: (type) (+loop) unloop 63 ;s ;s col: dup @ 4 var: ! ;s ;s r> 3 @ ?branch ! ;s ;s 1 + lit swap c! 1+ 62 ;s branch ;s ;s user: 119 ! user: @ col: var: 20 col: var: @ dup var: 18 ;s con: ;s ?branch col: 460 user: @ /string con: col: 6 ! var: var: ! ;s 13 - swap lit col: 1+ 736 drop ;s branch @ dup 4 0<> ?branch 2drop col: lit 14 ?dup ?branch ;s var: swap 22 ;s var: @ 2dup u> 692 ;s ;s ;s dup col: 5907 con: ?branch lit col: drop 22 swap ! ;s branch ;s 750 col: col: col: col: var: 84 execute col: ;s ;s branch 789 drop ! ;s var: col: 1451 ;s var: ! col: var: 2 nip nip execute over ;s 14 ;s swap 2dup 1+ var: 1 ;s drop var: 2@ nip 103 0> ?branch col: user: @ 1 rdrop lit ;s ?dup ?branch 7 lshift ;s ;s ;s branch 97 ?branch dup col: col: var: 1 lit fill ;s var: @ 14 over r> + dup >r 1 2dup defer: (type) con: col: 3 nip execute col: cr ;s 1089 var: @ 1- dup 0= 1106 ?branch dup @ lit pick 4748 ;s dup ?branch drop branch 226 nip execute col: defer: defer: 1162 ;s col: dup lit u> 27 user: ! col: var: col: 5 col: var: @ ?branch col: 1 c@ lit <> ?branch 2dup 1 var: swap ;s 2dup col: 1216 ;s ! ;s code-address! ;s 1419 ;s 2dup d0= ?branch col: 3278 drop 2drop lit (+loop) 2dup 1162 0= lit and col: ?dup 801 lit 2swap dup >r col: 1 ;s r> close-file col: ?dup 7 dup user: ! over c@ 2293 0> ?branch nip col: dup 14 col: dup col: var: @ 2 execute col: user: @ var: 11 ;s user: @ ?branch col: 13 user: ! col: ?dup ?branch 32 @ col: 2dup u< ?branch 150 cells sp@ cell+ dup cell+ 842 col: ;s @ con: = 9776 col: col: lit /mod rot 9204 @ > ?branch ;s defer: 3 and swap c! ;s ;s 14 2! ;s var: 2@ nip 254 ;s defer: noop ;s ;s 3669 ;s lit + aligned ;s 25 user: @ u>= ?branch drop 2169 @ c! ;s ;s 2dup 27 nip execute col: lit lit 2889 and ?branch nip nip execute 20570 r@ <> ?branch lit /string 2020 min /string over swap r> 2 nip execute col: lit (?do) 2 branch @ dup @ ?branch 50 r> ;s rdrop dup col: 4772 rot + swap does: + 49 dup con: ! col: lit 3 ;s invert over c@ and 268 ;s col: dup 0= col: 14 2dup 1+ var: 2! 2* 22 ?branch rdrop ;s ;s var: 15 + col: col: var: @ 137 dup 0< ?branch col: col: 1210 ;s defer: col: col: user: 17 <> ?branch col: over var: 6011 ;s con: col: var: +! 736 ;s ! ;s var: ! 875 ;s ;s ;s lit col: 74 swap ! ;s drop branch 322 var: cell+ ! col: con: 13 rdrop lit ;s user: @ 21 nip execute col: var: @ 1368 swap con: um* rot + 6410 c! (loop) unloop 2drop ;s 2 col: tuck allocate col: col: 1336 ?branch negate ;s ;s ;s 1162 u> lit and col: ?dup 7648 >r rot over 1+ r> 4169 ;s dup ?branch >r >body 152 i - count lit and 15 1+ user: +! ;s user: 2 ?dup ?branch ;s over lit 4 defer: noop col: r> dup 8 nip nip execute does: dup 2 col: lit lit col: ;s 40 ! cell+ tuck ! cell+ 342 col: >r lit lit r> 750 ;s ;s var: ! var: 6410 (loop) unloop 2drop ;s ;s 3 + ;s col: col: var: 8 execute col: var: +! ;s 120 ! var: @ ?branch dup 5004 + swap col: var: + 1 r> tuck - dup ?branch 12 does-code! ;s ;s swap dup 3278 2@ over <> ?branch drop 996 col: user: @ ?branch defer: 1 user: @ >r var: @ 268 dup 0= col: col: col: 14 col: 2dup lit col: >r 1335 con: swap ! ;s user: 27 0= ?branch 2drop con: ;s 15 @ + ;s ;s ;s 9889 ;s ;s ;s ;s ;s 4772 col: con: - ;s con: 6414 col: col: col: col: user: 14 2@ lit (?do) dup >r 119 swap user: ! swap col: 6 lit col: dup lit = 2 user: @ var: col: con: 18 allocate col: ?dup ?branch ;s 1314 field: @ execute col: col: 1224 c@ xor swap c! ;s 4845 @ dup ?branch 2dup cell+ 86 rdrop ;s con: var: @ 32 cell+ ;s ! ;s col: 15 r> drop col: con: @ 25640 um/mod r> ;s rot i 6011 con: col: var: +! ;s 792 ;s ;s col: col: var: 144 execute col: col: col: var: 801 over c@ lit = dup 27 i' i - unloop ;s 206 execute does: @ execute does: 573 con: ;s ;s ;s dup 4 2drop col: lit does: swap 1166 col: cell+ count lit and 14 r> -rot move ;s col: 80 2drop ;s ;s ;s branch 4 ;s 2dup defer: (type) compare 824 @ (f83find) ;s ;s dup 1 ;s r@ write-file col: ?dup 119 >r dup col: col: lit 943 @ execute col: col: user: 18 ?branch col: col: var: @ 17 unloop drop ;s drop swap 20 con: + ;s ;s col: 45 var: @ ;s ;s ;s 15 swap 2dup r> -rot move 13 ;s user: @ close-file swap 19 rdrop ;s ;s col: con: 750 var: @ var: @ 0<> 933 ?branch ;s dup ?branch ;s 1895 r@ @ rot ! r@ 17 rdrop ;s ;s over col: 1 execute field: ;s branch col: 1160 swap (?do) unloop ;s col: 37 lit /string branch ;s user: 774 branch ;s dup ?branch 2drop 46 ;s branch dup ?branch dup 838 ;s ;s var: @ ?branch 14 + swap invert and ;s 216 dup var: ! col: cell+ 5004 rot + swap col: var: 2 col: lit fill ;s ;s 2 swap ;s branch col: sp@ 12 ! >r >r col: user: 6410 col: >r col: dup 0< 455 swap ! ;s col: col: 7 ;s ! ;s ;s dup 387 = dup >r ?branch lit 15 dup allocate col: ?dup ?branch 18 ;s ;s var: ! ;s 5 nip execute col: col: 0= 414 dup >r ?branch col: over 347 ?branch ;s ;s ;s branch 15746 @ + @ (hashfind) ;s 4 user: @ ?branch con: min 1334 negate ;s ;s ;s dup 181 rdrop branch ;s dup ?branch 5004 col: con: rshift ;s col: 6 cells - var: over cell+ 35 execute col: col: con: col: 23847 field: @ field: @ execute 7 invert and ;s dup col: 156 @ dup ?branch nip branch 22073 dup ?branch over c@ r@ 60 code-address! ;s lit col: lit 74 ! ;s drop branch ;s 14 cells + 2! ;s var: 14 rdrop lit branch unloop 0<> 1648 ?branch negate ;s ;s dup 1 0= ?branch ;s >body @ 14 ?branch ;s ;s r> user: 12 @ execute col: ;s branch 1 col: user: @ ?branch ;s 1498 user: ! col: col: var: 14 2! 2* cells + 2! 1430 um* drop rot user: @ 1 defer: noop var: @ lit 20 ;s col: col: con: + 57 ;s count ;s col: col: 750 + ;s 2@ var: 2@ 801 over c@ lit - dup 72 @ >r user: @ user: 206 ! ;s ;s branch col: 13 rdrop ;s ;s over 0= 1106 var: @ col: lit + 14 nip nip r> rdrop lit 9776 lit /mod rot + swap 10 ;s col: var: 2@ drop 7 var: field: @ col: col: 1 @ ;s +! ;s 2! 4 ;s does-handler! ;s branch con: 12 does-code! ;s ;s rot swap 7678 @ ;s @ ;s col: 24 (?do) unloop ;s ;s ;s 102 rdrop ;s ;s con: = 322 ?branch var: @ var: cell+ 2 nip execute 1- ;s branch 5 0= ?branch var: @ over 2048 pick ! ! ;s lit 50 branch ;s ;s ;s branch 2020 /string over swap r> col: 756 lit (?do) con: col: col: 1 field: ;s branch col: sp@ 750 col: col: user: @ lit 573 drop branch lit (+loop) unloop 55520 col: user: @ ;s @ 2773 col: dup col: col: col: 2 col: 0= ?branch ;s ;s 1606 faligned swap (?do) con: col: 1898 +! ;s c! ;s col: 3 ?branch ;s branch ;s user: 13 cell+ var: ! ;s rdrop 280 ! drop ;s branch ;s 63 1+ within 0= col: col: 1 dup user: ! lit + 2 nip execute col: does: @ 22 ?branch var: ! drop ;s 1532 nip col: cell+ cell+ ;s 5013 ;s @ ;s ;s dup 119 swap ! ;s branch dup 14 var: 2@ tuck 1+ 2* 32 con: var: col: con: swap 739 ;s over col: cell+ ;s 60 col: lit user: ! col: 11 user: @ ?branch col: col: 13 ! >r ;s drop col: 100088 col: col: user: @ ;s 7119 ;s >r ?branch rdrop ;s 16712 col: var: +! ;s col: 25 i - lit min 2dup 2169 over < ?branch lit + 24575 col: var: @ ;s ;s 1 1+ col: tuck allocate col: 1106 var: @ ?branch dup @ 8768 ;s lit col: col: user: 414 ?branch col: over c@ lit 750 ! user: @ col: con: 6 ;s ;s col: lit user: 21 execute col: col: lit user: 736 var: ! col: col: user: 1368 con: um* rot + swap 2169 ?branch lit + col: col: 933 ;s dup ?branch ;s dup 10 @ 0< ?branch ;s ;s 7 col: + ;s ;s branch 62 branch ;s ;s user: @ 322 var: ! col: var: @ 736 ;s @ ;s var: @ 1 @ lit (?do) i col: 627 nip execute col: col: col: 46 branch dup ?branch dup col: 1 col: ?dup ?branch ;s r> 13 >r r@ pick r@ pick 63 con: con: 1+ within 0= 13 ! col: ?dup ?branch ;s 639 col: r> dup cell+ >r 4635 0= col: col: r> r> 36 ;s +! ;s col: over 4 (loop) unloop ;s col: ;s 160 swap ! ;s nip ;s 13 ! ;s ?branch ;s r> 1106 @ col: lit + dup 7 code-address! ;s ;s ;s branch 32 - col: col: col: user: 15 unloop 2drop ;s ;s var: 1168 ;s lit col: user: @ 319 @ swap - col: dup 14 r> + dup >r con: 2 col: var: ;s ;s branch 750 col: ;s var: @ dup 1652 ;s 2drop ;s branch col: 518 2>r col: col: user: @ 9833 ;s c! ;s ;s (loop) 2 dup rot ! swap col: 1 var: @ dup @ ?branch 1162 @ over ! var: @ 1 lit <> ?branch 2dup + 750 @ ;s var: ! user: 16712 var: +! ;s col: col: 5004 var: @ swap col: con: 4 ! defer: col: cell+ dup 13 >r lit col: 1+ con: 71 ;s col: lit col: >r 1 ! var: ! col: lit 736 cell+ @ col: dup col: 3 var: @ ?branch ;s branch 5 execute col: col: col: lit 86 dup con: = ?branch con: 119 cells + ;s @ dup 76 con: - unloop ;s ;s 1 execute col: col: 2dup lit 2456 @ cells + ;s ! 20 ! cell+ var: ! ;s 23 over col: lit over 0<> 18159 - 1+ r> min user: 2 lit lit col: ;s ;s 97 ;s ;s con: ;s ?branch 1 col: * ;s ;s branch 10 ?dup ?branch ;s col: var: 15 col: swap >r dup allocate 2169 lit over +! @ c! 10 ?dup ?branch ;s var: 2! 750 ;s user: ! col: col: 1 execute c! ;s branch col: 9853 r@ lit and 0= ?branch 8 nip execute col: var: +! 764 ! ;s ;s col: r> 6 2drop r> var: ! ;s 7 ;s ;s var: field: @ 280 ;s @ execute col: user: 750 var: @ 0<> ?branch col: 12 ;s ! ;s r> r> 1 drop con: ;s ?branch col: 6 = ?branch dup var: ! 1895 lit col: lit pick @ 43 ;s col: dup col: dup 1 ?branch col: col: 2dup lit 158 ;s (loop) col: dup ;s 15 r> col: col: col: col: 2889 ?branch lit and ?branch nip 37 u< ?branch cells var: + 7 and ;s dup col: col: 1399 dup lit u> ?branch dup 22 con: - col: col: user: 15 user: +! ;s user: @ 1 c! 1+ col: col: col: 1652 ?branch 0> ?branch col: col: 15746 + @ >r 2dup col: 272 ! ;s ;s defer: noop 7612 col: col: defer: col: col: 9342 count + aligned >r swap 272 swap ! ;s ;s defer: 1 ?branch drop con: ;s 0= 1026 + swap lit (+loop) con: 7 ;s var: field: @ col: 22625 col: dup field: @ field: 22841 defer: col: col: user: @ 5907 var: dup @ 1- cells 150 rot move drop r> ;s 325 / ;s col: user: col: 748 dup 0> ?branch lit col: 4 2dup defer: (type) compare 0<> 3521 ?branch nip nip execute col: 27809 r@ um/mod r> swap >r 1 @ ?branch drop ;s ;s 17 ! ;s ;s ;s lit 36 +! ;s col: over >r 1 var: @ con: cells col: 5907 col: drop var: dup @ 15 col: >r >r user: @ 4 branch con: defer: noop ;s 1158 2drop 2drop ;s var: @ 342 + swap lit (+loop) unloop 5 execute col: over col: ;s 1895 ?branch @ over cell+ count 102 ;s ;s branch ;s ;s 62 ;s @ con: = col: 631 ;s dup col: ;s var: 117 ;s ;s drop ;s col: 2 rdrop ;s ;s lit lit 21 ;s branch ;s ;s ;s 2338 lit and col: ?dup ?branch 2169 aligned ;s con: - lit 72 user: @ user: ! user: 3 * ;s ;s branch col: 37 ! lit /string branch ;s 1224 tuck c@ xor swap c! 518 2rdrop branch ;s branch col: 789 dup ?branch drop ! ;s 5 ?branch ;s >body user: @ 1457 user: @ lit = ?branch 88 lit col: >r sp@ r> 3825 ?branch 0> ?branch nip col: 1 ?dup ?branch ;s var: ! 505 con: swap ! ;s col: 1129 > col: col: r> r> 16712 +! ;s col: col: var: 9204 fp@ user: @ > ?branch 9853 c@ >r col: count lit 16 dup 0= ?branch ;s ;s 774 0= ?branch user: @ dup 315 +! ;s 2drop ;s branch 20 over r@ u>= ?branch col: 10 ?branch ;s col: var: 2@ 16 0= ?branch ;s ;s dup 4 (type) ;s col: cell+ count 6869 r> lit and ?branch ;s 4033 0= ?branch col: col: dup 1216 col: lit >code-address ;s col: 8768 ;s +! ;s c! ;s 1204 ;s dup aligned swap (?do) 1 defer: (type) ;s var: @ 322 var: @ var: cell+ @ 1210 var: @ + ;s count 858 ;s con: col: col: defer: 1 var: ! col: lit lit 58 rdrop lit ;s col: dup 2 c! ;s ;s ;s col: 460 user: +! ;s con: write-file 789 - col: col: col: var: 4 ;s ;s r> col: >r 1923 cells + ;s @ var: 1923 @ cells + ;s @ 801 @ >r user: col: con: 35 con: ;s branch col: sp@ 1 col: con: col: >r defer: 97 ?branch cell+ @ col: col: 2 dup @ dup ?branch 2dup 13 ;s swap con: - swap 313 branch drop ;s ;s col: 18159 1+ r> min user: ! 119 ;s swap ! var: col: 4 col: col: lit var: +! 4 ;s ;s var: @ field: 5334 nip unloop ;s ;s ;s 801 dup >r col: lit (?do) 2 con: - col: var: @ 1 con: + ;s ;s branch 79 col: var: @ ;s rot 25640 con: col: >r lit r@ 1898 +! ;s move ;s col: 17 ?branch col: over var: @ 1205 lit col: var: @ dup 1898 @ ;s @ ;s swap 1162 @ col: >r 2dup 2dup 27809 r> swap >r um/mod r> 4041 read-line col: ?dup ?branch ;s 41 var: @ ;s ;s - 1 >r lit col: >r sp@ 1 unloop 2drop drop con: ;s 1168 @ 0< ?branch var: @ 52 ?branch col: dup @ con: 980 c@ 0= ?branch 2drop col: 2 create-file ;s branch col: sp@ 105 ;s ;s ;s col: dup 1 ;s 0= ?branch col: user: 6 con: @ col: 2dup u<> 992 ?branch defer: col: col: user: 4805 @ ;s +! ;s col: 3 c@ and swap c! ;s 1368 con: * swap con: um* 1500 var: count con: write-file col: 2 ;s swap col: cell+ cell+ 880 field: @ execute col: @ 86 ;s con: var: @ ! 801 user: @ >r user: col: 36 move c! ;s col: col: 1 var: @ ;s 1- con: 325 ;s col: user: col: con: 3467 con: = ?branch col: col: 1162 over ! var: @ ! 1 @ ;s @ ;s r> 1 (type) ;s 2dup defer: (type) 27 ?branch 1- i' i - 748 col: user: @ col: col: 1 >body @ col: col: col: 2 over lit (?do) dup lit 56 @ ! branch ;s ;s 34 ?branch lit col: dup @ 1948 ;s var: @ col: var: 17 ?branch lit cells + count 1 @ col: col: var: @ 3314 col: cell+ ;s @ col: 748 lshift ;s - col: col: 1205 @ dup >r col: col: 789 dup @ dup ?branch drop 6 @ over ! lit var: 55 lit - dup lit u<= 2020 over - dup r> ?branch 2 ;s col: dup count col: 322 var: cell+ @ col: over 315 col: ;s ! ;s ;s 76 ;s dup 0= ?branch drop 17 ;s over col: lit over 150 col: dup 1+ pick >r 1 execute col: * ;s ;s 10 2@ 2dup con: write-file col: 2048 lit pick col: dup @ 76 ?branch i - con: - 9 ;s count col: col: 2dup 7179 ;s (loop) con: col: col: 6279 col: var: @ col: col: 9 rdrop ;s ;s user: col: 1212 ?dup ?branch ;s var: @ 1129 @ 1+ dup con: > 1 col: ?dup ?branch ;s >r 76 = ?branch con: (+loop) dup 3105 ! ;s dup ?branch 2drop 2 dup ?branch ;s nip 0<> 774 ;s dup ?branch 2drop rdrop 27 rdrop user: col: con: swap 10 + ;s 2@ 2dup con: 44 var: @ ?branch col: lit 8 col: lit does: swap lit 801 c@ lit = dup >r 88 >r rp@ user: ! execute 4772 swap c! ;s ;s ! 102 ;s var: @ ?branch con: 7250 ;s ;s col: var: @ 1 col: user: @ >r var: 17 @ = ?branch lit cells 6 ! dup @ dup ?branch 2020 @ ;s user: @ over 1659 2drop ;s branch col: sp@ 20 execute col: does: col: var: 1 dup @ ?branch drop ;s 1035 1+ user: +! ;s 2drop 62 nip r> ;s 0= col: 63 col: 1+ con: * 1- 9773 ;s over c@ or swap 272 ;s ;s defer: noop ;s 60 user: ! col: col: user: 6 drop ;s branch col: sp@ 156 ?branch nip branch dup @ 17 nip execute col: con: lshift 119 + ;s @ dup col: 320 ! ;s ;s branch ;s 309 user: ! ;s ;s over 9342 r> r> dup count + 1216 +! ;s ! ;s code-address! 1 swap ! ;s rp@ user: 750 ;s 2dup d0= ?branch ;s 25311 col: col: var: @ ;s 37 ?branch cells var: + @ 3 tuck col: col: var: @ 97 @ user: @ ?branch cell+ 97 col: var: @ user: @ 9 count col: col: 2dup lit 6410 ;s col: >r col: dup 139 col: cell+ cell+ ;s ! 102 ;s @ ;s ;s var: 10547 defer: col: defer: col: col: 3047 2drop ;s branch col: user: 57 ;s ;s over col: col: 3393 col: dup @ con: = 2169 max col: >r lit r@ 670 (loop) unloop ;s ;s user: 1106 lit pick ! ! branch 2 * allocate col: ?dup ?branch 32 col: 2dup u< ?branch = 13 pick r@ pick r@ pick 325 ;s ?dup ?branch 1- <> 60 con: - dup @ swap 1 -rot move ;s drop var: 6099 dup ?branch defer: col: 2dup 414 = dup >r ?branch col: 20 ;s ;s col: con: col: 20 - ?branch 2drop rdrop user: 387 ?branch dnegate r> user: ! 857 0= ?branch @ lit r@ 1169 dup aligned swap (?do) unloop 181 ;s dup ?branch rdrop branch 2169 c! ;s ;s 2dup d0= 3 execute col: col: ;s ;s 76 lit col: lit con: (do) 6 over cell+ ! dup @ 4 ;s col: cell+ count lit 85 user: ! rdrop rdrop rdrop 3 col: con: var: @ tuck 748 ?branch lit col: con: lshift 119 ;s swap user: ! user: 25 - lit min 2dup defer: 873 @ ;s does-code! ;s ;s 1430 @ um* drop rot user: 1162 ?branch var: @ @ over 7629 dup con: = ?branch drop 76 ?branch con: (+loop) dup i 7612 ?branch drop (parse-white) branch 2dup 17 lit cells + count cr 15 + ;s ;s ;s ;s 42 ;s ;s swap ! ;s 150 cell+ rot move drop r> 49 con: ! col: lit over 20570 c@ r@ <> ?branch lit 6 ! ;s ;s col: lit 4 defer: (type) ;s col: cell+ 2 unloop drop ;s ;s branch 36 char+ col: col: user: @ 1 @ ;s r> tuck - 48 execute col: col: defer: noop 2218 ?branch rdrop ;s var: ! 1 con: lit ! lit col: 18159 + r> - 1+ r> 18159 r> min user: ! ;s 1162 ?dup ;s ?branch dup @ 19 c@ ;s col: lit col: 3393 = ?branch col: col: cell+ 2 nip execute col: var: ;s 6410 col: dup 0< ;s r> 2 ?branch nip nip execute swap 4 r> col: >r ;s ;s 1106 ! branch var: col: con: 14 -rot move ;s col: var: 1 dup ?branch 2drop col: col: 1 con: col: lit or ;s 23774 col: col: col: var: @ 233 + ;s ! ;s ;s 4 var: r> ;s ;s branch 9773 c@ ;s ;s over c@ 750 user: @ lit col: col: 6594 var: @ ;s ;s col: 4 r> ;s ;s branch col: 59 ! user: ! user: col: 1368 c@ + swap lit (+loop) 4772 /mod rot + swap does: 6099 ;s dup ?branch defer: col: 75 ;s 2drop branch ;s branch 84 execute col: col: r> dup 736 ;s @ con: = swap 76 col: lit con: (do) dup 1 tuck - dup ?branch 2dup 2 dup count col: var: @ 3048 ! ;s ?branch col: col: 387 dup >r ?branch lit /string 34 c! ;s ;s ;s branch 52 execute col: dup col: dup 17757 con: col: col: user: @ 1 @ 0= ?branch con: cells 4772 ;s ;s ! ;s ;s 1898 ! ;s ;s col: defer: 1 dup >r lit col: >r 22625 dup field: @ field: @ 17 var: @ dup ?branch 2dup 4845 dup ?branch 2dup cell+ @ 119 swap col: col: var: dup 1224 xor swap c! ;s ;s 346 ;s @ execute col: lit 18 u> 0= ?branch dup col: 4169 ;s ;s dup ?branch >r 736 ;s var: ! ;s var: 2 execute 1- ;s branch col: 4175 drop branch lit (+loop) 2dup 1162 lit u> lit and col: 556 col: lit lit ! user: 1071 ;s ;s col: dup count 349 var: @ ?branch var: @ 1 execute col: var: @ dup 3047 ;s branch col: user: @ 2293 ?branch nip col: dup @ 118 col: col: con: + ;s 160 ;s ?branch var: col: con: 1343 col: defer: col: defer: col: 2 count col: var: @ col: 322 ;s var: @ ?branch var: 120 ! branch lit col: var: 4 ! ;s ;s drop col: 1897 lit pick @ ?dup 0= 1 var: 2@ nip var: 2! 1 1+ col: col: col: user: 7612 (parse-white) branch 2dup + r> 3 nip nip execute col: cr 2 execute swap ;s branch col: 9204 user: @ > ?branch fp@ 8 ?branch col: cell+ cell+ ;s 12 ;s ;s swap dup user: 1895 count lit and col: con: 7 field: @ col: col: col: 13 pick r@ pick rdrop dup 72 >r user: @ user: @ 9853 dup ?branch col: cell+ dup 13 branch ;s col: lit col: 1690 dup >r write-file ?dup ?branch 27 ;s ?branch 1- i' i 750 dup col: ;s var: ! 1875 col: cell+ cell+ ;s @ 15 ! ;s ;s r> drop 6098 branch col: sp@ user: @ 736 ?branch dup col: dup cell+ 13312 @ ;s @ ;s lit 7612 ;s @ ;s col: over 29 ;s var: @ dup col: 119 ;s @ dup 0< ?branch 387 /string col: over c@ lit 4772 + ;s swap col: con: 137 0< ?branch col: col: col: 20 nip execute col: does: col: 84 nip execute col: ;s ;s 7 ;s dup field: dup var: 7 col: col: defer: col: defer: 140 ?branch user: +! ;s con: 1 nip execute move ;s branch 131 @ col: col: defer: defer: 1216 ;s @ ;s dup user: 71 r@ user: +! user: @ 329 0= ?branch ;s ;s ;s 1008 ! ;s ;s col: col: 4 execute col: = ;s ;s 1075 @ 0= col: col: r> 1058 ! col: con: col: col: 84 nip nip execute col: ;s 1430 swap user: @ um* drop 14 swap cmove 2dup var: r@ 2 dup 0> ?branch col: col: 60 ;s @ ;s col: lit 856 ;s var: col: con: swap 1 c@ lit <> ?branch i 6 ?branch dup var: ! ?dup 794 + ;s @ var: ! 36 c! ;s col: col: col: 1162 ;s ;s col: defer: col: 13 ;s col: >r >r user: 4473 user: @ 0= ?branch user: 1 @ ;s @ ;s >r 79 ;s r@ rot col: col: 181 drop branch ;s user: @ 750 dup @ tuck - ;s 1499 - dup r> ?branch 1+ 32 col: con: <> col: col: 27 var: @ col: dup con: 483 r@ lit and ?branch 1- 1 2! ;s defer: noop var: 16 +! col: var: @ 0< 1 @ dup @ ?branch drop 9204 col: sp@ user: @ > 14 >r 2@ dup >r var: 22 ?branch var: @ ?branch col: 739 swap col: ;s ! ;s 739 cell+ ;s ! con: swap 2 execute col: lit user: ! 7 ?branch dup user: ! over 517 ;s lit col: >r defer: 48 col: col: defer: noop col: 76 lit + = ?branch con: 7 field: dup var: ! defer: 4 +! ;s does-handler! ;s branch 19 ;s ;s ;s swap ;s 79 dup @ col: var: @ 650 user: @ swap - con: 216 ! col: cell+ cell+ ;s 1 con: rshift 1+ col: tuck 122 rdrop ;s ;s con: col: 42 cell+ cell+ ;s col: lit 1452 ;s user: ! drop ;s 289 0< ?branch var: col: con: 415 ;s col: col: col: col: 1898 ;s @ ;s dup faligned 322 user: ! ;s ;s var: 9773 c@ or swap c! ;s 4041 ?branch col: user: @ ;s 9773 ;s ;s over c@ or 7612 con: col: col: defer: col: 460 ?branch ;s lit col: >r 1075 user: @ 0= col: col: 49 nip ;s user: ! ;s 1156 ;s ;s col: lit >code-address 22841 col: user: @ ;s user: 27 user: @ 0= ?branch 2drop 18 ;s defer: noop ;s col: 794 ;s @ var: ! ;s 79 @ ;s rot ! col: 97 col: col: var: @ user: 6 ;s ;s con: ! ;s 14 var: 2! 2* cells + 88 ;s >r user: @ >r 327 lit var: ! ;s ;s 368 nip nip execute col: dup 62 r> ;s 0= col: col: 381 ?branch user: +! ;s 2drop 1895 (hashkey1) ;s xor cells >r 20 - dup @ swap var: 1680 nip nip execute col: col: 1 ;s var: ! ;s drop 121 @ var: col: con: swap 15 ;s - dup ?branch drop 2169 user: @ lit max col: 6410 + swap ;s (do) con: 32 @ ;s ;s con: var: 1216 ;s dup user: ! lit 146 col: lit col: var: @ 1158 2drop ;s var: @ field: 266 dup col: col: var: @ 35 execute col: col: lit col: 120 @ ?dup ;s ?branch ;s 15 faligned nip ;s - dup 28 ;s con: = ?branch var: 1641 c! ;s (loop) unloop ;s 14 @ >r col: swap >r 1 2dup + lit swap c! 1 execute col: col: con: + 18 defer: noop ;s col: r> 736 ! ;s var: @ col: 857 ?branch @ lit r@ lit 573 branch lit (+loop) unloop 2drop 319 - col: dup negate user: 73 user: ! user: col: con: 71 ?branch r> r> user: ! 736 col: dup cell+ @ col: 9 char+ c@ ;s col: user: 15746 col: con: (hashkey1) ;s r> 2169 r> ;s rot lit over 493 nip execute col: col: user: 15 execute col: lit lit col: 1898 ;s @ ;s swap dup 18 cr col: col: r> r> 367 ;s c! ;s ;s ;s 692 ?branch col: col: user: @ 873 /does-handler + col: col: user: 7612 >r user: @ over min 32 ;s @ ;s ;s con: 1162 ;s ?branch dup @ 0< 1 +! ;s col: col: r> 169 ;s ;s dup col: col: 9773 + c@ ;s ;s over 460 +! ;s 2drop col: defer: 2 ?branch nip nip execute 1- 33 ;s @ dup ?branch dup 27 2drop con: ;s dup ?branch 650 @ swap - con: / 857 swap ! ;s ;s branch 650 swap - con: / ;s 6 branch ;s branch col: var: 1129 + ;s @ var: @ 20854 user: @ ;s +! ;s 4 ;s lit swap 1+ /string 19 var: ;s branch col: sp@ 14 var: r@ + swap cmove 226 unloop d>s ;s ;s col: 756 @ con: <> ?branch col: 1129 var: @ 1+ dup con: 1 nip execute col: drop ;s 57 ;s swap col: col: var: 117 drop ;s col: lit cells 6 branch ;s ;s ;s ;s 156 dup ?branch nip branch dup 1222 @ field: @ field: @ 6 ;s 0= ?branch ;s >body 34 = ?branch lit col: dup 5410 unloop ;s ;s ;s dup 1452 dup user: @ u>= ?branch 119 col: col: lit cells + 74 ?branch con: branch ;s lit 36 @ ;s over char+ col: 6084 lit col: col: col: user: 322 cell+ @ col: over col: 97 cell+ @ col: col: con: 120 var: ! branch lit col: 1 nip execute 2! ;s branch 11 unloop ;s ;s branch ;s 102 and col: col: r> r> 13 swap ;s col: user: @ 1162 ;s col: dup 0= lit 28 ;s code-address! ;s ;s lit 17 = ?branch drop ;s ;s 6410 i c! (loop) unloop 2drop 1 fill ;s ;s var: over 2046 lit pick + (loop) dup 2 defer: drop ;s drop col: 58 dup ?branch 2drop ;s r> 1998 >r ?branch rdrop ;s ;s 134 col: con: @ col: col: 200 col: col: defer: defer: col: 1 ?dup ?branch @ col: col: 11 ;s nip ;s col: lit 208 col: dup >r count col: 875 ;s @ con: <> ?branch 88 col: >r sp@ r> swap 1 (type) ;s var: @ dup 1218 swap ! ;s user: @ 58 >r ;s col: ?dup ?branch 7 con: lshift ;s ;s ;s 2 ;s branch ;s col: dup 18 2dup u> 0= ?branch dup 1 2drop drop con: ;s ?branch 212 con: col: lit lit ! 1162 col: dup 0= lit and 14 0= ?branch nip nip r> 117 ;s ;s ;s drop ;s 12 swap dup user: ! >r 1895 @ ?dup 0= ?branch >r 280 @ execute col: user: @ 108 nip ;s dup col: ;s 18 ;s ;s branch 2dup u> 58 2drop ;s ;s ;s lit 7 nip nip execute ! ;s 13 ?dup ?branch ;s col: ?dup 3 col: col: ;s ;s ;s 42 noop ;s ;s ;s branch 6 col: 2dup u<> ?branch drop 5376 ;s +! ;s ! ;s 1430 swap >r swap user: @ 181 ;s drop branch ;s user: 1486 ;s ;s count col: dup 50 drop r> ;s rdrop dup 14 user: @ >r col: swap 6099 ;s ;s (loop) i c@ 1054 +! ;s ! ;s ;s 32 ;s col: lit col: dup 27 ?branch 2drop user: ! col: 2 execute col: lit * ;s 12 dup user: ! >r >r 4033 dup c@ 0= ?branch col: 5004 ;s col: col: lit /mod 6 ;s con: @ col: 2dup 1 var: up! sp@ dup user: 256 ?branch nip ;s dup ?branch 8768 lit col: col: user: @ 2046 pick + (loop) dup lit 61 ;s code-address! ;s lit col: 20570 <> ?branch lit /string branch 7179 (loop) con: col: col: col: 55520 user: @ ;s @ ;s 7 swap invert and ;s dup 152 dup i - count lit 2046 (loop) dup lit pick col: 2020 ;s >r over - dup 342 swap 1- (do) con: * 1500 ;s var: count con: write-file 6 ! ;s con: @ col: 1 lit ;s (+loop) i col: 79 ;s rot ! col: col: 108 ! ;s nip ;s dup 44 ! ;s col: var: col: 13 r> user: ! col: ?dup 7 ;s branch col: var: @ 1 ! ;s rp@ user: ! 102 over - swap ! ;s 6099 (loop) i c@ col: col: 5004 swap col: con: rshift ;s 774 ;s (loop) unloop lit branch 2020 @ over min /string over 17 con: <> ?branch col: over 27 branch r> user: ! ;s 2 lit fill ;s ;s var: 2 allocate col: col: r> r> 2 nip execute create-file ;s branch 1895 >r var: lit cells lit 750 ?branch ;s user: ! ;s 15 ;s ! ;s ;s r> 15 >r >r user: @ lit 14 var: over r> + dup 1454 @ lit = ?branch toupper 1 2swap 2dup col: col: r> 62 rdrop ;s dup col: ;s 18 ;s ;s ;s branch 2dup 7612 + c! col: col: user: 1 ;s r> tuck - lit 279 ;s col: lit col: user: 44 ?branch dup col: ;s @ 1 user: @ ?branch ;s ;s 2 0= ?branch ;s swap col: 74 branch ;s lit col: col: 4772 con: - ;s con: / 7612 r> move c! ;s con: 14 cmove 2dup var: r@ + 1 count defer: (type) ;s var: 8 var: +! ;s ;s branch 63 rdrop dup col: con: con: 736 ;s ;s col: r> /does-handler 32 con: @ col: 2dup u< 2020 >r defer: col: col: user: 1 ;s over r> tuck - 88 sp@ r> swap >r fp@ 1 ;s ?branch drop con: ;s 2 execute col: lit (?do) col: 342 + swap ;s swap 1- 387 >r ?branch lit /string col: 5 ;s con: ! ;s ;s 4 var: r@ cmove var: r> 5600 con: write-file col: ?dup ?branch 1 var: over 1- con: rshift 71 r> r> user: ! r> 4348 and ?branch ;s ;s ;s 1210 @ + ;s count lit 6099 ;s (loop) i c@ col: 92 col: @ (f83find) ;s dup 7612 over min /string rot dup 1898 swap dup col: col: user: 801 >r col: lit (?do) count 17 count defer: (type) ;s defer: 14 var: @ + col: dup 5 ?branch var: @ over ! 1 col: 2swap 2dup col: col: 3 con: var: @ tuck col: 6 over col: cell+ cell+ ;s 1895 fill ;s r> ;s tuck 48 var: ! ;s col: var: 518 2dup 2>r col: col: user: 322 @ ?branch var: @ var: 739 ! con: swap col: ;s 736 ;s ! ;s con: col: 1 ;s nip 0<> ;s col: 25 max lit (?do) i' i 10 ;s 2@ 2dup con: write-file 6 col: lit col: dup lit 736 @ ;s var: ! col: 6 ;s dup col: lit over 129 1+ user: +! ;s col: 99 (loop) unloop ;s ;s ;s 15 ;s var: @ + ;s 6 con: ;s ;s branch col: 518 ;s ?branch 2rdrop branch ;s 801 ! ;s user: @ 0= 1 var: @ dup ?branch dup 6 col: col: lit col: dup 1075 col: col: user: @ 0= 1 col: var: @ dup @ 325 1- <> col: col: r> 736 ! ;s con: col: col: 2 unloop drop branch lit pick 1457 count col: user: @ lit 34 ;s 2drop ;s ;s ;s 10 var: 2@ d<> ?branch var: 1895 ?branch >r drop r@ @ 730 ;s does-code! ;s ;s ;s 305 col: ;s ! ;s col: 724 ?branch ;s ?branch drop user: 5 unloop ;s ;s col: col: 1224 @ dup 0= col: col: 79 var: @ ;s rot ! 1106 (hashfind) ;s ;s var: @ 4 and ?dup ?branch col: col: 1158 ?branch 2drop 2drop ;s var: 2169 - lit over +! @ 746 (?do) unloop ;s col: ;s 858 dup col: cell+ ;s @ 4 (type) compare 0<> ?branch 2drop 656 ;s (loop) count col: user: 2 @ dup 0< ?branch drop 1 ;s 1- con: rshift 1+ 7 nip execute ! ;s branch 1 var: ! var: @ con: 120 dup col: lit cells + 36 ;s @ ;s over char+ 2 ;s ;s over c@ lit 1603 tuck 1- and - lit 55 lit u> ?branch lit - 1499 r> ?branch 1+ user: +! 44 ;s @ con: = ?branch 119 cell+ ;s @ r> col: 40 - dup @ swap con: 1499 dup r> ?branch 1+ user: 33 ;s branch dup ?branch drop 2169 lit + col: col: col: 4169 >r >body nip r> ;s 2 nip nip execute 1- ;s 88 user: @ >r rp@ user: 1162 ;s var: @ and ?dup 9370 and ?branch r> lit and 1 con: rshift 1+ r@ write-file 322 var: @ ;s var: cell+ 748 0> ?branch lit col: con: 42 ;s var: ! ;s ;s 44 ;s 0> ?branch dup col: 750 @ ;s user: @ min 6 var: over cell+ ! dup 88 r> swap >r fp@ >r 27 ;s dup ?branch dup r> 20 ! ;s over r@ u>= 58 rdrop rdrop lit ;s col: 257 ! drop ;s ;s branch 483 and ?branch 1- r> lit 2 col: lit (?do) col: dup 3 = ?branch con: ;s ?branch 322 @ ;s var: cell+ ! 14 ;s nip ?branch var: 2@ 3048 user: ! ;s ?branch col: 3 ?branch ! ;s ;s branch 8996 0= ?branch lit r@ lit 7 execute col: col: defer: col: 1652 ! ;s ;s ;s 2drop 7 lshift ;s lit col: con: 1 >r var: @ lit (?do) 736 ;s tuck swap ! col: 1486 var: @ ;s var: ! 1503 c@ r@ <> ?branch rdrop 10 0< ?branch ;s ;s ;s 5213 c! ;s (loop) con: col: 13 rdrop ;s ;s ;s r> 325 - con: / ;s col: 12 ! ;s r> r> user: 60 ?branch ;s ;s col: lit 2 lit (?do) dup lit pick 573 lit (+loop) unloop 2drop con: 7612 ;s @ ;s count + 9853 >r col: count lit and 102 col: dup col: dup con: 1 col: col: con: 0= ?branch 52 ;s branch ;s branch ;s 789 ?branch drop ! ;s var: 28 con: = ?branch var: @ 5 0= ?branch ;s >body user: 3 lit = ?branch con: ;s 208 count col: col: user: @ 17 con: lshift ;s ;s branch 1106 branch var: col: con: swap 148 0= ?branch ;s col: var: 14 con: open-file 0= ?branch nip 18 unloop d>s ;s ;s swap 2020 rdrop ;s >r over - 7 ;s dup col: col: col: 3 d>s ;s ;s ;s ;s 2 ?branch nip nip execute lshift 20 unloop ;s ;s ;s ;s 58 ?branch 2drop ;s r> user: 17 con: = ?branch drop ;s 27 ?branch r> swap ;s dup 119 @ ?branch user: @ col: 1603 col: con: tuck 1- and 1 ;s ?dup ?branch r> user: 1236 ! ;s ;s lit col: 4041 user: @ ;s con: user: 7 >r rot r@ col: 1- 1162 and ;s var: @ col: 1898 dup col: col: user: @ 1 col: var: 2@ lit (?do) 1 user: ! execute col: user: 2 1+ /string ;s ;s over 1 2dup 1- + c@ lit 29 @ var: @ + col: 131 +! ;s ! ;s col: 8768 @ ;s +! ;s c! 5341 ;s ;s dup ?branch drop 736 con: = swap col: cell+ 160 dup ;s col: col: col: 736 var: ! ;s var: @ 45 @ ;s ;s ;s branch 7612 c! col: col: user: @ 1 c! ;s branch col: sp@ 119 ?branch col: col: col: var: 12 ;s r> r> user: ! 53 dup lit u<= ?branch dup 2456 cells + ;s ! ;s 20570 ?branch lit /string branch dup 3 >body user: @ ?branch ! 15 ;s ;s var: @ + 750 ;s col: var: @ ;s 1 - dup ?branch 2dup 1- 7612 count + c! col: col: 13 ;s rdrop ;s col: r> 212 code-address! ;s con: col: lit 4828 = ?branch @ dup ?branch 7 ;s >r rot r@ col: 268 col: dup 0= col: col: 27 ;s dup ?branch 2drop user: 119 var: @ ;s col: over 630 ?branch lit var: ! lit 11906 @ + ;s c! ;s 206 nip nip execute does: @ 29 nip ;s col: user: @ 1430 col: swap >r swap user: 1713 branch ;s user: @ 0= 1610 c! ;s ;s (loop) unloop 387 2drop rdrop r> ?branch r> 1162 defer: col: col: col: col: 1 rshift 1+ r@ write-file col: 750 ! ;s user: @ lit 1525 ;s branch @ dup ?branch 322 ;s var: cell+ ! col: 1690 >r write-file ?dup ?branch var: 119 user: @ col: var: col: 6 ;s @ ;s col: con: 1501 ! ;s lit col: col: 156 nip branch dup @ dup 14 >r col: swap >r dup 1 move ;s branch col: sp@ 3325 ;s ;s ;s ;s col: 1 over 1- con: rshift 1+ 131 ;s ! ;s col: r> 2 ! col: defer: col: defer: 1895 lit cells lit col: lit 19 char+ c@ ;s col: lit 1 ;s >body @ col: col: 13 ;s ;s r> r> rot 4769 ;s +! ;s col: dup 9853 + faligned ;s r@ lit 322 ! ;s ;s var: ! 724 user: ! col: user: @ 14 ?dup ?branch ;s ;s ;s 687 ;s ;s ;s branch ;s 990 (loop) unloop ;s ;s lit 1 1- con: rshift 1+ r@ 1603 1- and - lit and 102 <> swap con: <> and 4 ;s /does-handler col: col: user: 17 over var: @ dup ?branch 1 1- ;s ;s branch col: 1 execute col: con: + ;s 739 con: <> ?branch col: >r 18159 ;s user: @ ;s 2dup 1 nip nip execute c! ;s 29 ?branch ;s ;s branch col: 1 ;s cr col: col: r> 181 dup ?branch rdrop branch ;s 13 user: @ close-file swap 2dup 56 @ (f83find) ;s ;s var: 272 col: defer: noop col: col: 552 execute col: user: @ ?branch 2 dup defer: col: cell+ dup 6 ?branch over col: lit over 119 ;s ! ;s lit var: 4 ;s ;s col: lit var: 20570 lit /string branch dup ?branch 735 branch @ dup ?branch dup 736 @ con: = swap col: 97 @ ?branch cell+ @ col: 63 var: ! ;s ;s ;s 79 ! col: col: col: var: 9342 dup count + aligned >r 103 ;s ;s var: @ @ 11 ?branch col: col: r> dup 789 + var: @ ?branch col: 2048 ! ;s lit pick + 13360 2dup i 2@ over <> 774 r> ;s (loop) unloop lit 1427 u>= ?branch con: ;s ?branch 2 ?branch ;s swap col: cell+ 7 ;s code-address! ;s ;s ;s 12 execute col: lit lit ! 6 - swap ! ;s con: 1633 col: >r dup ?branch over 1162 ;s ;s var: @ and 1 ?branch ;s r> close-file col: 2 lit col: ;s ;s ;s 62 >r ?branch rdrop ;s col: 25 u>= ?branch drop con: ;s 852 ;s (?do) i c@ col: 739 drop r> ;s over col: 15746 xor cells var: @ + 20 @ dup var: <= ?branch 9642 ;s @ ;s lit col: 42 cell+ ;s col: lit user: 4 r> var: ! ;s ;s 1895 cell+ ! r> var: @ 4772 @ + ;s swap col: 3825 ?dup ?branch 0> ?branch nip 631 ! var: @ ?branch col: 5897 user: @ con: col: col: 1 i 1+ col: cells var: 178 ;s col: var: @ col: 402 ;s col: var: col: con: 1210 ;s count lit and con: 109 ;s ;s ;s swap user: 1895 + dup @ 0< ?branch 25 does: swap lit max lit 5907 cells over + (do) 2dup 13 rdrop ;s col: r> dup 7612 con: = ?branch drop (parse-white) 6 u<> ?branch drop ;s dup 7 ;s ! ;s >r rot 121 ;s col: con: + ;s 648 @ col: col: col: col: 12 ! col: col: col: user: 2 ?branch drop con: col: col: 3314 col: col: cell+ ;s @ 1 / ;s var: 2! col: 1898 ;s c! ;s col: col: 103 ;s var: @ @ dup 14 r> rdrop lit branch unloop 17 drop ;s drop swap cell+ 12 >r >r col: user: @ 15746 col: lit + @ >r 72 @ user: ! user: @ 639 r> dup cell+ >r @ 1 nip 0<> ;s 0= col: 71 @ = ?branch r@ user: 4033 ?branch col: col: dup count 8 col: var: +! ;s ;s 6 cell+ ! dup @ dup 1 ;s var: swap ;s 2dup 739 con: swap col: ;s ! 1218 ! ;s user: @ con: 5 2drop ;s ;s ;s col: 22 u> 0= ?branch var: ! 4169 ?branch >r >body nip r> 20 dup r> - ?branch 2drop 6 ?branch 2drop r> var: ! 1693 col: ?dup ?branch ;s col: 272 ;s col: lit lit ! 62 ;s dup col: ;s @ 6 ! ;s ;s ;s over 61 ! ;s code-address! ;s lit 1162 ! ;s col: dup 0= 27 ?branch 2drop rdrop user: col: 120 ?branch dup col: lit cells 3 ?branch nip nip execute >body 3132 ?branch ;s ;s dup ?branch 15 var: @ + col: col: 1210 count lit and con: write-file 6 ?branch lit @ var: ! 6 ;s var: @ lit ! 15746 >r 2dup col: con: (hashkey1) 1 ;s var: 2! var: up! 7648 rot over 1+ r> move 1162 ;s var: @ field: @ 4041 ! lit user: ! ;s 37 ;s lit col: 1+ con: 1 nip execute col: 0= ?branch 1 ! fp@ user: ! col: 1 ;s >r var: lit r@ 736 @ col: dup col: ;s 3 invert over c@ and swap 1212 ?branch ;s var: @ col: 1 nip 0<> ;s col: 0= 1895 0= ?branch >r drop r@ 14 ! ;s ;s var: @ 13 ?branch ;s ;s col: drop 3047 dup ?branch 2drop ;s branch 96 ?branch col: col: col: user: 1 var: ! ;s drop ;s 789 ?branch 2dup swap col: lit 6 var: @ over ! lit 20 tuck ! cell+ var: ! 20 dup lit >= col: col: 3669 + aligned ;s con: - 119 @ col: var: col: con: 873 r> /does-handler + col: col: 13 con: - swap lit col: 1162 ?branch dup @ 0< ?branch 172 ;s code-address! ;s ;s col: 4 /does-handler col: col: user: @ 8 nip execute col: lit var: 2169 col: user: @ lit max 3610 user: @ ?dup ;s ?branch 801 c@ lit - dup lit 18 0= ?branch dup col: col: 6 @ >r var: col: con: 1 defer: (type) ;s 2dup defer: 158 c! ;s ;s (loop) col: 980 2drop col: user: @ ?branch 22 ;s ;s ;s con: - 1690 write-file ;s col: ?dup ?branch 5102 dup count lit col: col: 2873 ;s dup ?branch 0> ?branch 4473 @ 0= ?branch user: @ 4 ;s +! ;s does-handler! ;s 1486 ;s count col: dup col: 1430 >r swap user: @ um* 477 execute col: lit col: >r 750 con: - dup ! ;s 1603 con: tuck 1- and - 4 ?branch 2drop col: lit does: 774 lit branch ;s dup ?branch 1 2! col: var: 2@ 2* 15 ;s ;s branch ;s col: 961 dup col: ;s @ con: 1 swap ;s 2dup col: var: 14 swap ! ;s lit col: 1 1+ /string ;s var: 2! 781 ;s ;s ;s col: col: 7 lit = ?branch 2drop rdrop 801 >r user: col: con: swap 28 = ?branch var: @ ?branch 15746 r> xor cells var: @ 3043 user: col: con: swap ! 6 ;s over col: cell+ cell+ 1895 @ 0< ?branch @ over 1110 ;s ! ;s does: col: 736 col: cell+ ;s @ lit 325 con: / ;s col: user: 11 lit user: ! ;s ;s 13 ;s ;s ;s swap con: 7615 user: ! ;s col: col: 29 ;s col: user: @ swap 14 dup >r var: swap cmove 9204 sp@ user: @ > ?branch 44 ;s col: con: @ col: 7612 ;s count + c! col: 1 @ ;s r@ write-file col: 17 ;s defer: (type) lit does: 325 rdrop ;s ;s col: sp@ 13 lit col: >r >r lit 10145 ;s @ ;s con: col: 1 ;s drop ;s ;s ;s 10 ?branch ;s var: 2! col: 10 var: count con: col: dup 750 2@ var: 2@ d<> ?branch 3047 ?branch 2drop ;s branch col: 1 ?branch drop var: @ ?branch 17 cell+ @ = ?branch lit 120 var: @ ?branch dup col: 1205 ;s c@ ;s xor r> 1166 @ ?dup ;s ?branch var: 1457 col: user: @ lit = 5213 ;s c! ;s (loop) con: 9204 min user: ! ;s dup 9204 > ?branch ;s defer: col: 1 ?branch ;s >r var: lit 6 ;s lit cells - var: 14 col: col: 2dup lit col: 1 drop var: 2@ nip var: 556 lit lit ! user: col: 801 swap ! ;s over c@ 460 @ lit col: >r defer: 120 branch lit col: var: @ 59 user: ! user: ! user: 9370 ?branch r> lit and ?branch 1 2@ 2* cells col: swap 3 2drop ;s ;s col: con: 460 +! ;s con: write-file col: 2048 col: dup @ lit pick 1 swap 1+ /string ;s var: 1 sp@ dup user: ! lit 2 ;s ;s col: lit cells 6 @ dup ?branch 2drop r> 980 ;s branch user: @ con: 1106 ! branch ;s col: user: 419 ! ;s ;s ;s branch 79 ;s dup @ col: var: 1205 >r col: col: var: @ 750 var: ! user: @ col: 5907 @ execute col: drop con: 3 + c@ ;s ;s invert 1305 >r ?branch rdrop ;s branch 6 +! var: @ con: >= 5907 drop con: ?branch lit col: 1 cells col: col: user: @ 41 rdrop ;s ;s ;s lit 750 unloop ;s col: ;s var: 6 lit ! var: var: ! 36 ;s over char+ col: col: 1026 swap lit (+loop) con: * 3278 2drop lit (+loop) 2dup i 460 2drop col: defer: col: col: 521 - dup r> ?branch user: 2 col: dup count col: var: 115 ;s ;s ;s ;s swap 22 drop ;s lit col: dup 10 ;s ;s defer: col: col: 32 ;s con: var: col: con: 460 @ 0<> and ?branch col: 692 @ ?branch col: col: user: 736 swap ! col: con: col: 3 nip execute >body ;s branch 74 var: @ ?branch con: branch 20 @ dup lit >= col: 13 ;s ;s col: >r >r 187 over - swap col: col: 18 con: ;s ?branch col: col: 2 var: ! ;s branch @ 4379 col: var: dup @ cells 1 execute col: con: col: >r 342 lit r> con: col: over 13 over 0= col: col: col: 760 user: @ 2* cells + 750 ;s user: @ min con: 1 0= ?branch con: cells allocate 24 ;s count defer: (type) ;s 85 ! rdrop rdrop rdrop lit 7 @ execute col: col: con: 27 ;s user: ! ;s col: 60 ;s ?branch var: @ field: 13 col: drop >r drop col: 1 user: +! lit ;s (+loop) 1 count defer: (type) ;s 2dup 3699 ?branch user: @ con: col: 119 ! ;s ;s dup col: 12 cell+ cell+ ;s ! col: 78 rdrop ;s ;s ;s col: 9204 ?branch ;s defer: col: defer: 1430 @ um* d+ r> ;s 76 0= ?branch drop lit col: 4 >r var: r@ cmove var: 1 (type) con: col: lit or 460 ;s user: @ /string con: 14 swap 2dup 1+ var: 2! 272 defer: noop col: col: col: 7750 col: con: swap ! ;s 19 swap ;s branch ;s user: 1603 ;s c! ;s ;s col: 160 nip r> ;s ?branch var: 2 @ ;s +! ;s ;s 1452 ?branch dup user: @ u>= 9853 and + faligned ;s r@ 14 lit (?do) dup >r 2@ 1162 r> col: dup field: @ 1368 um* rot + swap i 79 ;s ?branch ;s ;s ;s 35 nip nip execute con: ;s 4 dup ;s ;s branch col: 27 ?branch dup r> - ?branch 7 ?branch nip nip execute 2drop 76 = ?branch i - con: 4 var: ! defer: col: cell+ 4 user: @ ?branch defer: noop 628 lit col: col: col: var: 739 col: cell+ ;s ! con: 4379 dup @ cells + ;s 768 var: @ col: col: col: 37 ;s ;s lit col: 1+ 4987 ;s col: var: @ swap 16 col: col: col: con: <> 1430 ?branch con: ;s ?branch col: 1 ;s col: 2swap 2dup col: 14 move ;s col: var: 2@ 57 >r ;s count ;s col: 44 swap c! ;s ;s var: 16 c! ;s ;s branch col: 1 nip nip execute col: 0= 1129 dup con: > col: col: 5 execute @ ;s branch col: 360 @ >r user: @ >r 1 <> ?branch 2dup + lit 4772 dup col: col: con: dup 2421 col: ?dup ?branch ;s ;s 27 swap ;s dup ?branch 2drop 1 cells allocate col: ?dup ?branch 1 ! col: lit lit col: 2 ;s lit lit col: >r 22 @ ?branch col: col: col: 9853 col: count lit and + 1898 c! ;s col: col: user: 4 ;s col: lit does: swap 1168 dup @ 0< ?branch var: 460 /string con: col: dup >r 1008 ! ;s col: col: var: 74 - swap ! ;s drop 1 lit swap c! 1+ col: 774 user: @ dup 0> 0= 1166 cell+ count lit and ;s 7 - ?branch dup user: ! 3 nip nip execute + ;s 1162 2dup r> col: dup field: 964 ;s ;s swap user: ! 55 - dup lit u<= ?branch 1129 rdrop ;s var: ! col: 5 nip execute @ ;s branch 42 ;s 0> ?branch col: dup 22 ;s ;s var: @ 2dup 6 0= ?branch var: col: con: 1430 um* d+ r> ;s (loop) 2020 over min /string over swap 150 r@ col: dup 1+ pick 7612 >r >r user: @ over 1162 unloop ;s ;s lit col: 49 col: dup con: ! col: 322 @ var: cell+ @ col: 2 ?branch nip nip execute create-file 2048 lit pick ! ! ;s 100 r> ;s r@ col: dup 17 col: over var: @ dup 119 ;s >r dup col: col: 12 ;s rot swap col: cell+ 29 col: ?dup ?branch ;s swap 27 con: ;s ?branch 1- i' 119 branch dup col: ;s var: 2 ?branch rdrop ;s dup rot 4041 ?dup ?branch ;s branch lit 325 ! ;s var: @ ?branch 1808 col: var: @ ;s var: 1648 negate ;s ;s dup ?branch 13 ?branch col: var: @ dup 2 ?branch ;s nip 0<> ;s 4845 ?branch 2dup cell+ @ = 208 ?dup ?branch col: dup >r 760 drop user: @ 2* cells 13 2dup or col: dup ?branch 2 (loop) unloop drop branch lit 325 con: / ;s ?dup ?branch 119 col: col: var: @ var: 3 + ;s branch col: sp@ 152 over lit + = ?branch 32 ;s ;s con: var: col: 4772 / col: col: lit /mod 980 user: ! ;s 0= col: 10 ?branch var: count con: col: 1 execute 2! ;s branch col: 13 lit ;s r> user: ! 5 var: @ ?branch col: con: 6 var: @ ?branch over col: 272 noop col: col: col: r> 1 ;s lit cells col: col: 1 branch dup ?branch 2drop col: 125 @ ?branch col: r> dup 49 ! col: lit over 0<> 2 lit u<= ?branch drop con: 47 @ var: ! ;s col: 53 lit u<= ?branch dup user: 750 ?branch ;s user: @ col: 10 ;s var: 2! col: col: 1895 over cell+ count lit and 13 0= ?branch ;s ;s col: 117 ;s drop ;s col: lit 35 dup aligned swap (?do) con: 852 (?do) i c@ col: col: 76 + = ?branch con: (+loop) 1895 col: lit pick @ ?dup 1430 user: @ um* d+ r> 1767 var: ! ;s ;s col: 19 lit col: >r dup ?branch 2 dup lit u<= ?branch drop 20 cell+ ;s @ ;s col: 86 con: = ?branch con: <> 29 var: @ var: @ + 160 >body nip r> ;s ?branch 5334 ?branch nip nip unloop ;s 3 c@ ;s ;s invert over 79 col: cell+ ;s dup @ 6410 ;s (do) con: col: >r 3 ! ;s col: col: 2dup 1 var: 2! ;s defer: noop 131 ;s does-code! ;s ;s swap 13 drop col: var: @ dup 102 ;s @ ;s over - 1895 ! r@ swap col: lit 5907 ?branch lit col: drop var: 32 @ ;s - col: col: 1 ;s compare 0= r> or 1 ?branch r> user: +! lit 7612 branch 2dup + r> - 426 r> user: ! r> user: 7612 rot dup con: = ?branch 216 @ execute col: col: var: 7 branch col: var: @ dup 1 defer: drop ;s ;s branch 13 ;s ?branch ;s r> user: 15746 2dup col: con: (hashkey1) ;s 764 drop ;s user: col: con: 3 + @ col: lit lit 1 ;s (?do) unloop ;s col: 79 dup ?branch dup col: col: 79 cell+ ;s dup @ col: 7 nip execute 2drop ;s branch 4 (loop) unloop ;s ;s col: 1162 user: ! ;s col: dup 736 cell+ ;s @ lit <> 17 defer: (type) ;s defer: (type) 1 nip execute col: 1- ;s 1042 ;s 0= col: col: r> 1162 ;s var: @ col: >r 208 ?branch ;s ?dup ?branch col: 1 execute move ;s branch col: 134 con: @ col: col: user: 28 var: @ ?branch con: ;s 1503 r@ <> ?branch rdrop ;s 226 d>s ;s ;s col: col: 2169 < ?branch lit + col: 1 dup ?branch 2dup 1- + 14 (?do) dup >r 2@ dup 1895 0< ?branch @ over cell+ 3278 over <> ?branch drop 2drop 14 ?branch nip nip r> rdrop 216 var: ! col: cell+ cell+ 1 var: ! var: ! col: 15 @ + col: col: var: 736 swap user: ! col: col: 5013 ;s dup c@ 0= ?branch 4 rdrop ;s lit swap 1+ 31 execute col: lit col: dup 60 cell+ ;s ! ;s lit 4772 con: / col: col: lit 1530 ;s ;s dup ?branch ;s 736 @ lit <> and ;s 208 >r count col: col: user: 2 nip nip execute swap ;s 3106 col: col: sp@ user: @ 15 ?branch faligned nip ;s - 1162 ! var: @ ! branch 1 ?branch user: @ user: ! 1 ;s (+loop) i col: cells 22 2dup u> 0= ?branch var: 19230 c! (loop) con: col: >r 426 user: ! r> user: ! 1 con: + ;s ;s ;s 7 execute col: col: con: lshift 521 dup ?branch rdrop ;s >r 42 0> ?branch col: dup @ 10 d<> ?branch var: count con: 750 @ var: @ 0<> and 142 >r ?branch rdrop ;s 0> 1 ;s 2dup defer: (type) con: 1895 @ + var: @ ?branch 483 1- r> lit and ?branch 1 + swap ;s (?do) unloop 12 ;s nip ;s swap user: 1210 @ col: var: @ + 1690 var: count r> write-file ;s 756 and ;s lit (?do) con: 150 sp@ cell+ dup cell+ rot 774 ?branch user: @ dup 0> 17 drop swap cell+ ! branch 1895 dup @ 0< ?branch @ 1162 ?branch col: cell+ count lit 1162 var: @ @ over ! 27 i - unloop ;s dup 1 ;s 2! ;s branch dup 1898 dup col: col: col: user: 9 ?branch rdrop ;s ;s user: 28 code-address! ;s ;s lit col: 158 (loop) col: dup ;s col: 44 rdrop ;s 0> ?branch dup 20 r> - ?branch 2drop rdrop 121 col: con: + ;s col: 1 con: ! ;s branch col: 1532 ;s branch ;s user: @ 573 unloop 2drop con: ;s ;s 32 = ;s 0= ?branch ;s 1430 con: ;s ?branch col: swap 880 @ execute col: @ (f83find) 290 0<> and ?branch var: col: 16 var: +! col: var: @ 2 (?do) dup lit pick col: 774 (loop) unloop lit branch ;s 518 drop 2dup 2>r col: col: 7 col: col: con: lshift ;s 406 >r dup ?branch rdrop ;s 750 @ 0<> ?branch col: col: 1 ;s var: over col: tuck 1895 ! r> var: @ + 119 col: con: + ;s ;s 5004 swap col: var: + c@ 2 nip execute swap ;s branch 2019 lit col: >r defer: col: 1 rdrop ;s over r> tuck 62 ?branch rdrop ;s dup col: 1500 aligned ;s con: - dup 750 @ col: lit user: ! 20 ?branch rdrop ;s tuck ! 6 2dup u<> ?branch drop ;s 93 over 0<> ?branch faligned nip 103 unloop ;s ;s ;s branch 118 con: + ;s col: con: 736 @ ;s tuck swap ! 41 col: col: col: var: dup 1327 does: col: var: dup @ 20 var: @ dup var: <= 150 cell+ dup cell+ rot move 801 ;s over c@ lit = 3 ;s ;s invert over c@ 1216 dup user: ! lit col: 27 col: var: @ ?branch var: 20440 branch dup ?branch over c@ 7747 @ ;s @ ;s ;s 631 var: @ ?branch col: var: 27809 swap >r um/mod r> ;s 331 swap ! ;s var: @ 4 ;s ;s drop col: r> 13 rdrop ;s ;s ;s swap 6 @ ?branch over col: lit 9370 r@ lit and ?branch r> 1162 defer: defer: col: col: col: 34 con: = ?branch lit col: 119 <> ?branch dup col: cell+ 6011 ;s ;s con: col: var: 216 noop ;s ;s branch col: 4033 c@ 0= ?branch col: col: 3278 <> ?branch drop 2drop lit 801 lit = dup >r ?branch 152 and + faligned over lit 1 ;s var: @ over ! 14 r@ + swap cmove var: 1430 drop rot user: @ um* 7 dup r> - ?branch dup 750 ;s col: var: @ 0<> 736 <> and ;s ?branch drop 108 ;s nip ;s dup col: 1748 cell+ cell+ ;s @ execute 1 over col: tuck allocate col: 739 ?branch col: >r dup col: 6 drop col: r> /does-handler + 32 u< ?branch = ;s 0= 279 drop ;s ;s branch col: 446 ! ;s lit var: ! 28 ;s 0> ?branch col: user: 4 ?dup ?branch col: col: r> 7612 = ?branch drop (parse-white) branch 37 dup lit u< ?branch cells 14 + 2! ;s var: 2@ 134 @ col: col: user: @ 523 ;s ;s dup col: ;s 1895 r> ;s tuck cell+ ! 1 ;s 0= col: 0= ?branch 1 col: var: 2@ col: col: 128 ?branch col: r> dup cell+ 22 swap ! ;s col: dup 25 lit max lit (?do) i' 9853 ;s dup ?branch col: cell+ 18 noop ;s col: r> dup 20 ;s tuck ! cell+ tuck 1 c@ lit <> ?branch col: 6099 ! ;s dup ?branch defer: 1 nip execute col: con: + 920 count ;s con: write-file col: 119 ;s branch dup col: ;s 5334 dup ?branch nip nip unloop 20 swap var: ! ;s over 3 execute col: cr ;s ;s 12 ;s @ execute col: ;s 325 ?branch 1- <> col: col: 1960 col: ?dup ?branch ;s user: 2521 and ?branch ;s ;s dup 1 0<> ;s col: 0= ?branch 10082 2@ over <> ?branch col: 10547 @ /string (parse-white) 2dup + 1257 col: var: col: con: swap 97 @ col: col: con: + 12 ;s swap dup user: ! 5102 count lit col: col: dup 1 ?branch nip nip execute 2! 3 @ + @ col: lit 75 ?branch 0> ?branch col: user: 5013 ;s ;s dup c@ 0= 119 @ con: <> ?branch dup 76 - unloop ;s ;s ;s 1252 ;s user: col: con: swap 62 rdrop ;s col: cell+ ;s 1089 col: var: @ 1- dup 2 ?branch 2dup * allocate col: 1454 = ?branch toupper lit - 4 con: min >r var: r@ 2 ;s over c@ lit <> 1 lit <> ?branch col: col: 6 nip nip execute drop ;s 1 compare 0= >r 2dup col: 1162 col: defer: defer: col: col: 764 lit u< ?branch drop ;s 26 user: +! ;s col: col: 50 * 1- >r r@ col: 2199 swap >r ;s count ;s 1 @ ;s 1- con: rshift 64 >r ?branch rdrop ;s dup 5897 @ con: col: col: defer: 1089 @ 1- dup 0= col: 15 ;s swap 2dup r> -rot 15746 + @ (hashfind) ;s ;s 1 @ con: cells col: lit 319 +! lit over = ?branch 1 up! sp@ dup user: ! 1222 var: @ field: @ field: 9642 @ ;s lit col: col: 736 ;s ?branch drop ;s branch 27 ! ;s branch r> user: 319 lit over = ?branch branch 460 col: ?dup ?branch ;s defer: 441 col: col: col: col: col: 1472 ;s var: ! col: col: 5907 1- cells over + (do) 3 ;s var: @ ?branch ;s 2020 over swap r> col: >r 14 0<> lit and col: ?dup 4 lit swap 1+ /string ;s 17 execute col: con: lshift ;s 15 @ lit pick col: lit 736 dup ?branch dup col: dup 7 ! ;s branch col: sp@ 14 ;s var: 2@ nip 1- 14 1+ var: 2! 2* cells 342 ;s swap 1- (do) con: 10 2dup con: write-file col: ?dup 7605 col: over + swap ;s 1671 0> ?branch col: col: col: 992 @ ?branch defer: col: col: 1293 ;s col: defer: col: defer: 10 ?branch ;s ;s defer: col: 595 dup ?branch ;s ;s dup 325 branch lit col: dup @ 4 unloop drop ;s ;s ;s 13 r> rot col: con: <> 7612 /string rot dup con: = 12 execute col: user: @ col: 5 @ ?branch col: con: @ 13 ;s r> r> rot col: 2984 lit and ?branch negate ;s 2020 ;s user: @ over min 1 move ;s drop var: 2@ 779 col: var: @ var: @ 1 rshift 1+ col: tuck allocate 12 cell+ ;s ! col: col: 1162 lit and ;s var: @ 6752 con: col: over + swap 801 col: user: @ >r user: 1 var: @ ;s r@ write-file 19 ;s swap ;s branch ;s 740 2@ d<> ?branch ;s defer: 10 var: 2! col: col: r> 789 var: @ ?branch col: dup 2 execute lshift ;s branch col: 13360 i 2@ over <> ?branch 2 ?branch nip nip execute over 2984 r> lit and ?branch negate 1898 ;s +! ;s move ;s 27809 lit r@ um/mod r> swap 50 swap ! ;s col: var: 3669 @ ;s lit + aligned 853 ;s ;s col: over + 853 c! ;s ;s col: over 736 @ ;s @ ;s tuck 6 @ 0< ?branch lit @ 1224 user: @ dup 0= col: 315 2drop ;s branch ;s user: 13 ;s drop con: ;s ;s 62 >body nip r> ;s 0= 1115 ?branch rdrop ;s ;s col: 88 >r col: laddr# ;s >r 6056 ;s col: dup col: col: 1224 rdrop ;s cell+ tuck c@ 736 ?branch drop ;s branch @ 244 col: lit col: dup @ 119 swap user: ! user: @ 6 nip execute drop ;s branch 289 col: dup 0< ?branch var: 19230 i c! (loop) con: col: 1897 pick @ ?dup 0= ?branch 280 drop ;s branch ;s user: 750 user: @ col: lit user: 1 0= col: 0= ?branch ;s 739 r> ;s over col: cell+ 933 dup ?branch ;s dup ?branch 71 col: dup ?branch r> r> 1499 <> ?branch rdrop ;s >r 17 (type) ;s defer: (type) lit 76 (+loop) dup i - count 20 dup @ swap var: ! 2020 col: >r defer: col: col: 801 ! ;s lit lit 2swap 2 execute col: does: @ execute 1495 ;s @ ;s ;s count 1106 ?branch var: @ col: lit 1205 xor r> col: col: var: 1 ?branch con: cells allocate col: 8996 ?branch lit r@ lit and 2889 ;s dup ?branch lit and 1 1+ col: cells var: @ 4772 con: dup @ + ;s 1671 ;s col: col: r> r> 736 @ ;s @ ;s var: 226 execute col: defer: defer: col: 1 2dup col: var: 2@ lit 1 var: @ lit (?do) i 122 >body nip r> ;s dup 76 con: (do) dup i - 6410 0< ;s r> con: col: 736 col: var: ! ;s ;s 44 c! ;s ;s var: col: 29 ?branch faligned nip ;s col: 6 drop con: ;s ;s branch 11011 ;s ;s lit col: var: 44 @ ?branch col: lit col: 6 defer: col: cell+ dup @ 1162 @ ;s user: ! lit 1 execute col: 1- ;s ;s 97 var: @ user: @ ?branch 6 0< ?branch var: @ >r 18159 ;s 2dup >r >r user: 1 1+ r@ write-file col: ?dup 5907 col: drop con: ?branch lit 1 con: cells col: lit fill 322 execute col: col: col: col: 68 ;s drop branch ;s ;s 1163 unloop ;s col: col: user: 307 drop ;s ;s col: r> 6 ;s col: var: @ 0= 1 @ ;s ;s col: over 12 nip ;s swap user: ! 23 ! ;s ;s col: dup 4 unloop drop ;s ;s col: 1158 ?dup ?branch 2drop 2drop ;s 2 drop branch lit pick @ 1 col: var: @ ;s 1- 750 ?branch col: col: var: 2@ 21 ;s ! ;s ;s var: 102 con: <> swap con: <> 46 ;s branch ;s ;s branch 1 + c@ lit <> ?branch 208 @ execute does: dup var: 16 ;s c! ;s ;s branch 1 @ >r var: @ lit 342 ;s col: >r lit lit 1500 ?dup ?branch ;s var: count 739 dup ?branch drop r> ;s 2 ?branch ;s over lit (?do) 1 lit (?do) i col: cells 14 1+ 2* cells resize col: 1 1- con: rshift 1+ col: 992 user: @ ?branch defer: col: 1 r> -rot move ;s drop 17 ?branch ;s col: var: col: 13 >r drop col: var: @ 1205 ;s xor r> col: col: 630 lit var: ! lit col: 22 nip nip execute col: does: 19 nip nip execute var: ;s 4 ;s @ ;s /does-handler col: 208 dup ?branch ;s ?dup ?branch 15 +! ;s user: @ ?branch 15 >r dup allocate col: ?dup 1 con: ;s 0= ?branch col: 750 @ ;s ;s var: ! 119 var: @ var: col: con: 60 ! branch ;s ;s col: 4041 user: +! swap user: ! 7648 over >r rot over 1+ 2 dup 0< ?branch drop con: 27 dup ?branch 2drop user: ! 706 ;s @ dup ?branch drop 4041 @ ?dup ?branch read-line col: 750 con: - dup @ tuck 3 var: @ + @ col: 14 2@ tuck 1+ 2* cells 1 count defer: (type) ;s cr 60 ;s lit col: lit lit 443 <> col: col: r> r> 14 >r var: swap cmove 2dup 58 swap ! ;s lit user: 4872 +! ;s col: dup col: 1 - lit cells / ;s 119 r> col: cell+ cell+ ;s 15746 (hashkey1) ;s r> xor cells 67 execute col: var: col: con: 232 ! ;s col: var: @ 4 ;s user: @ ?branch con: 9342 + aligned >r swap >r 9 nip execute col: user: col: 57 @ ;s ;s over col: 58 ;s lit user: ! lit 5004 con: rshift ;s col: col: 736 ;s col: defer: defer: col: 27 dup ?branch dup r> - 24 col: con: lshift ;s ;s 6410 >r col: dup 0< ;s 20 dup var: <= ?branch con: 1162 ;s ?branch col: cell+ count 736 and ;s ?branch drop ;s 1162 @ ;s @ ;s user: 119 @ dup col: ;s @ 33 ;s 0= ?branch ;s ;s 639 dup cell+ >r @ col: 289 dup 0< ?branch var: col: 13 swap ! ;s ;s drop 414 >r ?branch col: over c@ 27809 >r um/mod r> ;s rot 142 ?branch rdrop ;s 0> ?branch 4 <> ?branch rdrop ;s lit 1641 swap (?do) con: col: col: 17 + count cr col: col: 7 and ;s ;s ;s ;s 1 nip execute field: ;s branch 4318 @ ;s @ ;s dup 1690 r> write-file ;s col: ?dup 249 lit cells + ;s @ 2 ! ;s branch @ dup 1210 and con: write-file col: ?dup 337 ;s ;s col: r> dup 3 nip nip execute >body ;s 4 ?branch rdrop ;s lit swap 1 (+loop) i col: cells var: 5 execute col: con: swap ! 1652 ;s ;s ;s ;s branch 1 1+ var: @ = ?branch 1 lit or ;s create-file col: 2 (loop) unloop drop ;s ;s 13 rdrop rdrop lit ;s r> 1895 cell+ count lit and col: 13 swap lit col: 1+ con: 12 ;s ! col: col: col: 774 @ dup 0> 0= ?branch 7 + swap r> col: 1- 736 var: ! col: col: var: 5 nip nip execute @ ;s 774 d+ r> ;s (loop) unloop 7 col: con: lshift ;s lit 1690 con: col: dup >r write-file 1 ?branch ;s var: ! var: 857 and 0= ?branch @ lit 58 ;s user: ! user: ! 1 ;s ;s var: @ ?dup 62 = col: col: r> r> 12 rot swap col: cell+ cell+ 7 ?branch nip nip execute ! 2 user: ! ;s ;s branch 22 drop branch ;s ;s ;s 10082 ?branch col: dup field: @ 22073 over c@ r@ <> ?branch 1908 dup ?branch 0> ?branch col: 2378 user: ! lit col: col: 2 ;s con: - col: var: 4192 ?branch ;s ;s ;s dup 7 invert and ;s ;s ;s 309 ;s ;s over col: over 119 dup col: var: @ ;s 2 @ ?branch dup defer: col: 7596 con: col: col: col: user: 84 nip execute col: col: r> 1 ?dup ?branch r> user: +! 19 ?branch nip nip execute var: 71 ?branch r@ user: +! user: 4041 col: user: @ ;s con: 4043 user: @ ?branch col: user: 71 user: +! user: @ user: 44 0> ?branch dup col: ;s 1026 (+loop) con: * swap con: 750 c! ;s ;s col: var: 387 lit /string col: over c@ 63 lit col: 1+ con: * 1 2* cells col: swap >r 88 swap >r fp@ >r col: 2020 ?branch rdrop ;s >r over 460 ?branch ;s user: @ lit 1205 + ;s c@ ;s xor 19230 rot i c! (loop) con: 14 ! execute col: col: user: 13 ;s col: user: @ >r 1532 ?branch nip col: cell+ cell+ 1500 var: ! var: @ ?branch 1 ?branch rdrop ;s over r> 15 nip ;s - dup ?branch 3 user: @ ?branch ! ;s 334 col: user: col: con: swap 18 ?branch drop ;s ;s branch 4379 var: dup @ cells + 3 ?branch nip nip execute + 13 rdrop lit ;s r> user: 120 @ ;s ;s var: @ 97 con: + ;s ;s con: 13 swap con: - swap lit 460 user: @ lit col: >r 16 nip execute does: col: var: 20 lit >= col: col: r> 4 cells ;s branch col: sp@ 63 1+ con: * 1- >r 72 col: col: r> user: @ 1162 dup lit u> lit and 138 @ ;s @ ;s over 725 ;s dup ?branch ;s ?branch 2 @ ?dup 0= ?branch 2dup 2 over c@ lit <> ?branch 3 dup var: ! defer: drop 3750 ;s ;s branch col: sp@ 205 rdrop ;s ;s col: col: 2169 ;s con: - lit over 1690 write-file ?dup ?branch var: count 71 does-code! ;s ;s ;s col: 4041 @ ;s con: user: @ 244 var: @ ;s ;s over 54 @ ;s ;s branch col: 724 drop user: ! col: user: 1291 ;s does: col: var: dup 2381 ?dup ?branch ;s ;s col: 58 ! execute col: col: sp@ 2020 swap r> col: >r dup 50 >r r@ col: dup 1+ 160 col: dup ;s col: col: 14 ?branch ;s swap 2dup 1+ 2 ;s ;s (loop) unloop drop 86 con: var: @ ! ;s 1205 r> col: col: var: @ 1676 ?dup ?branch ;s col: col: 739 ;s ! con: swap col: 1129 ! col: var: dup @ 1 col: con: 0= ?branch lit 6 dup ?branch 2drop r> var: 7 ! ;s ;s dup field: 4772 col: con: dup @ + 23 execute col: lit col: user: 1 execute col: var: @ swap 120 ;s var: ! branch lit 3 execute col: col: con: <> 2046 + (loop) dup lit pick 14 col: var: 2@ tuck 1+ 10547 user: @ /string (parse-white) 2dup 72 @ >r >r ;s user: 44 col: col: col: r> dup 1 execute col: col: con: 0= 346 @ execute col: lit col: 29 lit col: var: @ var: 2169 @ lit max col: >r 750 col: var: @ 0<> ?branch 12 @ ?branch col: col: r> 319 swap - col: dup negate 13 user: ! >r ;s drop 41 execute col: defer: col: defer: 1 con: 0= ?branch lit (bye) 86 @ ! ;s ;s branch 980 lit user: ! ;s 0= 750 ;s user: @ col: lit 11906 + ;s c! ;s ;s 4987 @ ;s ;s col: var: 27 @ col: dup con: ! 10 ;s col: user: @ ?branch 10547 >r >r user: @ /string 4 cmove var: r> ;s ;s 18 swap col: col: col: var: @ 367 + ;s c! ;s ;s ;s 76 ?branch i - con: - unloop 6 @ con: >= ?branch ;s lit 16 execute col: col: col: con: <> 13 rdrop ;s ;s col: >r >r 29 nip ;s col: user: @ swap 1 user: @ >r var: @ lit 1 2@ lit (?do) unloop 2drop drop 257 user: ! drop ;s ;s branch 119 ! ;s ;s dup col: var: 5004 col: con: rshift ;s col: col: 736 ;s ! ;s ;s col: col: 1 ;s >body @ col: col: col: 2 ;s over lit (?do) dup lit 3 col: con: var: @ tuck col: 3 col: col: con: col: col: col: 32 cell+ cell+ ;s ! ;s col: 5 (?do) unloop ;s branch ;s ;s 7 drop con: ;s ;s ;s branch 325 ;s ;s ;s col: sp@ user: 119 con: <> ?branch dup col: cell+ 2 ;s ;s col: dup count col: 518 2>r col: col: user: @ >r 9853 ;s r@ lit and 0= ?branch 14 ?dup ?branch ;s swap 2dup 1+ 6 col: col: lit col: dup lit 1 var: ! ;s ;s branch ;s 7 2drop ;s ;s ;s + swap 7 cell+ cell+ ;s ! ;s >r 7 nip execute col: col: con: lshift 4 execute col: col: var: @ ;s 18 var: @ ;s ;s var: @ 1 ;s drop ;s ;s ;s ;s 750 ;s ;s col: var: @ ;s 42 ;s col: cell+ cell+ ;s col: 13 rdrop rdrop lit ;s user: @ 179 ;s ;s ;s col: lit lit 3047 2drop ;s branch col: user: @ 4635 0= col: col: r> r> dup 521 dup ?branch rdrop ;s >r over 7612 + c! col: col: user: @ 4 ?branch rdrop ;s lit swap 1+ 9 rdrop ;s ;s user: col: con: 9 ?branch rdrop ;s ;s user: col: 750 col: lit user: ! ;s user: 6 lit @ var: ! ;s ;s 9204 fp@ user: @ > ?branch ;s 62 = col: col: r> r> dup 4033 ;s dup c@ 0= ?branch col: 933 ;s dup ?branch ;s dup ?branch 1923 col: col: var: dup @ cells 5 and ?branch nip nip execute @ 13 ;s col: user: @ >r col: 1606 faligned swap (?do) con: col: col: 1 dup ?branch rdrop ;s over r> 15 ! ;s ;s r> drop col: 1 ;s (+loop) i col: cells var: 1071 @ ;s @ ;s ;s col: 10547 2dup >r >r user: @ /string 2 ;s dup ?branch ;s nip 0<> 2019 lit col: >r defer: col: col: 573 2drop con: ;s ;s ;s dup 1129 ;s var: ! col: var: dup 102 ;s ;s var: @ ?branch con: 1 ?branch i 1+ col: cells var: 6752 con: col: over + swap ;s 1 0= ?branch ;s col: user: @ 750 var: @ col: col: col: user: 20 dup lit >= col: col: r> 102 <> swap con: <> and col: 319 user: @ swap - col: dup 4 cr ;s ;s branch col: sp@ 7 >r rot r@ col: 1- tuck 322 cell+ @ col: over col: ;s 17 con: lshift ;s ;s branch col: 1648 negate ;s ;s dup ?branch >r 48 execute col: col: defer: noop col: 2 and ?branch nip nip execute create-file 3278 2@ over <> ?branch drop 2drop 4772 + swap does: + c@ ;s 79 ;s dup @ col: var: @ 6 drop con: ;s ;s branch col: 285 rdrop ;s ;s col: lit col: 460 ;s 2drop lit col: >r defer: 12 ;s rot swap col: cell+ cell+ 692 var: @ ?branch col: col: user: 15 lit pick col: lit over 0<> 36 r> move c! ;s col: col: 1162 user: @ ;s @ ;s user: 7596 con: col: col: col: user: @ 86 ;s con: var: @ ! ;s 750 min con: write-file col: ?dup ?branch 855 ;s (loop) unloop ;s col: col: 10 var: @ 0< ?branch ;s ;s 692 ;s var: @ ?branch col: col: 76 - con: - unloop ;s ;s 15746 @ execute col: lit + @ 5 @ ?branch col: con: @ col: 5907 drop var: dup @ 1- cells 1 var: @ lit (?do) i col: 158 c! ;s ;s (loop) col: dup 92 @ (f83find) ;s dup 0= ?branch 44 rdrop ;s 0> ?branch dup col: 19 rdrop ;s ;s col: col: var: 756 (?do) con: col: col: col: var: 12 ;s ;s swap dup user: ! 122 ?branch rdrop ;s ;s con: col: 1075 user: @ 0= col: col: r> 2 ;s lit pick + (loop) unloop 50 con: swap ! ;s col: var: 27 con: ;s ?branch 1- i' i 1690 r> write-file ;s col: ?dup ?branch 50 r> ;s rdrop dup col: con: 1 rdrop ;s over r> tuck - 3 ?branch ;s branch ;s user: @ 20 var: <= ?branch con: - dup 639 cell+ >r @ col: col: col: 18 2drop ;s ;s ;s var: ! 150 cell+ dup cell+ rot move drop 22 (f83find) ;s ;s dup ?branch ;s 18159 ;s 2dup >r >r user: @ 325 ;s col: user: col: con: swap 60 @ ?dup ;s ?branch ;s ;s 1089 col: var: @ 1- dup 0= 1 swap c! 1+ col: col: col: 82 (loop) unloop ;s ;s ;s branch 2 dup 0> ?branch col: col: col: 11 nip execute col: col: var: col: 2 ;s lit lit col: >r >r 2 r> var: ! ;s branch @ 79 dup @ col: var: @ ;s 1 +! ;s col: col: r> r> 736 swap ! col: con: col: col: 16 nip execute col: col: col: con: 1 col: drop ;s ;s branch col: 1 var: @ ;s 1- con: rshift 18 var: @ col: col: col: var: 1 con: ;s ?branch col: user: @ 1224 user: @ dup 0= col: col: 118 + ;s col: con: + ;s 2 col: lit * ;s ;s branch 1 var: up! sp@ dup user: ! 774 @ dup 0> 0= ?branch nip 34 @ con: = ?branch lit col: 630 var: ! var: @ ?branch lit 5 execute col: col: col: lit col: 99 ;s (loop) unloop ;s ;s ;s 325 1- <> col: col: r> r> 789 ;s - col: col: col: var: 119 lit cells + ;s @ col: 1210 @ + ;s count lit and 60 ?dup ;s ?branch var: @ field: 15 ?branch faligned nip ;s - dup 3 var: @ + @ col: lit 3 execute col: cr ;s ;s branch 750 @ tuck - ;s con: write-file 6 col: 0= ?branch var: col: con: 319 dup negate user: +! lit over 1 lit r@ write-file col: ?dup ?branch 853 ;s col: over + swap ;s 1 count defer: (type) ;s cr ;s 1 execute col: col: con: + ;s 3 ;s ;s col: con: + ;s 3 c! ;s (loop) unloop ;s col: 7 nip nip execute ! ;s branch 1106 ?dup ;s ?branch var: @ col: 13 >r r@ pick r@ pick r@ 9773 + c@ ;s ;s over c@ 79 dup ?branch dup col: col: var: 11906 col: var: @ + ;s c! 16 +! col: var: @ 0< ?branch 1 cells col: lit fill ;s var: 1 code-address! ;s lit col: col: col: 1 col: col: con: 0= ?branch lit 630 var: @ ?branch lit var: ! 267 >r ?branch rdrop ;s ;s lit 4 var: ! ;s ;s drop col: 6 cell+ dup @ 0< ?branch var: 4 ;s count defer: (type) ;s col: 1 user: @ ;s @ ;s >r 1162 col: >r 2dup 2dup r> col: 1532 ?branch nip col: cell+ cell+ ;s 7 dup user: ! over c@ lit 7648 rot over 1+ r> move c! 1 (?do) unloop ;s col: col: col: 1 col: * ;s ;s branch col: 1 dup ?branch ;s ?branch drop con: 3825 >r >body nip r> ;s ?dup 7 over r@ u>= ?branch col: dup 736 ;s ;s col: defer: defer: col: 712 ;s user: ! drop ;s ;s 57 2drop ;s ;s ;s ;s swap 980 ;s dup c@ 0= ?branch 2drop 736 var: ! ;s var: @ col: 16 +! ;s c! ;s ;s branch 15746 execute col: lit + @ >r 505 col: con: swap ! ;s col: 212 c! ;s ;s col: lit >code-address 6279 @ col: col: dup field: @ 1 col: ?dup ?branch ;s r> close-file 22 ?branch var: ! drop ;s lit 739 r> ;s over col: cell+ ;s 873 /does-handler + col: col: user: @ 28 var: @ ?branch con: ;s lit 1659 2drop ;s branch col: sp@ user: 1026 + swap lit (+loop) con: * 736 +! ;s ! ;s con: col: 1158 2drop 2drop ;s var: @ field: 14 col: 2dup lit col: >r dup 14 user: @ >r col: swap >r 2 - col: var: @ swap col: 48 col: col: defer: noop col: col: 272 ;s ;s col: lit lit ! 2 2dup col: col: r> r> dup 17757 ;s con: col: col: user: @ 1 col: var: 2@ col: col: col: 32 ;s col: lit col: dup @ 208 count col: col: user: @ >r 6410 rot i c! (loop) unloop 2drop 1648 ?branch negate ;s ;s dup ?branch 6 ! ;s ;s ;s over col: 1224 ;s >r ?branch rdrop ;s cell+ 1160 (?do) unloop ;s col: col: user: 2 and ?branch nip nip execute lshift 19 swap c! ;s ;s ;s branch 2984 r> lit and ?branch negate ;s 1156 ;s ;s col: lit >code-address ;s 3047 ;s branch col: user: @ ?branch 6869 r> lit and ?branch ;s ;s 3 ?branch nip nip execute col: cr 2 ;s ;s branch ;s col: dup 22 nip ;s user: ! ;s var: 414 = dup >r ?branch col: over 88 >r col: laddr# ;s >r user: 34 +! ;s 2drop ;s ;s ;s 18 con: ;s ?branch col: col: var: 3 nip execute + ;s branch col: 706 cell+ ;s @ dup ?branch drop 6 ?branch var: @ ?branch over col: 272 var: ! ;s ;s col: col: 14 2* cells + 2! ;s var: 8 nip execute col: lit var: +! 1 execute col: * ;s ;s branch 18 ;s branch 2dup u> 0= ?branch 45 var: @ ;s ;s ;s branch 27 swap ;s dup ?branch 2drop user: 2 dup ?branch ;s nip 0<> ;s 322 var: cell+ ! col: con: col: 1 ;s var: ! ;s drop ;s 60 cell+ ;s ! ;s lit col: 1 col: lit fill ;s var: @ 5 ?branch col: con: @ col: col: 230 and ?branch nip nip execute does: 880 field: @ execute col: @ (f83find) 29 execute col: col: var: @ + 22 ;s user: ! ;s var: col: 1427 u>= ?branch con: ;s ?branch col: 736 @ col: var: ! ;s ;s 1895 lit and col: con: (hashkey1) ;s 5213 ;s c! ;s (loop) con: col: 22 0= ?branch var: ! drop ;s 6 ! lit var: +! var: @ 6 ?branch var: @ >r var: col: 1 col: con: + ;s ;s branch 14 2drop ;s ;s ;s var: @ 18 xor swap c! ;s ;s ;s 5 nip nip execute @ ;s branch 1 ! defer: drop ;s ;s branch 58 con: swap ! ;s lit user: 1224 >r ?branch rdrop ;s cell+ tuck 736 ;s @ lit <> and ;s 52 ;s ;s branch ;s branch ;s 2 branch ;s col: dup @ con: 18 (+loop) unloop d>s ;s ;s swap 750 tuck - ;s con: write-file col: 178 ;s col: var: @ col: col: 1 +! ;s 2! ;s branch dup 310 ;s ;s ;s lit col: var: 3 nip nip execute col: col: ;s 42 col: cell+ cell+ ;s col: lit 3 nip execute col: col: con: <> 16 var: +! col: var: @ 0< 13 >r ;s drop col: ?dup ?branch 756 lit (?do) con: col: col: col: 13 user: @ close-file swap 2dup or 1 lit fill ;s var: @ over 8768 ;s lit col: col: user: @ 1 nip execute col: col: con: 0= 22 ?branch rdrop ;s ;s var: @ 27 user: @ 0= ?branch 2drop con: 84 ?branch nip nip execute col: ;s 5 @ 0= ?branch var: @ over 787 ;s branch @ dup ?branch 2dup 7 = ?branch 2drop rdrop user: col: 1026 lit (+loop) con: * swap con: 18 ?branch col: col: var: @ + 131 ?branch ;s col: var: @ 1- 40 tuck ! cell+ tuck ! cell+ 208 ?dup ?branch col: dup >r count 1500 var: count con: write-file col: ?dup 55 dup lit u> ?branch lit - 4 @ ;s @ ;s /does-handler col: 950 c! ;s ;s col: col: user: 58 ;s lit user: ! lit col: 12 ;s r> r> user: ! col: 7 ;s ;s dup field: dup var: 63 rdrop dup col: con: con: 1+ 1 @ col: var: @ ;s 1- 12 ;s nip ;s swap user: ! 13 rot col: con: <> col: col: 6 ?branch over col: lit over 0<> 206 ! ;s ;s branch col: sp@ 172 ;s code-address! ;s ;s col: col: 1 nip nip execute col: * ;s 750 @ ;s user: @ min con: 6099 ;s (loop) i c@ col: col: 13 @ close-file swap 2dup or col: 75 dup ?branch drop 2dup col: col: 460 @ 0<> and ?branch col: col: 80 (?do) unloop ;s ;s user: ! 639 col: r> dup cell+ >r @ 760 user: @ 2* cells + ;s 14 lit branch unloop 0<> lit and 1222 @ field: @ field: @ execute 152 count lit and + faligned over 1 count defer: (type) ;s 2dup defer: 1205 col: var: @ + ;s c@ 16 ;s +! ;s c! ;s ;s 144 nip execute col: col: col: var: 15 0<> ?branch faligned nip ;s - 943 ;s ! ;s code-address! ;s ;s 7 ;s lit col: con: lshift ;s 181 ;s drop branch ;s user: @ 27 r> swap ;s dup ?branch 2drop 6 +! var: @ con: >= ?branch 4 2dup defer: (type) compare 0<> ?branch 67 execute col: var: col: con: swap 63 within 0= col: col: r> r> 7119 >r ;s >r ?branch rdrop ;s 1224 c@ xor swap c! ;s ;s 2 ;s swap user: ! col: defer: 2293 nip col: dup @ con: = 8 ;s 0> ?branch col: cell+ cell+ 2 ?branch nip nip execute col: ?dup 7 ! ;s code-address! ;s ;s ;s 4 rdrop ;s lit swap 1+ /string 62 r> ;s 0= col: col: r> 2 ;s +! ;s ;s branch col: 2455 dup 0= col: col: r> r> 7 invert and ;s dup col: col: 6 drop branch ;s branch col: var: 1 fill ;s ;s var: col: con: 173 ;s col: col: col: r> r> 1 ;s branch @ dup ?branch drop 10701 @ ;s ;s lit col: var: 5004 rot + swap col: var: + 6 col: lit col: dup lit = 12 @ ;s does-code! ;s ;s rot 6 over cell+ ! dup @ dup 19 nip execute col: var: @ ?branch 4769 ;s +! ;s col: dup col: 801 c@ lit = dup >r ?branch 14 tuck + swap invert and ;s 842 dup col: ;s @ con: = 2 nip execute col: ?dup ?branch ;s 7 ;s ;s col: col: col: col: 1 ?branch 2dup 1- + c@ lit 20440 lit /string branch dup ?branch over 1 var: ! ;s drop ;s ;s 119 ;s ;s swap user: ! user: 14 var: 2@ tuck 1+ 2* cells 27809 >r lit r@ um/mod r> swap 4 drop ;s ;s col: lit does: 3 @ col: lit lit col: >r 1 ?branch ;s r> close-file col: ?dup 17 branch 2dup u> 0= ?branch var: 97 user: @ ?branch cell+ @ col: 119 ;s ! ;s lit var: ! 1205 var: @ + ;s c@ ;s 5 col: ;s ;s ;s branch col: 1895 col: lit + dup @ 0< 90 branch ;s ;s branch col: sp@ 93 lit over 0<> ?branch faligned nip 27 - unloop ;s dup ?branch dup 1205 var: @ dup >r col: col: 119 ! ;s branch dup col: ;s 1 and ?branch nip nip execute c! 18 ;s ;s defer: noop ;s col: 5 aligned swap (?do) unloop ;s branch 9 branch ;s ;s col: col: col: 7 ;s col: col: col: col: con: 2020 user: @ ;s user: @ over 315 +! ;s 2drop ;s branch ;s 4 ;s @ ;s /does-handler col: col: 18 ;s ;s 0= ?branch ;s ;s 1 fp@ user: ! col: var: 2@ 62 ;s @ con: = col: col: 27809 swap >r um/mod r> ;s rot 774 um* d+ r> ;s (loop) unloop 4772 /mod rot + swap does: + 426 r> user: ! r> user: ! 1 ;s col: 0= ?branch var: col: 631 ! var: @ ?branch col: var: 19230 i c! (loop) con: col: >r 1 con: rshift 1+ col: tuck allocate 12 r> user: ! col: col: var: 32 col: 2dup u< ?branch = ;s 7612 con: col: col: defer: col: col: 1 0= r> or ?branch 2drop dup 18 ;s ;s branch 2dup u> 0= 7073 ;s col: col: col: var: @ 131 + ;s ! ;s col: defer: 13 rdrop rdrop rdrop lit ;s user: 22 ! ;s col: dup con: ! 1430 @ um* d+ r> ;s (loop) 750 ;s user: @ lit col: col: 32 col: con: @ col: 2dup u< 33 branch ;s ;s col: lit lit 97 col: col: var: @ user: @ 455 drop ;s ;s ;s branch col: 1 count ;s compare 0= >r 2dup 1 lit <> ?branch col: col: 2dup 10870 col: var: @ ;s ;s lit 11 col: lit user: ! ;s ;s 25 lit max lit (?do) i' i 2 defer: drop ;s drop col: r> 1 = ?branch i 1+ col: cells 4 col: user: @ ?branch defer: noop 1 nip nip execute move ;s branch 1089 1- dup 0= col: col: r> 7612 dup con: = ?branch drop (parse-white) 7 nip nip execute col: + ;s 739 con: <> ?branch col: >r dup 1895 ?dup 0= ?branch >r drop r@ 25640 um/mod r> ;s rot i c! 9 ;s char+ c@ ;s col: user: 17 ! ;s ;s ;s lit col: 6 ;s drop branch ;s branch col: 4041 @ ;s con: user: @ ?dup 1 lit swap c! 1+ col: col: 4 count defer: (type) ;s col: cell+ 341 ;s ;s col: var: col: con: 2 execute col: lit lit col: ;s 22 var: @ 2dup u> 0= ?branch 2046 pick + (loop) dup lit pick 25 does: swap lit max lit (?do) 4 defer: (type) ;s col: cell+ count 1898 @ ;s @ ;s swap dup 2 ;s ;s con: - col: var: 7 swap invert and ;s ;s ;s 2169 con: - lit over +! @ 9204 sp@ user: @ > ?branch fp@ 8 nip execute does: dup var: ! 27 rdrop user: col: con: swap ! 460 user: +! ;s con: write-file col: 289 execute col: dup 0< ?branch var: 307 drop ;s ;s col: r> dup 226 d>s ;s ;s col: col: col: 27 ! col: var: col: con: swap 4033 c@ 0= ?branch col: col: dup 12 ;s ! col: col: col: user: 6 drop branch ;s ;s ;s ;s 2 ?branch nip nip execute 1- ;s 5004 /mod rot + swap col: var: 214 nip execute col: col: var: @ 17 ;s ;s ;s lit col: 1+ 4 lit and ;s 2dup defer: (type) 319 lit over = ?branch branch drop 57 ;s ;s swap col: col: var: 5907 cells over + (do) 2dup i 6 over - swap ! ;s con: 150 col: dup 1+ pick >r cells 1 + dup user: ! user: ! 6414 col: col: col: col: user: @ 15 swap >r dup allocate col: ?dup 6 ;s ;s 0= ?branch ;s >body 631 ?branch col: var: col: con: swap 1205 c@ ;s xor r> col: col: 1 ;s var: over col: tuck allocate 41 rdrop ;s var: ! ;s ;s 1 @ user: @ = ?branch user: 1 user: ! fp@ user: ! col: 21 nip execute col: col: lit user: 60 lit user: ! col: col: user: 2020 ;s user: @ over min /string 7612 user: @ ;s @ ;s count 72 user: ! user: @ >r >r 17 @ = ?branch lit cells + 5600 con: write-file col: ?dup ?branch ;s 2363 ;s ;s ! ;s ;s ;s 120 ;s var: ! branch lit col: 4041 ;s con: user: @ ?dup ?branch 326 col: con: col: col: col: var: 1210 ;s defer: col: col: user: @ 1 swap (?do) unloop ;s ;s col: 13 swap 2dup or col: dup ?branch 6 var: over cell+ ! dup @ 44 col: ;s @ con: = ?branch 460 ;s user: @ lit col: >r 443 <> col: col: r> r> dup 1998 ;s >r ?branch rdrop ;s ;s 7 unloop 2drop ;s ;s ;s + 10 ?branch var: count con: col: dup 6 does-code! ;s ;s ;s branch col: 63 con: con: 1+ within 0= col: 75 dup ?branch 0> ?branch col: user: 14 col: var: 2@ tuck 1+ 2* 88 laddr# ;s >r user: @ >r 857 lit and 0= ?branch @ lit 4041 ?dup ?branch read-line col: ?dup ?branch 3 ;s col: con: + ;s col: 1419 2dup d0= ?branch col: user: @ 750 user: @ col: con: col: col: 2 lit user: ! ;s ;s branch 2 pick @ ?dup 0= ?branch 2dup 1 ! fp@ user: ! col: var: 9342 col: col: r> r> dup count 3043 user: col: con: swap ! ;s 8 var: +! ;s ;s branch col: 774 @ 0= ?branch user: @ dup 1 col: 2swap 2dup col: col: r> 187 - swap col: col: var: @ 1368 swap i c@ + swap lit 216 does: dup var: ! col: cell+ 54 ;s @ ;s ;s branch col: 14 2dup r> -rot move ;s col: 2020 /string over swap r> col: >r 4 nip execute col: - ;s ;s 1162 user: @ ?dup ;s ?branch dup 37 branch ;s user: col: con: swap 12 ! ;s nip ;s swap user: 280 ;s @ execute col: user: @ 320 1+ user: +! ;s con: write-file 181 ;s ;s ;s ;s drop branch 9370 r@ lit and ?branch r> lit 1399 - dup lit u> ?branch dup 56 (f83find) ;s ;s var: @ and 120 cells + ;s var: ! branch 360 >r user: @ >r user: @ 518 dup ?branch drop 2dup 2>r col: 17 con: = ?branch drop ;s ;s 1368 rot + swap i c@ + 28 ;s ! ;s lit col: var: 23 ! ;s ;s col: dup col: 25 defer: (type) (+loop) unloop drop ;s 5 ?branch nip nip execute @ ;s 58 ?branch 2drop ;s r> user: ! 1 nip nip execute col: con: + 35 nip execute col: col: lit col: 272 col: defer: noop col: col: col: 1 dup user: ! user: ! user: 736 cell+ ;s @ lit <> and 36 ;s over char+ col: col: user: 71 @ = ?branch r@ user: +! 1106 @ ?branch dup @ lit pick 33 cell+ ;s @ dup ?branch dup 1486 ;s ;s count col: dup col: 2 ?branch ;s ;s dup ?branch ;s 774 ;s dup ?branch 2drop rdrop r> 62 col: ;s @ con: = col: 738 ;s ;s swap user: ! col: 9204 r> min user: ! ;s dup 736 drop ;s branch @ dup ?branch 1 ;s ;s ;s ;s col: con: 12 ! ;s r> r> user: ! 18 defer: noop ;s col: r> dup 1 ;s var: 2! col: var: 2@ 1162 lit and ;s var: @ col: 1 var: @ lit > ?branch con: 57 ;s ;s lit col: >r defer: 325 ;s ?dup ?branch 1- <> col: 289 ;s col: col: col: col: var: 6 lit col: dup lit = ?branch 736 ! ;s code-address! ;s ;s var: 2 0= ?branch ;s ;s ;s ;s 3 cells var: @ + @ col: 58 lit ;s col: dup ?branch r> 1166 user: @ ?dup ;s ?branch var: 1129 @ 1+ dup con: > col: 1252 ;s user: col: con: swap ! 6 var: +! var: @ con: >= 13 over r@ u>= ?branch col: var: 1 dup >r lit col: >r sp@ 6099 ! ;s dup ?branch defer: col: 17 var: @ dup ?branch 2dup cell+ 460 ?dup ?branch ;s defer: col: col: 5004 lit /mod rot + swap col: 1162 0= lit and col: ?dup ?branch 801 over c@ lit - dup lit 96 ;s ;s ;s ;s swap col: 1210 + ;s count lit and con: 119 ;s does-code! ;s ;s swap user: 12 col: cell+ cell+ ;s ! col: 1 ;s col: var: @ ?branch col: 2 col: 0= ?branch ;s ;s ;s 14 nip r> rdrop lit branch unloop 736 @ col: dup col: ;s @ 2 col: lit lit col: ;s ;s 1419 ;s ;s 2dup d0= ?branch col: 3 + @ col: lit lit col: 1 @ ;s @ ;s lit cells 460 ?branch ;s lit col: >r defer: 750 ;s 2@ var: 2@ d<> ?branch 20 var: @ dup lit >= col: 50 rot move drop r> ;s rdrop 1690 ! ;s ;s ;s ;s col: 62 rdrop ;s col: cell+ ;s @ 3 + c@ ;s ;s invert over 27 con: swap ! ;s branch r> 279 ;s ;s col: lit col: user: 265 rdrop ;s ;s lit col: dup 1 @ ;s r> tuck - lit 119 r> col: cell+ cell+ ;s ! 1 over col: tuck allocate col: col: 1106 var: @ ?branch dup @ lit 801 lit (?do) count col: user: @ 14 rdrop ;s nip ?branch var: 2@ 1169 dup aligned swap (?do) unloop ;s 224 execute col: defer: noop col: col: 3 execute col: col: user: @ ;s 5907 dup @ 1- cells over + 102 con: <> and col: col: r> 4 col: dup ;s ;s branch col: 17 execute col: con: lshift ;s ;s 208 @ execute does: dup var: ! 21 ;s ;s ! ;s ;s var: 1898 swap dup col: col: user: @ 1 rdrop rdrop rdrop lit ;s ?dup 2 swap 1+ /string ;s ;s over 801 2swap dup >r col: lit (?do) 322 @ var: cell+ @ col: over 40 swap ! ;s nip ;s col: 5907 @ execute col: drop con: ?branch 1 ?branch nip nip execute c! ;s 42 ! ;s ;s ;s swap ! 4041 col: ?dup ?branch ;s branch lit 7 ?branch dup user: ! over c@ 216 @ execute col: col: var: @ 2 (?do) dup lit pick col: dup 10 @ con: = ?branch col: dup 789 var: @ ?branch col: dup @ 1 nip nip execute field: ;s branch 1211 execute col: col: col: user: @ 739 ;s over col: cell+ ;s ! 150 dup cell+ rot move drop r> 556 lit ! user: col: con: swap 2 0< ?branch drop con: col: col: 2 execute col: user: @ var: col: 4 ;s ;s col: lit var: +! 150 pick >r cells sp@ cell+ dup 6410 c! (loop) unloop 2drop ;s ;s 1 move ;s branch col: sp@ user: 3 user: ! ;s col: col: 2dup 88 @ >r rp@ user: ! execute 342 + swap lit (+loop) unloop d>s 1671 ;s col: col: r> r> dup 1 ;s var: @ dup ?branch dup 19 rdrop ;s ;s col: con: col: 7 ?branch dup r> - ?branch dup 322 var: @ ;s var: cell+ ! 8 ;s @ col: col: col: col: 8 0> ?branch col: cell+ cell+ ;s 152 i - count lit and + 32 ;s ;s con: var: col: con: 10082 i 2@ over <> ?branch col: 1129 rdrop ;s var: ! col: var: 36 over char+ col: col: user: @ 1 ;s @ ;s lit cells col: 337 ;s ;s col: r> dup cell+ 1162 0< ?branch var: @ @ over 1368 um* rot + swap i c@ 750 0<> ?branch col: col: var: 2@ 1 con: cells col: lit fill ;s 4 nip nip execute col: - ;s 342 >r lit lit r> con: col: 20 @ swap var: ! ;s over 224 nip execute col: defer: noop col: 13 ;s over 0= col: col: col: 3393 col: dup @ con: = ?branch 631 @ ?branch col: var: col: con: 724 ;s ?branch drop user: ! col: 75 ! ;s ;s 2drop branch ;s 13 ?branch ;s ;s col: drop >r 9853 faligned ;s r@ lit and 0= 1898 @ ;s dup faligned swap (?do) 10701 ;s ;s lit col: var: +! 736 col: var: ! ;s ;s col: 1 2drop dup >r lit col: >r 1 c@ lit <> ?branch 2dup + 75 ?branch drop 2dup col: col: user: 212 swap c! ;s ;s col: lit 3 ! ;s var: @ ?branch ;s 119 ;s @ dup col: ;s @ 736 ;s col: col: var: @ 1- 1166 @ execute col: col: col: user: 2722 write-file col: ?dup ?branch ;s var: 119 col: var: @ var: col: con: 181 ;s var: ! ;s does: col: 14640 @ (hashfind) ;s ;s dup ?branch 51 ! branch ;s ;s col: lit 71 ?branch r> r> user: ! r> 119 ! swap col: col: var: dup 11 execute col: user: @ ?branch col: 13 ! branch ;s ;s ;s branch 2046 ;s lit pick + (loop) dup 1895 lit + dup @ 0< ?branch 4 ;s col: cell+ count lit and 27 ;s col: con: @ col: col: 1 2dup + lit swap c! 1+ 181 rdrop ;s var: ! ;s does: 13312 user: @ ;s @ ;s lit 1026 (+loop) con: * swap con: um* 118 ;s col: con: + ;s ;s 1966 ;s c! ;s ;s (loop) con: 1500 ?dup ?branch ;s var: count con: 10 col: var: @ 0< ?branch ;s 37 cells var: + @ user: ! 37 lit u< ?branch cells var: + 46 branch dup ?branch dup col: col: 18 ;s ?branch col: col: var: @ 789 + var: @ ?branch col: dup 55520 col: user: @ ;s @ ;s 736 col: cell+ ;s @ lit <> 2 dup count col: var: @ col: 1641 +! ;s c! ;s (loop) unloop 14 >r con: open-file 0= ?branch nip 15 ?branch ;s swap 2dup r> -rot 17 defer: (type) ;s defer: (type) lit 352 ;s c! ;s ;s ;s ;s 1210 write-file col: ?dup ?branch ;s user: 736 @ ;s var: ! col: col: 32 ;s ;s var: @ col: col: 13 pick r@ pick r@ pick rdrop 648 @ col: col: col: col: user: 8768 user: @ ;s +! ;s c! 34 ;s @ con: = ?branch lit 2 unloop drop branch lit pick @ 1 ;s var: @ over ! lit 6 drop ;s ;s con: ! ;s 2020 over min /string over swap r> 1 col: con: col: >r defer: col: 4 nip execute col: dup ;s ;s 1 con: ;s 0= ?branch col: user: 7 execute col: col: con: lshift ;s 103 var: @ @ dup con: = 169 ?branch rdrop ;s ;s ;s dup 630 lit var: ! lit col: var: 1106 (hashfind) ;s ;s var: @ and 1491 ;s +! ;s ! ;s lit 18 execute col: col: var: dup @ 7678 user: @ ;s @ ;s col: 1077 ;s ;s ;s ;s col: var: 97 @ user: @ ?branch cell+ @ 5 unloop ;s branch ;s ;s branch 1399 lit u> ?branch dup user: @ 272 ! ;s ;s col: col: user: 1162 ;s var: @ and ?dup ?branch 27 unloop ;s dup ?branch dup r> 10 d<> ?branch var: count con: col: 6410 >r col: dup 0< ;s r> 1075 col: col: user: @ 0= col: 27 ;s user: ! ;s col: con: 1633 >r dup ?branch over c@ r@ 75 ;s ! ;s ;s 2drop branch 1966 c! ;s ;s (loop) con: col: 1210 lit and con: write-file col: ?dup 60 ;s ?branch ;s ;s col: lit 6 @ 0< ?branch lit @ var: 43 ;s col: dup col: dup con: 4 ;s user: @ ?branch con: min 4 user: @ ?branch con: min >r 79 r@ rot col: col: var: @ 750 - dup @ tuck - ;s 739 col: cell+ ;s @ dup ?branch 12 var: ! ;s swap ! ;s 15 execute col: var: @ ?branch var: 5907 @ field: @ execute col: drop 72 user: @ user: ! user: @ 1 execute col: 2* ;s ;s branch 3825 >body nip r> ;s ?dup ?branch 523 ;s ;s ;s dup col: ;s 748 con: lshift ;s - col: col: 2 nip execute lshift ;s branch col: 4 ;s ;s col: lit does: swap 2020 @ ;s user: @ over min 72 @ user: ! user: @ >r 22 rdrop ;s ;s var: @ 2dup 1 2drop col: col: user: @ ;s 29 con: + ;s var: ! ;s 11906 @ + ;s c! ;s ;s 6 lit ! var: var: ! ;s 4 (type) compare 0<> ?branch 2drop col: 18159 2dup + r> - 1+ r> 1216 ;s ;s ! ;s ;s lit 12 ;s @ execute col: ;s branch 7 ! over c@ lit = ?branch 858 dup col: cell+ ;s @ dup 1 nip execute col: 0= ?branch var: 14 cells + 2! ;s var: 2@ 4 r> var: ! ;s ;s drop 1 col: var: @ 0= ?branch con: 2444 col: col: user: @ ?dup ;s 258 (f83find) ;s ;s dup ?branch col: 17 col: over var: @ dup ?branch 725 ;s dup ?branch ;s ?branch drop 1 0= ?branch ;s >body @ col: 3 ?branch nip nip execute >body ;s 119 >r dup col: col: lit cells 742 col: con: col: col: col: user: 1334 ?branch negate ;s ;s ;s dup 26 1+ user: +! ;s col: col: 1 close-file col: ?dup ?branch ;s ;s 17 (type) lit does: swap lit max 33 ;s branch dup ?branch drop r> 12 ;s ;s rot swap col: cell+ 120 swap (?do) unloop ;s ;s swap 7119 >r swap >r ;s >r ?branch 55 u> ?branch lit - dup lit 2 ;s ;s over c@ lit <> 1 @ ;s @ ;s >r over 5102 count lit col: col: dup field: 18 ;s 0= ?branch ;s ;s branch 285 ?branch rdrop ;s ;s col: lit 19 ;s ;s ;s swap ;s branch 281 0= col: col: col: r> r> 60 @ ;s @ ;s col: lit 13 rdrop lit ;s r> user: ! 6 swap ! ;s col: var: @ 1162 over ! var: @ ! branch 756 ;s lit (?do) con: col: col: 1895 ;s tuck cell+ ! r> var: 74 over - swap ! ;s drop 8768 @ ;s lit col: col: user: 10 = ?branch col: dup @ con: 3322 cell+ ;s @ col: col: col: 7 r@ u>= ?branch col: dup col: 3 ?branch ! ;s ;s branch col: 9853 ?branch col: cell+ dup c@ >r 1 2dup defer: (type) con: col: lit 13 ?branch rdrop ;s ;s over 0= 920 count ;s con: write-file col: ?dup 68 ! ;s drop branch ;s ;s 1898 move ;s col: col: col: user: 14 2@ nip 1- user: ! lit 14 dup ?branch rdrop ;s nip ?branch 1115 >r ?branch rdrop ;s ;s col: 387 rdrop r> ?branch r> user: ! 1532 ?branch 0> ?branch nip col: cell+ 79 col: var: @ ;s rot ! 1610 ;s c! ;s ;s (loop) unloop 32 ;s con: var: col: con: swap 1158 and ?dup ?branch 2drop 2drop ;s 1 /string ;s ;s col: 2swap 2dup 1 ! ;s drop ;s ;s ;s 1 <> ?branch 2dup + lit swap 1 lit ! lit col: >r sp@ 3048 ;s ?branch col: col: sp@ user: 44 @ ?branch col: lit col: user: 736 +! ;s ! ;s var: ! 2 ?branch rdrop ;s dup rot ! 6 ;s does-code! ;s ;s ;s branch 50 con: * 1- >r r@ col: 315 ;s ! ;s ;s ;s branch 322 @ ?branch var: @ var: cell+ 460 ! drop ;s user: ! var: 2556 and ?branch nip nip execute col: 42 ;s defer: noop ;s ;s ;s 2 ?branch negate ;s ;s ;s 0= 2 ?branch nip nip execute create-file ;s 60 nip nip execute col: col: lit 84 col: ;s ;s branch col: sp@ 13 lit lit col: >r >r lit 18159 @ ;s 2dup >r >r user: 4772 con: / col: col: lit /mod 736 col: ;s @ con: = swap 107 ;s ;s swap user: ! swap 2 lshift ;s branch col: sp@ user: 102 dup con: <> swap con: <> 93 col: lit over 0<> ?branch faligned 14 1+ var: 2! 2* cells + 3 lit swap 1+ /string ;s ;s 28 ! ;s code-address! ;s ;s lit 18 d>s ;s ;s swap col: col: 14 @ + col: dup col: var: 119 lit var: ! ;s >r dup 1670 col: ?dup ?branch ;s col: col: 1 (+loop) i col: cells var: @ 322 execute col: col: col: col: col: 792 ;s ;s col: col: var: @ 17 rdrop ;s ;s ;s ;s ;s 7 u>= ?branch col: dup col: dup 5907 field: @ execute col: drop con: 13 ;s ;s r> r> rot col: 14 cmove var: over r> + dup 1 ;s +! ;s 2! ;s branch 1 r> -rot move ;s drop var: 14 swap cmove 2dup var: r@ + 748 lit col: con: lshift ;s - 2 col: lit fill ;s ;s var: 28 nip execute col: col: con: col: 187 ;s over - swap col: col: 181 branch ;s dup ?branch 0> ?branch 181 nip ;s dup ?branch rdrop branch 5907 var: dup @ 1- cells over 1 d>s ;s ;s ;s branch col: 57 ?branch ;s ;s col: col: col: 3 col: col: ;s ;s ;s branch 20 col: does: col: var: dup @ 1 swap 1+ /string ;s var: 2! 1427 user: @ u>= ?branch con: ;s 4 ;s (loop) unloop ;s col: ;s 1500 ?branch ;s var: count con: write-file 28 ;s var: @ ?branch con: ;s 1 col: con: 0= ?branch lit (bye) 4 dup ;s ;s branch col: sp@ 2258 ;s ;s ;s user: @ 0= 60 ?branch ;s ;s col: lit lit 3 0> ?branch col: r> dup cell+ 14 con: swap ! ;s lit col: 1216 ;s @ ;s dup user: ! 2 c! ;s ;s ;s col: lit 2 ;s @ dup 0< ?branch drop 14 ;s ;s ;s var: @ dup 460 2drop lit col: >r defer: col: 1 ! var: @ con: cells col: 8 col: lit does: swap lit max 991 ! ;s col: col: var: dup 14 2* cells resize col: ?dup ?branch 2 dup @ ?branch dup defer: col: 7612 con: = ?branch drop (parse-white) branch 1210 var: @ + ;s count lit 1089 ?branch rdrop ;s var: ! ;s 156 nip branch dup @ dup ?branch 477 execute col: lit col: >r defer: 1 defer: (type) ;s 2dup defer: (type) 11 ;s (loop) unloop ;s ;s branch 1166 ;s col: user: @ ?dup ;s 3 ;s var: @ ?branch ;s branch 2 ;s >body user: @ ?branch col: 15 user: @ lit pick col: lit 8955 r> min user: ! ;s col: 7 ;s ;s ;s ;s ;s lit 39 swap col: col: user: @ 0= 3050 con: col: col: col: var: @ 14 r> -rot move ;s col: var: 736 var: @ ;s var: ! col: 2 @ ;s +! ;s ;s branch 1895 con: (hashkey1) ;s xor cells >r 17 ?branch ;s col: var: col: con: 3278 over <> ?branch drop 2drop lit 56 @ ! branch ;s ;s col: 12 swap ! ;s nip ;s swap 15 d>s ;s ;s var: @ + 852 swap ;s (?do) i c@ col: 6 drop ;s branch col: sp@ user: 1218 ;s user: @ con: col: col: 4 unloop drop ;s ;s col: lit 1 ;s ?branch col: user: @ >r 88 sp@ r> swap >r fp@ >r 1 0= >r 2dup col: col: r> 1 lit > ?branch con: lit ! 1 execute col: var: over 1- con: 1 defer: noop var: @ lit > 880 @ execute col: @ (f83find) ;s 6279 col: var: @ col: col: dup 14 ;s ;s r> user: ! rdrop 7615 min user: ! ;s col: col: 10547 >r >r user: @ /string (parse-white) 774 branch ;s dup ?branch 2drop rdrop 14 >r var: swap cmove 2dup var: 3610 col: user: @ ?dup ;s ?branch 1452 ?branch dup user: @ u>= ?branch 1 con: + ;s ;s ;s branch 2169 aligned ;s con: - lit over 11 execute col: col: var: col: con: 7 nip execute ! ;s branch col: 6 col: cell+ dup @ 0< ?branch 40 swap con: - dup @ swap 35 dup aligned swap (?do) con: col: 1158 @ and ?dup ?branch 2drop 2drop 801 swap ! ;s over c@ lit 22 con: - col: col: user: @ 310 ;s ;s lit col: var: @ 4 defer: (type) compare 0<> ?branch 2drop 1216 ! ;s ;s lit col: col: 2984 lit and ?branch negate ;s ;s 217 ;s ;s col: col: col: user: 22 drop ;s lit col: dup @ 119 @ con: <> ?branch dup col: 5102 col: dup count lit col: col: 76 ;s dup 0= ?branch drop lit 2 @ ;s ;s con: - col: 650 @ swap - con: / ;s 119 dup col: ;s @ con: <> 750 user: @ col: lit user: ! 1603 1- and - lit and ;s 4 and ;s 2dup defer: (type) compare 27 2drop rdrop user: col: con: swap 1220 >r ;s count ;s con: col: 5907 col: drop con: ?branch lit col: 13 r> user: ! >r ;s drop 5 col: var: @ 0= ?branch var: 2 ! dup @ dup ?branch 2dup 1 rshift 1+ r@ write-file col: ?dup 219 1+ user: +! ;s 2drop col: 736 var: ! ;s ;s col: r> 28 ;s con: = ?branch var: @ 1158 2drop ;s var: @ field: @ 1 col: var: 2@ lit (?do) unloop 992 col: user: @ ?branch defer: col: 20 ?branch dup r> - ?branch 2drop 97 ?branch cell+ @ col: col: con: 2 drop branch lit pick @ ?dup 757 ! ;s ;s col: var: @ 58 lit user: ! lit col: >r 13 >r >r lit col: 1+ con: 880 execute col: @ (f83find) ;s ;s 4041 +! swap user: ! lit user: 58 ! >r ;s col: ?dup ?branch 147 ;s 2drop ;s ;s branch col: 1641 swap (?do) con: col: col: col: 309 ! ;s ;s over col: over 342 swap 1- (do) con: * swap 1603 ;s col: con: tuck 1- and 2 nip execute swap ;s branch col: 11 +! ;s user: @ ?branch col: 63 1+ con: * 1- >r r@ 1 2! ;s defer: noop var: @ 272 defer: noop col: col: col: r> 208 ?branch col: dup >r count col: 122 r> ;s dup 0= col: col: 2 unloop drop ;s ;s branch col: 2 col: var: ;s ;s branch col: 6410 ;s r> con: col: over + 20 var: ! ;s over r@ u>= 980 rdrop ;s branch user: @ con: 48 ;s ;s ;s lit col: dup 108 nip ;s dup col: ;s var: 2169 c! ;s ;s 2dup d0= ?branch 789 2dup swap col: lit + dup 9 @ ;s ;s count col: col: 7453 lit (+loop) 2dup i 2@ over 1129 dup con: > col: col: r> 2 execute over ;s branch col: sp@ 290 0<> and ?branch var: col: con: 20 lit var: ! ;s ;s lit 4041 branch lit user: +! swap user: 4 (+loop) unloop drop ;s ;s col: 3047 ?branch 2drop ;s branch col: user: 460 user: +! ;s 2drop lit col: 119 @ ;s col: over col: ;s 6 ! ;s lit col: user: @ 71 ;s col: lit col: >r defer: 1895 col: lit pick @ ?dup 0= 1898 user: @ ;s +! ;s move 140 r> ?branch user: +! ;s con: 724 ! col: user: @ col: col: 5907 1- cells over + (do) 2dup 14 r> + dup >r con: open-file 13 ;s ;s over 0= col: col: 268 ;s col: dup 0= col: col: 750 ;s con: - dup @ tuck 92 col: col: @ (f83find) ;s dup 801 col: col: user: @ >r user: 1 ;s ;s col: over col: ;s 736 ;s code-address! ;s ;s var: @ 20 ;s over r@ u>= ?branch col: 1 noop var: @ lit > ?branch 4772 + ;s swap col: con: - 120 dup col: lit cells + ;s 9 lit user: ! ;s ;s ;s 739 drop r> ;s over col: cell+ 2 ?branch rdrop ;s ;s lit lit 1 execute field: ;s branch col: sp@ 4041 ?branch col: user: @ ;s con: 1898 user: @ ;s @ ;s swap 750 con: swap ! ;s ;s col: 746 lit (?do) unloop ;s col: ;s 739 <> ?branch col: >r dup col: 387 ?branch 2drop rdrop r> ?branch dnegate 20 var: ! ;s ;s lit col: 63 var: ! ;s ;s ;s branch 1 r> tuck - lit cells / 7612 branch 2dup + r> - 1+ 122 ;s ;s con: col: col: defer: 1 fill ;s var: @ over ! 55 lit u> ?branch lit - dup 1 ?branch i 1+ var: @ = 6410 i c! (loop) unloop 2drop ;s 4 execute col: col: lit var: +! 2 ?dup 0= ?branch 2dup * allocate 27 0= ?branch ;s ;s branch col: 1 lit or ;s create-file col: ?dup 3 var: + c@ ;s ;s invert 3 + ;s branch col: sp@ user: 27 nip nip execute col: lit lit 342 lit (+loop) unloop d>s ;s ;s 1106 pick ! ! branch var: col: 5334 nip nip unloop ;s ;s ;s 41 nip execute col: defer: col: defer: 1 0<> ;s 0= col: 0= ?branch 60 @ ;s col: lit >code-address ;s 11 unloop ;s ;s branch ;s ;s 84 execute col: ;s ;s branch col: 7 ! ;s ;s var: field: @ 1690 col: dup >r write-file ?dup ?branch 7612 1+ r> move c! ;s con: 1 ?branch ;s ?branch drop con: ;s 1 con: + ;s ;s branch col: 62 ;s col: cell+ ;s @ ;s 980 lit user: ! ;s 0= col: 6951 c@ col: col: col: var: @ 1603 - lit and ;s lit (?do) 25640 >r um/mod r> ;s rot i 801 ! ;s user: @ 0= ?branch 1162 cell+ count lit and ;s var: 1 con: swap ! ;s cr col: 1 nip execute col: 2* ;s ;s 17 @ 2dup u> 0= ?branch dup 322 ?branch var: @ var: cell+ @ 120 ;s col: over col: ;s @ 789 ?branch drop ! ;s var: col: 1895 @ ?dup 0= ?branch >r drop 556 lit lit ! user: col: con: 4 (+loop) unloop d>s ;s ;s ;s 6410 + swap ;s (do) con: col: 2 ;s ;s ;s col: r> dup 1204 @ ;s dup aligned swap (?do) 14 1- user: ! lit col: >r 1162 ;s var: @ field: @ field: 28 ! ;s lit col: var: @ 692 @ ?branch col: col: user: @ 327 0= ?branch ;s ;s ;s branch 1162 r> col: dup field: @ field: 7 r@ col: 1- tuck + swap 1670 ?dup ?branch ;s col: col: r> 1500 col: ?dup ?branch ;s var: count 1 1+ col: col: col: user: @ 1 2@ col: col: col: col: user: 103 user: +! ;s col: dup col: 119 col: var: @ ;s col: over 12 user: ! col: col: var: dup 1 compare 0= r> or ?branch 2drop 414 ?branch col: over c@ lit - 20854 col: user: @ ;s +! ;s 14 ;s var: 2@ nip 1- user: 7 ;s + swap r> col: 1- 97 @ ?branch cell+ @ col: col: 1500 ;s var: count con: write-file col: 2 execute create-file ;s branch col: sp@ 7 ;s code-address! ;s ;s ;s branch 387 r> ?branch dnegate r> user: ! 35 aligned swap (?do) con: col: col: 4 ;s lit swap 1+ /string ;s 88 >r fp@ >r col: laddr# ;s 3106 col: col: sp@ user: @ > 12 execute col: lit lit ! user: 1 ;s ;s ;s var: @ ?dup 12 >r col: user: @ col: col: 1895 r@ swap col: lit fill ;s 119 cells + ;s @ col: cell+ 6 = ?branch dup var: ! ?dup 12 col: user: @ col: col: defer: 15746 field: @ execute col: lit + 7612 /string rot dup con: = ?branch 5 execute col: con: swap ! ;s 120 var: ! branch lit col: var: 748 col: con: lshift ;s - col: 16712 +! ;s col: col: var: @ 1106 ! branch var: col: con: swap 74 ;s con: = ?branch col: col: 1898 ;s @ ;s swap dup col: 1 1+ col: cells var: @ + 3 unloop 2drop ;s ;s col: con: 79 col: col: cell+ ;s dup @ 1500 + aligned ;s con: - dup 4682 @ ;s user: @ ;s user: 16 (f83find) ;s dup 0= ?branch ;s 152 faligned over lit + = ?branch 1 c@ lit <> ?branch i 1+ 595 ;s ;s dup ?branch ;s ;s 156 and ?branch ;s ;s ;s 0= 42 ;s 0> ?branch col: dup @ 27 drop con: ;s ?branch 1- i' 460 user: ! var: col: con: swap 732 ;s ! ;s ;s ;s ;s 2 ;s ;s col: lit cells + 119 cell+ cell+ ;s @ r> col: 1486 count col: dup col: col: col: 2 user: @ ;s +! ;s ;s 1106 ! ! branch var: col: con: 1106 lit pick ! ! branch var: 29 col: ?dup ?branch ;s swap 2dup 1204 @ ;s @ ;s dup aligned 42 rdrop ;s 0> ?branch col: dup 2 and ?branch nip nip execute swap 11 lit cells + ;s @ ;s 6 ! ;s drop branch ;s branch 9853 c@ >r col: count lit and 79 col: cell+ ;s dup @ col: 3048 ?branch col: col: sp@ user: @ 496 1+ user: +! ;s 2drop ;s 1713 branch ;s user: @ 0= ?branch 1966 ;s ;s (loop) con: col: col: 4 nip nip execute col: = ;s 1089 @ 1- dup 0= col: col: 493 nip nip execute col: col: user: 25 i - lit min 2dup defer: 216 defer: noop ;s ;s branch col: 20440 branch dup ?branch over c@ r@ 18 ;s ;s con: ;s ?branch col: 847 and ;s lit (?do) unloop ;s 6410 col: >r col: dup 0< ;s 4 cell+ count lit and ;s 2dup 1499 dup r> ?branch 1+ user: +! 1212 ?branch ;s var: @ col: var: 2 1- ;s branch col: sp@ user: 1 ;s con: ! ;s branch col: 168 col: con: swap ! ;s branch 774 user: @ dup 0> 0= ?branch 27 con: ;s dup ?branch r> swap 2 nip execute col: var: ;s ;s 1 ?branch nip nip execute field: ;s 13 ;s col: drop >r drop col: 483 ?branch 1- r> lit and ?branch 15 allocate col: ?dup ?branch ;s swap 750 ;s user: @ col: lit user: 60 ;s lit col: lit lit ! 1 (?do) unloop ;s ;s col: col: 1 defer: drop ;s ;s branch col: 6 branch drop ;s ;s col: col: 18 cr col: col: r> r> dup 1603 + ;s c! ;s ;s col: 28 ;s 0> ?branch col: user: @ 58 ;s col: dup ?branch r> r> 14 -rot move ;s col: var: 2@ 2169 over +! @ c! ;s ;s 747 ;s @ var: ! ;s ;s 1129 var: @ 1+ dup con: > 1652 ;s 2drop ;s branch col: sp@ 86 ?branch con: <> col: col: r> 5 nip nip execute col: col: 0= 1495 ;s @ ;s ;s count col: 7 ;s ;s col: var: @ dup 1 col: lit or ;s create-file col: 736 = swap col: cell+ ;s @ 17 over var: @ dup ?branch 2dup 14 col: dup col: var: @ swap 119 ! ;s swap ! var: col: 2 0> ?branch col: col: col: var: 4 r> col: >r ;s ;s col: 7 ;s ! ;s ;s var: field: 32 @ col: 2dup u< ?branch = 49 0<> ?branch faligned nip ;s user: 801 swap ! ;s lit lit 2swap 1162 @ 0< ?branch var: @ @ 2889 ;s ;s dup ?branch lit and 750 var: @ var: @ 0<> and 1 ?branch nip nip execute col: 0= 13 close-file swap 2dup or col: dup 4 execute cells ;s branch col: sp@ 13 ! ;s ;s drop con: ;s 120 lit cells + ;s var: ! 3 (?do) unloop ;s ;s ;s ;s 1430 um* drop rot user: @ um* 15 ?dup ?branch ;s swap 2dup r> 1 var: 2! ;s defer: noop var: 1 @ dup ?branch drop var: @ 160 con: swap ! ;s nip ;s 28 cell+ cell+ ;s ! ;s ;s 1058 ! col: con: col: col: col: 1 ;s 2dup defer: (type) con: col: 22 u> 0= ?branch var: ! drop 2889 dup ?branch lit and ?branch nip 1216 ;s +! ;s ! ;s code-address! 1205 r> col: col: var: @ + 10082 2@ over <> ?branch col: dup 801 ;s lit lit 2swap dup >r 1 ?branch rdrop ;s over r> tuck 120 + ;s var: ! branch lit 748 lshift ;s - col: col: col: 630 ! lit col: var: @ dup 27809 r@ um/mod r> swap >r um/mod 44 swap c! ;s ;s var: col: 789 dup ?branch drop ! ;s var: 1071 ;s @ ;s ;s col: dup 9 ;s count col: col: 2dup lit 4041 col: user: @ ?branch col: user: 801 ! ;s over c@ lit = 18159 r> - 1+ r> min user: 7 ?branch col: dup col: dup con: 105 ?branch col: user: @ ?branch col: 1 col: 2* ;s ;s branch col: 2 execute swap ;s branch col: sp@ 1106 @ + var: @ ?branch dup 1 execute col: var: @ dup @ 2 @ ?branch col: user: @ ?branch 730 @ ;s does-code! ;s ;s ;s 13 ;s r> r> rot col: con: 17 dup con: = ?branch drop ;s 27 dup ?branch r> swap ;s dup 76 - unloop ;s ;s ;s dup 14 dup >r con: open-file 0= ?branch 1399 dup lit u> ?branch dup user: 88 >r rp@ user: ! execute col: 322 ! ;s var: @ ?branch var: 27 dup ?branch 2drop user: ! col: 4033 0= ?branch col: col: dup count 2 nip nip execute 1- ;s branch 21 branch dup @ dup ?branch nip 4772 col: con: - ;s con: / 2 drop con: col: col: col: var: 521 - dup r> ?branch user: +! 789 @ dup ?branch drop ! ;s 1162 @ ;s @ ;s user: ! 7612 = ?branch drop (parse-white) branch 2dup 1216 lit >code-address ;s col: col: col: 2 col: does: @ execute does: dup 40 ;s ;s branch ;s ;s branch 764 lit u< ?branch drop ;s user: 226 nip execute col: defer: defer: col: 740 d<> ?branch ;s defer: col: col: 2169 lit + col: col: col: col: 1220 count ;s con: col: dup >r 119 col: col: var: @ var: col: 4169 ;s ;s dup ?branch >r >body 736 ! ;s var: @ col: var: 1895 ! r> var: @ + var: 272 noop col: col: col: r> r> 32 unloop 2drop ;s ;s ;s var: 12 ! ;s swap ! ;s ;s 13 swap con: - swap lit col: 593 ?branch ;s ;s dup ?branch drop 2 nip nip execute col: does: @ 103 execute col: col: col: var: @ 2324 and col: ?dup ?branch ;s ;s 764 drop ;s user: col: con: swap 97 col: con: + ;s ;s con: 460 2drop col: defer: col: col: user: 131 user: @ col: col: defer: defer: 14 lit user: ! user: col: con: 15 ;s var: @ + ;s ;s 206 ?branch nip nip execute does: @ 1106 ?branch var: @ col: lit + 1430 ?branch col: swap >r swap user: 1690 write-file ;s col: ?dup ?branch ;s 33 @ ;s ;s char+ c@ ;s 13 ;s drop col: ?dup ?branch ;s 2 var: ! ;s branch @ dup 1162 ;s var: @ col: >r 2dup 14 ?dup ?branch ;s var: swap ;s 4772 ;s swap col: con: - ;s 17 (type) (+loop) unloop drop ;s drop 1205 + ;s c@ ;s xor r> 119 user: ! swap col: col: var: 3757 2drop ;s ;s ;s ;s ;s 37 branch ;s ;s ;s branch col: 4772 dup @ + ;s swap col: 13 ?dup ?branch ;s ;s ;s ;s 13 ! >r ;s drop col: ?dup 873 col: user: @ ;s does-code! ;s 8406 ! ;s col: col: user: @ 483 and ?branch 1- r> lit and 1633 col: >r dup ?branch over c@ 1 ;s drop var: 2@ nip var: 1430 ;s ?branch col: swap >r swap 1162 xor swap c! ;s ;s col: 244 col: var: @ ;s ;s over 736 @ ;s var: @ col: col: 1162 ;s ;s col: dup lit u> 3 ;s ;s col: con: var: @ 33 ;s @ ;s ;s char+ c@ 811 ! ;s var: col: con: swap 58 ;s user: ! user: ! user: 279 drop ;s ;s branch col: sp@ 22841 defer: col: col: user: @ ;s 342 + swap ;s swap 1- (do) 387 ?branch lit /string col: over c@ 7612 (parse-white) branch 2dup + r> - 1162 ! ;s ;s col: defer: col: 1216 dup user: ! lit col: col: 208 col: dup >r count col: col: 2 ! swap col: lit fill ;s 1895 col: con: (hashkey1) ;s xor cells 2 >body user: @ ?branch col: user: 1 ?branch con: lit ! lit col: 4772 col: col: con: dup @ + 1 ;s var: 2! var: up! sp@ 150 +! ;s ! ;s ;s ;s 9204 user: @ > ?branch fp@ user: 1162 defer: defer: col: col: col: col: 1 con: lit ! lit col: >r 7 ! ;s branch col: sp@ user: 1113 cells + ;s ! ;s col: 86 con: = ?branch con: <> col: 42 cell+ ;s col: lit user: ! 76 + = ?branch con: (+loop) dup 22 = ?branch var: @ ?branch col: 595 ;s dup ?branch ;s ;s dup 325 ;s branch lit col: dup @ 2 user: ! col: defer: col: defer: 92 @ execute col: col: @ (f83find) 2048 ! ;s lit pick + (loop) 256 0> 0= ?branch nip ;s dup 9853 col: cell+ dup c@ >r col: 7 ;s ! ;s >r rot r@ 2 nip execute col: lit (?do) col: 46 ;s branch dup ?branch dup col: 460 user: @ ;s user: @ /string 12 swap dup user: ! >r >r 29 ;s col: user: @ swap - 14 ! ;s lit col: >r sp@ 71 = ?branch r@ user: +! user: 1 nip nip execute col: 2* ;s 4748 dup ?branch drop branch lit (+loop) 20 ;s tuck ! cell+ tuck ! 7747 user: @ ;s @ ;s ;s 1 (type) con: col: lit or ;s 1486 ! col: col: var: @ ;s 7 ;s branch col: var: @ dup 1 ?branch col: user: @ >r col: 736 col: dup cell+ @ col: dup 322 var: cell+ @ col: over col: 97 var: @ user: @ ?branch cell+ 408 ! ;s col: col: col: col: 16 col: lit var: +! col: var: 997 ;s col: col: var: dup @ 3 @ + @ col: lit lit 736 @ con: = swap col: cell+ 8 ;s ?branch ;s ;s ;s branch 79 unloop 2drop ;s ;s branch dup 3699 0= ?branch user: @ con: col: 493 nip execute col: col: user: @ 14 2dup var: r@ + swap cmove 17 = ?branch drop ;s ;s branch 5013 @ ;s @ ;s ;s dup 80 lit (?do) unloop ;s ;s user: 6013 col: var: @ ;s ;s con: 13 pick r@ pick rdrop dup col: 1 ! ;s rp@ user: ! fp@ 980 2drop col: user: @ ?branch col: 4 @ var: ! ;s ;s r> 1184 ;s ;s col: dup col: col: 406 col: >r dup ?branch rdrop ;s 25 2dup defer: (type) (+loop) unloop drop 147 +! ;s 2drop ;s ;s branch 1 lit <> ?branch i 1+ var: 1 var: 2! col: var: 2@ 2* 59 ! user: ! user: col: con: 8 nip nip execute col: var: +! 1486 col: var: @ ;s var: ! 789 @ dup ?branch 2dup swap col: 582 col: lit col: >r defer: col: 1 @ ;s ;s col: over col: 342 ;s col: >r lit lit r> 6 ! ?dup ?branch ;s col: col: 736 ;s swap user: ! col: col: 1 @ ;s @ ;s r> tuck 1 ;s 0= col: 0= ?branch ;s 1 ;s col: user: @ ?branch ;s 6 dup col: lit over 0<> ?branch 3825 ?dup ?branch 0> ?branch nip col: 460 col: ?dup ?branch ;s lit col: 1200 ?branch ;s defer: col: col: user: 18159 user: @ ;s 2dup >r >r 321 ;s ;s ;s col: var: col: 9 swap ! ;s ;s branch ;s 351 ;s lit col: dup @ con: 29 lit col: var: @ var: @ 9 user: ! ;s ;s ;s branch 736 @ ;s @ ;s var: @ 2 lit pick + (loop) unloop drop 6 var: @ con: >= ?branch ;s 573 unloop 2drop con: ;s ;s ;s 1129 var: ! col: var: dup @ 1 >r lit col: >r sp@ r> 3699 ?branch user: @ con: col: col: 736 ;s ;s col: r> /does-handler + 16 col: col: col: con: <> col: 1110 ;s ! ;s does: col: var: 7 ;s var: field: @ col: col: 102 col: dup col: dup con: <> 9642 @ ;s @ ;s lit col: 1 ;s code-address! ;s lit col: col: 1 ;s 2dup col: var: 2@ lit 4 nip nip execute col: dup ;s 42 noop ;s ;s ;s branch col: 142 ;s >r ?branch rdrop ;s 0> 4473 ;s user: @ 0= ?branch user: 13 swap ;s col: user: @ >r 44 ?branch rdrop ;s 0> ?branch dup 27 @ ?branch var: @ col: dup 801 >r col: lit (?do) count col: 8 ?branch nip nip execute does: dup 2 nip nip execute col: ?dup ?branch 768 ;s var: @ col: col: col: 27 var: @ col: dup con: ! 9853 dup ?branch col: cell+ dup c@ 1499 <> ?branch rdrop ;s >r over 2889 lit and ?branch nip nip execute 22841 user: @ ;s user: @ ;s 41 @ ;s ;s - col: col: 117 unloop 2drop ;s ;s ;s drop 131 ;s ! ;s col: r> /does-handler 1 @ dup @ ?branch drop ;s 1287 ;s col: dup col: col: col: 71 ?branch r@ user: +! user: @ 4 user: @ ?branch defer: noop col: 87 rp@ user: ! execute col: col: 142 ;s dup 0= col: col: r> 982 + ;s ! ;s col: col: 1224 col: user: @ dup 0= col: 1 execute col: user: @ >r var: 58 rdrop rdrop lit ;s col: dup 8996 r@ lit and 0= ?branch lit 3 nip nip execute col: cr ;s 736 cell+ @ col: dup col: ;s 1603 tuck 1- and - lit and 13 rdrop lit ;s user: @ close-file 7612 user: ! ;s col: col: user: 992 user: @ ?branch defer: col: col: 2 lit (?do) col: dup ;s col: 27 1- i' i - unloop ;s 1026 c@ + swap lit (+loop) con: 5907 execute col: drop con: ?branch lit 20570 r@ <> ?branch lit /string branch 86 con: var: @ ! ;s ;s 158 ;s ;s ;s 0= ?branch ;s 1669 ?branch col: col: col: col: user: 1898 ;s c! ;s col: col: user: 331 nip nip execute col: lit col: 130 ;s col: lit cells + ;s 11 user: @ ?branch col: col: r> 1427 dup user: @ u>= ?branch con: 1 @ col: var: @ ;s r@ 3 @ tuck col: col: var: @ 305 swap col: ;s ! ;s col: 1 ;s ;s var: over col: tuck 2 lit * ;s ;s branch col: 736 dup ?branch dup col: dup cell+ 9833 + ;s c! ;s ;s (loop) 6 con: >= ?branch ;s lit cells 4 ?branch 2drop col: lit does: swap 15 >r dup allocate col: ?dup ?branch 1 lit swap 1+ /string ;s var: 226 nip nip execute col: defer: defer: 1169 ;s dup aligned swap (?do) unloop 1 0= ?branch col: user: @ ?branch 7 ;s ;s ;s + swap r> 27 ;s user: @ 0= ?branch 2drop 60 ;s code-address! ;s lit col: lit 27 user: ! ;s col: con: @ 4772 / col: col: lit /mod rot 750 ;s ;s col: var: @ var: 6951 i c@ col: col: col: var: 736 <> and ;s ?branch drop ;s 7 lshift ;s ;s ;s branch col: 29 col: var: @ var: @ + 4169 (hashfind) ;s ;s dup ?branch col: 2 dup @ dup ?branch 2dup swap 18159 1+ r> min user: ! ;s 1162 ?branch dup @ 0< ?branch var: 10 2! col: col: r> r> dup 750 @ 0<> ?branch col: col: var: 20 ;s ;s dup 0= col: col: 1895 drop r@ @ rot ! r@ 789 ?branch 2dup swap col: lit + 4379 var: dup @ cells + ;s 74 - swap ! ;s drop branch 1 lit cells col: col: user: @ 10145 ;s @ ;s con: col: col: 254 ;s ;s defer: noop ;s ;s 756 and ;s lit (?do) con: col: 1 lit fill ;s ;s var: col: 4 ;s ;s r> col: >r ;s 1895 cells lit col: lit pick @ 15 user: ! execute col: col: r> 1 drop con: ;s 0= ?branch col: 2 2drop ;s ;s ;s col: col: 20 nip nip execute col: does: col: 4772 rot + swap does: + c@ 79 var: @ ;s rot ! col: 1652 ;s ;s 2drop ;s branch col: 14 and col: ?dup ?branch ;s var: 18 2dup u> 0= ?branch dup col: 37 u< ?branch cells var: + @ 853 ;s ;s col: over + swap 23 var: ! ;s ;s col: dup 518 ;s dup ?branch drop 2dup 2>r 1 branch 2dup u> 0= ?branch dup 79 2drop ;s ;s branch dup ?branch 57 over col: col: var: @ + 6011 ;s ;s con: col: var: +! 4 var: ! defer: col: cell+ dup 1162 @ ?dup ;s ?branch dup @ 14 var: 2@ nip 1- user: ! 45 nip execute col: col: col: user: 750 @ lit col: col: col: col: 3 nip execute >body ;s branch col: 13 ;s 0= ?branch ;s ;s col: 3332 @ col: col: col: var: @ 1368 con: * swap con: um* rot 119 col: ;s ! ;s lit var: 923 execute col: col: user: @ 0= 1501 ! ;s lit col: col: col: 764 - dup lit u< ?branch drop 57 ?dup ?branch ;s ;s col: col: 15746 col: con: (hashkey1) ;s r> xor 135 branch dup @ dup ?branch drop 4 +! ;s does-handler! ;s branch con: 1690 ?branch var: count r> write-file ;s 6 >= ?branch ;s lit cells - 44 col: col: col: r> dup cell+ 764 dup lit u< ?branch drop ;s 774 lit branch ;s dup ?branch 2drop 1 col: var: @ ;s r@ write-file 62 ?branch rdrop ;s col: cell+ ;s 120 ! var: @ ?branch dup col: 768 col: var: @ ;s ;s var: 1 ?branch col: col: 2dup lit col: 1 ;s lit cells col: col: user: 27809 r> swap >r um/mod r> ;s 37 user: ! lit /string branch ;s 79 cell+ ;s dup @ col: var: 736 ;s ! ;s var: ! col: 35 execute con: ;s branch col: sp@ 5334 nip unloop ;s ;s ;s dup 2 /string ;s ;s over c@ lit 1 execute col: con: + ;s ;s 28 code-address! ;s ;s lit col: col: 1 2swap 2dup col: col: r> r> 3 col: cr ;s ;s branch col: 1 col: con: + ;s ;s ;s 748 var: @ dup 0> ?branch lit 5001 var: + c@ ;s ;s over 4 col: col: 0= ?branch var: col: 736 col: col: var: @ ;s var: 181 var: ! ;s does: col: var: 752 ;s ;s (loop) unloop ;s ;s 60 ?branch var: @ field: @ field: 1895 ! r@ swap col: lit fill 13 col: >r >r lit col: 1+ 3706 ;s lit col: col: col: user: 88 user: @ >r rp@ user: ! 2 col: lit (?do) col: dup ;s 28 + ;s var: ! ;s col: 305 col: ;s ! ;s col: col: 10 col: ?dup ?branch ;s ;s defer: 4 dup @ dup ?branch 2drop r> 1895 @ rot ! r@ swap col: 22 - swap ! ;s col: dup 7612 move c! ;s con: col: col: 3048 lit user: ! ;s ?branch col: 2 u<= ?branch drop con: ;s ?branch 322 ;s var: ! col: var: @ 6 drop col: r> /does-handler + col: 1 -rot move ;s drop var: 2@ 1 ;s >r var: lit r@ write-file 10 ;s ;s ;s col: col: var: 31 execute col: lit col: dup @ 6011 ;s con: col: var: +! ;s 736 ;s var: ! col: col: var: 8768 @ ;s +! ;s c! ;s 2 nip nip execute swap ;s branch 1 execute col: col: con: 0= ?branch 1 ;s ?branch drop con: ;s 0= 8 + ;s ;s branch col: sp@ 1026 swap lit (+loop) con: * swap 6410 swap ;s (do) con: col: >r 1042 ;s 0= col: col: r> r> 119 ;s >r dup col: col: lit 579 ! var: col: con: swap ! 1895 cell+ ! r> var: @ + 102 @ ;s ;s var: @ ?branch 7612 >r >r user: @ over min 7 - ?branch dup user: ! over 119 @ col: cell+ cell+ ;s @ 1690 ?dup ?branch var: count r> write-file 2 swap ;s branch col: sp@ user: 150 cell+ rot move drop r> ;s 212 ;s ! ;s code-address! ;s con: 750 ;s col: ;s var: @ dup 5102 lit col: col: dup field: @ 74 branch ;s lit col: col: col: 7119 aligned >r swap >r ;s >r 187 ;s ;s over - swap col: 5 ;s con: ! ;s ;s branch 95 nip execute col: col: col: r> 1 ! col: lit lit col: >r 119 lit cells + ;s @ dup 1500 ;s var: ! var: @ ?branch 926 ;s ;s ;s col: lit >code-address 6 @ over ! lit var: +! 10082 over <> ?branch col: dup field: 14 unloop 0<> lit and col: ?dup 9342 r> dup count + aligned >r 764 u< ?branch drop ;s user: col: 18 2drop ;s ;s ;s branch 2dup 10 ?branch ;s ;s defer: col: col: 76 ?branch con: (+loop) dup i - 1 cells col: col: user: @ ;s 22073 ?branch over c@ r@ <> ?branch 10145 @ ;s con: col: col: user: 187 var: @ ;s ;s over - 1 ?branch ;s nip 0<> ;s 0= 12 cell+ ;s @ execute col: ;s 750 2drop col: col: col: user: @ 20 ;s ;s ;s dup 0= col: 118 con: <> col: col: r> r> 1614 r> col: >r dup ?branch over 1454 = ?branch toupper lit - dup 7648 over 1+ r> move c! ;s 1 ;s (?do) unloop ;s col: col: 22 ;s ;s ;s con: - col: 750 dup ! ;s col: col: user: 760 drop user: @ 2* cells + 12 ;s +! ;s ! ;s r> 2218 >r ?branch rdrop ;s var: ! 150 cells sp@ cell+ dup cell+ rot 774 dup 0> 0= ?branch nip ;s 656 r> ;s (loop) count col: user: 1898 @ ;s +! ;s move ;s 119 var: @ ?branch user: @ col: 2 (loop) unloop drop branch lit pick 1430 @ um* drop rot user: @ 14 var: @ + col: dup col: 71 ;s ?branch ;s ;s ;s ;s 750 ;s ;s var: ! var: @ 736 ;s +! ;s ! ;s var: 801 >r user: col: con: swap ! 5213 +! ;s c! ;s (loop) con: 1224 ?branch rdrop ;s cell+ tuck c@ 2 ?branch drop con: col: col: col: 16 0= ?branch ;s ;s dup ?branch 5334 ?branch nip nip unloop ;s ;s 6 con: @ col: 2dup u<> ?branch 4772 or swap c! ;s ;s ! 322 @ col: over col: ;s @ 1 col: var: @ dup @ ?branch 7 ;s col: var: @ dup lit 2556 ;s ;s ;s branch col: sp@ 801 (?do) count col: user: @ lit 3393 = ?branch col: col: cell+ ;s 1129 > col: col: r> r> dup 40 dup @ swap con: - dup 63 dup col: con: con: 1+ within 13 ?branch ;s var: swap ;s col: 37 /string branch ;s user: col: con: 1 var: @ ;s ;s col: over 2 col: ?dup ?branch ;s ;s branch 35 ?branch nip nip execute con: ;s 1 ! var: ! col: lit lit 4 col: col: lit var: +! col: 20 - dup @ swap var: ! 2223 aligned >r swap >r ;s count 187 @ ;s ;s over - swap 1895 cells >r var: lit cells lit 6 ?branch drop ;s dup col: lit 4 ;s +! ;s does-handler! ;s branch 2293 0> ?branch nip col: dup @ 1106 branch var: col: con: swap ! 15746 lit + @ >r 2dup col: 7 col: col: col: col: con: @ 1495 @ ;s @ ;s ;s count 2 ! ;s ;s ;s col: r> 1291 ;s does: col: var: dup @ 13 pick rdrop dup col: con: con: 58 unloop 2drop ;s ;s ;s lit 1368 i c@ + swap lit (+loop) 6 ;s col: col: col: r> dup 2 1+ /string ;s ;s over c@ 360 @ >r user: @ >r user: 4043 user: @ ?branch col: user: @ 29 ?branch ;s ;s branch col: sp@ 1 @ = ?branch user: @ user: 1 ;s cr ;s ;s branch col: 13 ! col: ?dup ?branch ;s ;s 67 nip nip execute col: var: col: 20 >= col: col: r> r> dup 4 lit lit col: >r dup ?branch 5 unloop ;s ;s col: col: col: 4 ?dup ?branch col: col: r> r> 1 2! col: var: 2@ 2* cells 1162 @ ?dup ;s ?branch col: cell+ 14640 + @ (hashfind) ;s ;s dup 6 ;s drop con: ;s ;s branch 134 @ col: col: user: @ ;s 4 var: r@ cmove var: r> ;s 8 col: cell+ cell+ ;s @ col: 6 execute drop ;s branch col: sp@ 13 or col: dup ?branch r> r> 1895 and col: con: (hashkey1) ;s xor 789 dup ?branch 2dup swap col: lit 1 var: ! defer: drop ;s ;s 50 ;s rdrop dup col: con: con: 150 dup 1+ pick >r cells sp@ 75 ;s dup ?branch drop 2dup col: 19 swap ;s branch ;s user: @ 36 ;s +! ;s col: over >r 4 @ ?branch defer: noop col: r> 84 execute col: col: r> dup cell+ 10547 /string (parse-white) 2dup + r> - 4 @ ;s /does-handler col: col: user: 7 ! ;s >r rot r@ col: 1 var: over 1- con: rshift 1+ 122 >body nip r> ;s dup 0= 1 nip nip execute col: 0= ?branch 1895 var: lit cells lit col: lit 13 ;s col: >r >r user: @ 103 0> ?branch col: user: @ ?branch 17 (+loop) unloop drop ;s drop swap 120 var: ! var: @ ?branch dup 12 cell+ cell+ ;s ! col: col: 41 col: col: col: var: dup @ 1166 col: col: col: user: @ ?dup 91 ;s ;s ;s branch ;s ;s 10884 ;s col: col: user: @ ;s 14 nip nip r> rdrop lit branch 593 branch ;s branch col: sp@ user: 3699 @ 0= ?branch user: @ con: 322 ;s ;s ;s ;s col: sp@ 15 var: @ + col: col: var: 117 ;s ;s ;s drop ;s col: 119 does-code! ;s ;s swap user: ! 1 rdrop lit ;s ?dup ?branch r> 1898 ;s swap dup col: col: user: 17 @ con: <> ?branch col: over 7 r> - ?branch dup user: ! 118 col: col: con: + ;s col: 117 @ dup 0< ?branch col: col: 724 user: ! col: user: @ col: 394 ! ;s ;s ;s branch col: 1162 @ @ over ! var: @ 4772 swap does: + c@ ;s ;s 6099 defer: col: 2dup col: var: @ 57 var: @ ;s ;s over col: 2 nip nip execute col: var: ;s 1606 var: @ ;s ;s col: con: 6 ;s over col: cell+ cell+ ;s 1 user: ! execute col: user: @ 15 faligned nip ;s - dup ?branch 14 ;s lit col: >r sp@ r> 8 (type) (+loop) unloop drop ;s ;s 4041 user: @ ;s con: user: @ 19 ?branch nip nip execute var: ;s 27 user: ! col: var: col: con: 1216 +! ;s ! ;s code-address! ;s 2378 user: ! lit col: col: col: 84 nip execute col: col: r> dup 119 ;s user: ! ;s ;s dup 4041 con: user: @ ?dup ?branch read-line 118 col: con: + ;s col: con: 119 ;s @ con: <> ?branch dup 1218 swap ! ;s user: @ con: 244 swap col: col: var: @ + 1895 var: @ + var: @ ?branch 1895 count lit and col: con: (hashkey1) 117 con: swap ! ;s user: col: 4845 dup ?branch 2dup cell+ @ = 2 lit col: ;s ;s ;s branch 2 ?branch ;s over lit (?do) dup 4 <> ?branch rdrop ;s lit swap 368 ;s col: r> dup cell+ >r 88 ;s >r user: @ >r rp@ 146 execute col: lit col: var: @ 28 con: = ?branch var: @ ?branch 1 lit ;s (+loop) i col: cells 37 dup lit u< ?branch cells var: 9 ;s ;s count col: col: 2dup 2169 user: @ lit max col: >r 85 ! rdrop rdrop rdrop lit ;s 6410 dup 0< ;s r> con: col: 6 nip nip execute drop ;s branch 25 swap lit max lit (?do) i' 129 ?branch 1+ user: +! ;s col: 7 col: col: con: lshift ;s lit 27 @ 0= ?branch 2drop con: ;s 10 ;s 2@ 2dup con: write-file col: 6 ! ;s con: @ col: 2dup 9204 user: @ > ?branch ;s defer: 25 user: +! ;s col: col: user: 3 @ ?branch ! ;s ;s branch 1430 con: ;s ?branch col: swap >r 1 @ ?branch col: col: r> r> 980 >r ?branch rdrop ;s branch user: 11 ;s nip ;s col: lit cells 44 ;s var: @ ?branch col: lit 736 col: user: @ col: col: col: 4 ;s col: lit does: swap lit 10082 <> ?branch col: dup field: @ 1129 con: > col: col: r> r> 150 r@ col: dup 1+ pick >r 347 ?branch ;s ;s ;s branch col: 2 dup rot ! swap col: lit 736 @ ;s @ ;s tuck swap 76 i - con: - unloop ;s 25 i' i - lit min 2dup 37 ! lit /string branch ;s user: 2 ;s con: - col: var: @ 25 dup user: @ u>= ?branch drop 14 r@ + swap cmove var: over 1162 ;s col: dup lit u> lit 86 dup con: = ?branch con: <> 60 cell+ cell+ ;s ! ;s lit 852 over + swap ;s (?do) i 6 cell+ ! dup @ dup ?branch 965 ;s dup ?branch 0> ?branch nip 1603 col: con: tuck 1- and - 6410 col: over + swap ;s (do) 8 cell+ cell+ ;s @ col: col: 789 dup @ dup ?branch drop ! 4 defer: noop col: r> dup cell+ 1 ?branch 2drop dup >r lit col: 736 col: dup col: ;s @ con: 15 2drop ;s ;s var: @ dup 119 ?branch dup col: cell+ ;s @ 2169 max col: >r lit r@ um/mod 11 cells + ;s @ ;s ;s 1898 ;s +! ;s move ;s col: 45 ;s var: ! ;s col: col: 764 ?branch drop ;s user: col: con: 20570 c@ r@ <> ?branch lit /string 14 dup col: var: @ swap col: 750 ;s ;s user: ! col: col: 5004 con: rshift ;s col: col: lit 14 nip ?branch var: 2@ lit (?do) 2338 lit and col: ?dup ?branch ;s 4041 user: +! swap user: ! lit 1 over c@ lit <> ?branch i 13 drop col: ?dup ?branch ;s col: 2 lit (?do) dup lit pick col: 15 dup ?branch drop r> col: col: 10547 defer: col: defer: col: col: user: 6410 + ;s col: >r col: dup 13 drop col: var: @ dup var: 3367 ;s col: col: col: user: @ 1499 over - dup r> ?branch 1+ 320 1+ user: +! ;s 2drop lit 853 unloop ;s col: col: col: var: 1089 var: @ 1- dup 0= col: 2 over lit (?do) dup lit pick 43 ;s ;s col: dup col: dup 4772 col: con: dup @ + ;s 774 unloop lit branch ;s dup ?branch 1 defer: (type) ;s cr ;s ;s 739 >r dup col: cell+ ;s @ 1895 swap col: lit fill ;s r> 1162 ?branch ;s ;s col: dup lit 355 user: ! r> user: ! r> 1 var: ! var: @ con: cells 573 ?branch drop branch lit (+loop) unloop 1 over r> tuck - dup ?branch 1 2drop drop con: ;s ?branch col: 18 @ ;s ;s var: @ col: 320 ! ;s ;s branch ;s user: 1 dup user: ! lit + dup 292 ;s dup faligned swap (?do) unloop 14 1+ 2* cells resize col: ?dup 2 ?branch nip nip execute swap ;s 55 nip nip execute col: dup col: 518 nip ;s ?branch 2rdrop branch ;s 1 > ?branch con: lit ! lit 2381 col: ?dup ?branch ;s ;s col: 1 count defer: (type) ;s var: @ 2 (loop) unloop drop ;s ;s branch 342 swap ;s swap 1- (do) con: 1690 write-file ?dup ?branch var: count r> 750 + ;s 2@ var: 2@ d<> 152 lit and + faligned over lit 1 ?branch r> user: +! lit ;s 9204 ;s defer: col: defer: col: col: 1 nip execute col: var: over 1- 455 user: ! drop ;s ;s ;s 5907 con: ?branch lit col: drop var: 9 @ 0= ?branch ;s ;s branch 460 ;s user: ! var: col: con: 6099 ;s dup ?branch defer: col: 2dup 1 execute c! ;s branch col: sp@ 32 con: @ col: 2dup u< ?branch 21 ! ;s branch ;s ;s ;s 783 col: col: col: r> r> dup 1 @ ;s >r over >r lit 280 cell+ ;s @ execute col: user: 980 0= ?branch 2drop col: user: @ 630 @ ?branch lit var: ! lit 1 ;s ;s con: ! ;s branch 1 @ ;s lit cells col: col: 7 ;s ;s + swap r> col: 265 ?branch rdrop ;s ;s lit col: 5213 c! ;s (loop) con: col: col: 181 user: +! ;s 2drop ;s ;s 17 count defer: (type) ;s defer: (type) 44 ;s 0> ?branch dup col: ;s 309 ;s ;s over col: over col: 1205 ;s xor r> col: col: var: 2 nip execute col: lit user: ! 73 ! lit col: >r sp@ r> 4772 c! ;s ;s ! ;s ;s 1 + ;s ;s ;s branch col: 1 2drop ;s ;s ;s ;s var: 20 ;s @ ;s col: col: con: 10 var: 2@ d<> ?branch var: count 6 @ var: ! ;s col: col: 13 swap lit col: 1+ con: * 50 drop r> ;s rdrop dup col: 4041 swap user: ! lit user: ! 4189 ?branch ;s ;s ;s dup ?branch 103 ;s var: @ @ dup con: 14 ;s user: ! lit user: ! 980 ?branch 2drop col: user: @ ?branch 29 var: @ var: @ + col: 6410 over + swap ;s (do) con: 6752 var: @ + ;s col: >r 131 ;s var: ! ;s swap ! 7 ! ;s ;s dup field: dup 119 var: @ ;s col: over col: 4987 var: @ ;s ;s col: var: 12 ;s does-code! ;s ;s swap dup 44 ! ;s col: var: col: con: 1 var: swap ;s 2dup col: var: 57 ;s ;s ;s lit col: >r 750 col: col: var: 2@ drop user: 6 over col: cell+ cell+ ;s ! 724 ?branch drop user: ! col: user: 28 ;s ;s char+ c@ ;s col: 16 ;s dup 0= ?branch ;s ;s 5907 over + (do) 2dup i 2@ 9773 ;s ;s over c@ or swap 1454 lit = ?branch toupper lit - 518 ?branch drop 2dup 2>r col: col: 4 con: min >r var: r@ cmove 1335 col: con: swap ! ;s user: 2 branch ;s ;s branch ;s user: 41 var: @ ;s ;s - col: 1162 unloop ;s ;s lit col: user: 2 ;s over c@ lit <> ?branch 14 col: 1- tuck + swap invert 7 @ execute col: col: con: col: 309 ;s user: ! ;s ;s over 408 swap ! ;s col: col: col: 1 var: @ 0= ?branch con: cells 1224 tuck c@ xor swap c! ;s 4845 @ dup ?branch 2dup cell+ @ 337 ;s ! ;s col: col: col: 12 nip ;s swap user: ! swap 156 dup @ dup ?branch nip branch 152 and + faligned over lit + 1895 >r drop r@ @ rot ! 3048 ! ;s ?branch col: col: sp@ 1 nip execute col: drop ;s ;s 28 var: ! ;s col: col: col: 736 ;s +! ;s ! ;s con: 774 0= ?branch user: @ dup 0> 14 2! ;s var: 2@ nip 1- 1162 @ over ! var: @ ! 1 nip execute col: col: con: + 740 2@ var: 2@ d<> ?branch ;s 290 and ?branch var: col: con: swap 6011 var: @ ;s ;s con: col: 2 2dup * allocate col: ?dup ?branch 6 >r var: col: con: swap ! 119 ;s lit var: ! ;s >r 152 dup i - count lit and 7 var: field: @ col: col: col: 387 dup >r ?branch lit /string col: 7612 col: col: defer: col: col: user: 13 ;s branch ;s col: lit col: 6 var: @ 0< ?branch lit @ 13 drop >r drop col: var: @ 1293 ;s col: defer: col: defer: col: 3 user: @ lit = ?branch con: 21 (?do) unloop ;s ;s ;s branch 97 cell+ @ col: col: con: + 2 execute col: lit * ;s ;s 789 swap col: lit + dup @ 63 1+ within 0= col: col: r> 1 r> tuck - dup ?branch 2dup 3 ! ;s col: col: 2dup lit 6098 ;s branch col: sp@ user: @ 1 (type) ;s cr ;s ;s branch 735 ;s branch @ dup ?branch dup 3 (loop) unloop 2drop ;s ;s col: 18 ?branch drop ;s ;s branch col: 6 ;s con: @ col: 2dup u<> 95 ;s col: col: col: con: @ 801 lit 2swap dup >r col: lit 18 unloop d>s ;s ;s swap col: 41 col: var: @ ;s ;s - 3278 <> ?branch drop 2drop lit (+loop) 387 2drop rdrop r> ?branch dnegate r> 1 nip nip execute col: drop ;s 62 ;s >r ?branch rdrop ;s col: 42 ;s ;s swap ! ;s ;s 1224 @ dup 0= col: col: r> 41 ;s ;s - col: col: col: 117 ! ;s user: col: con: swap 460 var: @ 0<> and ?branch col: 6 ?branch nip nip execute drop ;s 5 var: var: ! ;s ;s ;s 24 swap >r ;s count defer: (type) 4 /does-handler col: col: user: @ ;s 7 r> col: 1- tuck + swap 46 unloop ;s ;s ;s branch ;s 2 @ dup 0> ?branch col: col: 573 drop branch lit (+loop) unloop 2drop 1327 does: col: var: dup @ cells 14 var: swap cmove 2dup var: r@ 12 rot swap col: cell+ cell+ ;s 1 nip nip execute 2! ;s branch 6 0< ?branch lit @ var: ! 27 ;s ! ;s ;s col: var: 1 user: +! lit ;s (+loop) i 518 2rdrop branch ;s branch col: sp@ 2 con: - col: var: @ swap 7 rot r@ col: 1- tuck + 86 = ?branch con: <> col: col: 2 swap user: ! col: defer: col: 6 ;s var: @ lit ! var: 5 var: @ 0= ?branch var: @ 1 var: @ dup @ ?branch dup 20 rdrop ;s tuck ! cell+ tuck 491 ?branch nip nip execute col: defer: 4828 2dup cell+ @ = ?branch @ 756 over col: ;s @ con: <> 1218 ! ;s user: @ con: col: 13 lit user: ! ;s ?branch ;s 44 ?branch col: lit col: user: @ 76 (do) dup i - count lit 629 ! user: col: con: swap ! 1 unloop 2drop drop con: ;s ?branch 58 rdrop rdrop rdrop lit ;s col: 2 var: @ ;s ;s con: - 62 @ con: = col: col: r> 31 @ execute col: lit col: dup 119 dup col: var: @ ;s col: 4 >r ;s ;s col: lit var: 76 col: lit con: (do) dup i 181 execute col: col: var: @ 1- 74 ;s ;s con: = ?branch col: 22 con: swap ! ;s branch ;s 88 lit col: >r sp@ r> swap 1162 col: dup 0= lit and col: 19 execute var: ;s branch col: sp@ 1 r> close-file col: ?dup ?branch ;s 3393 dup @ con: = ?branch col: 18 noop ;s col: r> dup cell+ 3 execute col: col: con: <> col: 2 + (loop) unloop drop branch lit 1 2dup col: var: 2@ lit (?do) 7648 col: over >r rot over 1+ 7119 swap >r ;s >r ?branch rdrop 1 c@ lit <> ?branch col: col: 65 ;s ;s ;s col: lit col: 1 ;s create-file col: ?dup ?branch ;s 52 ;s branch ;s branch ;s user: 62 nip r> ;s 0= col: col: 650 ;s ;s col: sp@ user: @ 750 ;s col: 2drop col: col: col: 7 and ?branch nip nip execute 2drop 48 var: ! ;s col: var: @ 57 ;s ;s over col: col: var: 313 ;s ;s lit col: dup @ 739 dup ?branch drop r> ;s over 12 r> r> user: ! col: col: 46 drop branch ;s ;s branch col: 16712 var: +! ;s col: col: var: 29 dup col: con: + ;s var: 5 nip execute col: col: 0= ?branch 7 nip nip execute 2drop ;s branch 2 nip nip execute lshift ;s branch 63 col: 1+ con: * 1- >r 27788 col: col: col: user: @ ;s 1162 ;s user: ! lit col: col: 4033 col: col: dup count lit col: 460 user: +! ;s 2drop col: defer: 3 nip execute col: dup col: col: 17 ;s ;s var: ! ;s col: 120 ! branch lit col: var: @ 631 ;s dup col: ;s var: ! 289 0< ?branch var: col: con: swap 2140 swap >r ;s count ;s con: 1 nip execute move ;s branch col: 7 nip execute 2drop ;s branch col: 3 @ lit = ?branch con: ;s 15 @ + col: col: var: @ 4175 branch lit (+loop) 2dup i 2@ 814 +! ;s ! ;s ;s col: 88 >r sp@ r> swap >r fp@ 20 col: cell+ ;s @ ;s col: 181 ?branch 0> ?branch col: lit col: 670 (loop) unloop ;s ;s user: ! 42 defer: noop ;s ;s ;s branch 1454 lit - dup lit u> ?branch 4 ;s /does-handler col: col: user: @ 2 lit u<= ?branch drop con: ;s 57 @ ;s ;s over col: col: 5013 ;s @ ;s ;s dup c@ 29 ;s ;s var: @ dup col: 740 2@ d<> ?branch ;s defer: col: 6752 r> con: col: over + swap 6 branch drop ;s ;s con: ! 63 con: 1+ within 0= col: col: 1162 ;s ?branch dup @ 0< ?branch 14 branch unloop 0<> lit and col: 290 @ 0<> and ?branch var: col: 1106 branch ;s col: user: @ ?dup 20 ! ;s ;s lit col: 1+ 1 dup ?branch 2drop col: col: user: 750 dup col: ;s var: ! var: 746 (?do) unloop ;s col: ;s var: 55 ?branch lit - dup lit u<= 71 +! user: @ user: ! user: 139 col: col: r> dup cell+ >r 1224 cell+ tuck c@ xor swap c! 1 ;s ;s ;s col: con: col: 280 ! drop ;s branch ;s user: 10 count con: col: dup >r write-file 1 cells allocate col: ?dup ?branch ;s 857 r@ lit and 0= ?branch @ 1 2! ;s branch col: sp@ user: 6 var: @ lit ! var: var: 5 ?branch ;s >body user: @ ?branch 71 user: ! r> user: ! >r 1 ;s count ;s compare 0= r> 483 r@ lit and ?branch 1- r> 19 ;s col: con: col: col: defer: 801 lit - dup lit u< ?branch 41 execute col: defer: col: defer: col: 1158 ?dup ?branch 2drop 2drop ;s var: 789 - col: col: col: var: @ 16712 col: var: +! ;s col: col: 4 2drop r> var: ! ;s ;s 178 ! ;s col: var: @ col: 27809 um/mod r> swap >r um/mod r> 6 ;s ;s over col: cell+ cell+ 74 ?branch con: branch ;s lit col: 1454 toupper lit - dup lit u> 7648 >r rot over 1+ r> move 1257 col: var: col: con: swap ! 1652 dup ?branch 0> ?branch col: col: 1 field: ;s branch col: sp@ user: 20 tuck ! cell+ var: ! ;s 4 nip execute cells ;s branch col: 2169 um/mod r> ;s rot lit over 42 swap ! ;s ;s ;s swap 4 ! defer: col: cell+ dup @ 1106 @ ! branch ;s col: user: 3 field: dup var: ! defer: drop 125 @ ?branch col: r> dup cell+ 4 @ ;s +! ;s does-handler! ;s 990 (loop) unloop ;s ;s lit col: 241 ?branch user: +! ;s 2drop col: 1210 count lit and con: write-file col: 1163 unloop ;s col: col: user: @ 205 ?branch rdrop ;s ;s col: col: 1 ;s count defer: (type) ;s var: 3 invert over c@ and swap c! 216 var: ! col: cell+ cell+ ;s 7 ! cell+ var: ! ;s col: 322 ;s user: ! ;s ;s var: 20 cell+ ;s ! ;s ;s ;s 42 does-code! ;s ;s ;s col: cell+ 7 con: ;s ;s ;s branch col: 14 cells resize col: ?dup ?branch ;s 5 ;s char+ c@ ;s ;s branch 63 ;s ;s ;s col: dup @ 27 i - unloop ;s dup ?branch 750 lit col: col: col: col: user: 739 ! con: swap col: ;s ! 5 nip nip execute col: over col: 76 lit col: lit con: (do) dup 88 >r user: @ >r rp@ user: 7 execute col: col: defer: col: defer: 40 nip nip execute col: col: con: 60 col: lit user: ! col: col: 9 ;s col: user: @ ?branch col: 789 swap ! ;s ;s branch @ 5907 ?branch lit col: drop var: dup 14 rdrop lit branch unloop 0<> lit 656 ;s (loop) count col: user: @ 14 tuck 1+ 2* cells resize col: 22 2drop ;s ;s ;s ;s con: 342 c@ + swap lit (+loop) unloop 150 1+ pick >r cells sp@ cell+ 4772 con: dup @ + ;s swap 739 col: cell+ ;s ! con: swap 58 ;s dup ?branch 2drop ;s r> 1 = ?branch user: @ user: ! 1071 @ ;s ;s col: dup count 135 col: dup @ dup ?branch nip 8996 0= ?branch lit r@ lit and 208 >r count col: col: user: @ 22 var: @ ?branch col: col: col: 52 ?branch col: dup @ con: = 119 var: @ var: col: con: swap 3 ;s 0> ?branch col: r> dup 6 ?branch ;s lit cells - var: 24 ;s ! ;s ;s ;s col: 2020 user: @ over min /string over 272 ;s col: lit lit ! user: 103 1+ user: +! ;s col: dup 3393 @ con: = ?branch col: col: 521 over - dup r> ?branch user: 20 ?branch con: - dup @ swap 18619 col: defer: col: col: user: @ 1 var: 2@ nip var: 2! ;s 13 col: drop >r drop col: var: 32 u< ?branch = ;s 0= ?branch 1454 user: @ lit = ?branch toupper 62 ;s branch ;s ;s user: @ 455 con: swap ! ;s col: col: 2 ;s col: dup count col: var: 58 swap ! ;s lit user: ! 750 @ ;s var: ! user: @ 789 @ + var: @ ?branch col: 706 ;s @ dup ?branch drop r> 20 col: var: @ dup var: <= 7612 count + c! col: col: user: 181 ;s ;s drop branch ;s user: 86 var: @ ! ;s ;s branch 13 over 0= col: col: col: r> 20 ;s ;s col: con: col: col: 84 nip nip execute col: ;s ;s 1 ;s cr col: col: r> r> 27 ! ;s branch r> user: ! 631 var: ! var: @ ?branch col: 1895 ;s xor cells >r var: lit 1 0= ?branch con: cells allocate col: 1680 ?branch nip nip execute col: col: 2 execute col: does: @ execute does: 62 branch ;s ;s user: @ 0= 6 ?branch branch drop ;s ;s con: 28 ?branch con: ;s lit col: col: 14 ?dup ?branch ;s ;s r> user: 7 ;s @ execute col: col: con: 7 user: ! over c@ lit = 25 u>= ?branch drop con: ;s ?branch 4318 user: @ ;s @ ;s dup 750 @ col: con: col: col: defer: 6013 ;s ;s ;s ;s ;s ;s 14 + dup >r con: open-file 0= 460 ;s user: @ /string con: col: 1 ?branch nip nip execute col: 1- 6 ?branch ;s col: col: var: dup 15746 (hashkey1) ;s r> xor cells var: 20 ?branch rdrop ;s tuck ! cell+ 1 cells col: swap >r dup allocate 5213 (loop) con: col: col: col: user: 1 or ;s create-file col: ?dup ?branch 16 ;s ! ;s lit col: dup 17 lshift ;s ;s branch col: sp@ 736 ! ;s ;s col: r> /does-handler 736 ! ;s ;s col: defer: defer: 15746 2dup col: con: (hashkey1) ;s r> 23 over col: lit over 0<> ?branch 224 nip nip execute col: defer: noop 14 con: open-file 0= ?branch nip nip 980 dup c@ 0= ?branch 2drop col: 208 ?branch ;s dup ?branch ;s ?dup 5004 @ swap col: con: rshift ;s 1895 r> ;s tuck cell+ ! r> 9853 + faligned ;s r@ lit and 18159 + r> - 1+ r> min 3825 nip r> ;s ?dup ?branch 0> 441 col: col: col: col: col: var: 2 ;s branch @ dup ?branch 2drop 4 cells ;s branch col: sp@ user: 27 ! ;s col: con: @ col: 49 ! col: lit over 0<> ?branch 1 >r lit col: >r dup ?branch 1 var: @ ;s r@ write-file col: 42 ;s ;s col: cell+ cell+ ;s 1895 cell+ count lit and col: con: 63 lit col: 1+ con: * 1- 4 (+loop) unloop drop ;s ;s ;s 1210 ;s count lit and con: write-file 119 ?branch user: @ col: col: defer: 201 2drop ;s ;s ;s ;s branch 96 ?branch col: col: col: user: @ 1898 c! ;s col: col: user: @ 1503 over c@ r@ <> ?branch rdrop 266 dup col: col: var: @ + 27 ?branch 2drop con: ;s dup ?branch 322 var: ! col: var: @ ;s 119 ! user: @ col: var: col: 2 ;s 0= ?branch ;s swap col: 1895 r> var: @ + var: @ 78 ?branch rdrop ;s ;s ;s col: 1 <> ?branch i 1+ var: @ 4828 = ?branch @ dup ?branch 2dup 2 execute col: lit (?do) col: dup 17 nip execute col: con: lshift ;s 1110 cell+ ;s @ execute col: col: 4987 c! ;s ;s col: col: col: 917 col: col: var: @ 1- dup 15746 con: (hashkey1) ;s r> xor cells 1895 pick @ ?dup 0= ?branch >r 88 swap >r fp@ >r col: laddr# 9 nip execute col: user: col: con: 3669 @ ;s @ ;s lit + 750 @ col: lit user: ! ;s 1129 + ;s @ var: @ 1+ 3 and ?branch nip nip execute >body 1 ;s var: @ ?dup ?branch @ 27 swap ! ;s branch r> user: 1 drop ;s ;s ;s ;s branch 309 nip nip execute col: dup 0< 706 @ dup ?branch drop r> ;s 4 col: >r ;s ;s col: lit 7 ;s ;s ! ;s ;s dup 5 c@ ;s ;s branch col: sp@ 325 branch lit col: dup @ con: 6410 ;s (do) con: col: >r lit 17 ;s ! ;s ;s col: con: 4 ;s does-handler! ;s branch con: defer: 22 ;s var: @ 2dup u> 0= 954 lit col: dup @ con: = 108 ;s nip ;s dup col: ;s 208 ?branch ;s ?dup ?branch col: dup 2169 +! @ c! ;s ;s 2dup 875 col: dup col: col: col: var: 60 @ ?dup ;s ?branch ;s col: 1075 @ 0= col: col: r> r> 92 col: @ (f83find) ;s dup 0= 36 @ ;s +! ;s col: over 1 ?dup ?branch ;s ;s ;s branch 1 col: ?dup ?branch ;s >r var: 7 con: lshift ;s ;s ;s branch 2 col: user: @ var: col: con: 13 ! ;s ?branch ;s r> user: 4 var: r> ;s ;s branch col: 1162 u> lit and col: ?dup ?branch 102 ?branch rdrop ;s ;s con: = 2020 swap r> col: >r dup ?branch 1 rp@ user: ! execute col: user: 9773 c@ or swap c! ;s ;s 10 ;s ;s defer: col: col: user: 5695 ;s ;s col: col: col: var: 3 nip nip execute >body ;s branch 801 lit lit 2swap dup >r col: 22 2dup u> 0= ?branch var: ! 268 ?branch rdrop ;s ;s col: dup 7 cell+ var: ! ;s col: var: 150 >r cells sp@ cell+ dup cell+ 20 col: dup 0< ?branch col: col: 140 ?branch user: +! ;s 2drop lit 372 ?branch nip nip execute col: lit 7612 user: @ over min /string rot 1 ;s >r over >r lit col: 27 2drop con: ;s dup ?branch r> 1218 con: swap ! ;s user: @ 243 nip nip execute col: col: var: 32 @ ;s @ ;s ;s con: 774 d+ r> ;s (loop) unloop lit 857 and 0= ?branch @ lit r@ 2169 lit over +! @ c! ;s 4 = ;s ;s branch col: sp@ 56 execute col: col: user: @ ?dup 18 0= ?branch dup col: col: var: 119 execute col: col: var: @ var: 736 ;s ;s var: @ ?branch col: 84 nip execute col: ;s ;s branch 774 dup ?branch 2drop rdrop r> ?branch 315 col: ;s ! ;s ;s branch 5907 (do) 2dup i 2@ over <> 3314 col: col: cell+ ;s @ col: 322 user: ! ;s ;s var: ! 2 col: ?dup ?branch ;s over lit 1 and ?branch nip nip execute field: 40 @ swap con: - dup @ 69 execute col: col: defer: defer: col: 1430 col: swap >r swap user: @ 208 ;s ?dup ?branch col: dup >r 44 c! ;s ;s var: col: con: 76 con: (+loop) dup i - count 92 execute col: col: @ (f83find) ;s 156 dup ?branch nip branch dup @ 6 0< ?branch var: @ >r var: 387 lit = dup >r ?branch lit 32 swap ! ;s ;s ;s branch 6 ;s ;s col: var: @ ?branch 14 col: user: @ >r col: swap 1 con: col: >r defer: col: col: 169 ;s dup col: col: var: @ 443 ;s ;s ;s lit col: col: 10 + ;s 2@ 2dup con: write-file 76 + = ?branch i - con: 1 over >r lit col: >r dup 7 col: + ;s ;s branch col: 342 col: over + swap ;s swap 120 (?do) unloop ;s ;s swap user: 1106 + @ (hashfind) ;s ;s var: 103 ;s c! ;s ;s var: @ 15 var: @ + ;s ;s ;s 309 user: ! ;s ;s over col: 342 swap lit (+loop) unloop d>s ;s 750 con: - dup ! ;s col: 2 nip execute col: user: @ var: 76 over lit + = ?branch i 4 r> ;s ;s branch col: sp@ 4 ;s branch con: defer: noop ;s 5 swap (?do) unloop ;s branch ;s 992 @ ?branch defer: col: col: user: 980 branch user: @ con: col: col: 27 branch r> user: ! ;s user: 102 dup col: dup con: <> swap 736 unloop ;s ;s swap user: ! 1 branch @ dup ?branch drop var: 57 nip nip execute col: con: col: 2 branch lit pick @ ?dup 0= 50 >r r@ col: dup 1+ pick 630 var: ! lit col: var: @ 6 ;s ! ;s ;s col: lit 736 var: ! col: col: user: @ 17 0= ?branch ;s col: var: col: 1 ;s count ;s compare 0= >r 2 dup 0< ?branch drop con: col: 887 ;s @ execute col: col: user: 2320 ;s ;s user: @ 0= ?branch 1 @ ?branch ;s ;s ;s branch 1 execute move ;s branch col: sp@ 12 ! >r >r col: user: @ 801 col: con: swap ! ;s over 1 dup ?branch drop var: @ ?branch 17 ;s count defer: (type) ;s defer: 9853 cell+ dup c@ >r col: count 17 drop swap cell+ ! branch ;s 181 ;s dup ?branch rdrop branch ;s 325 - con: / ;s ?dup ?branch 325 swap - con: / ;s ?dup 322 nip execute col: col: col: col: 15 (+loop) unloop d>s ;s ;s var: 119 branch dup col: ;s var: ! 216 ;s @ execute col: col: var: 20 execute col: does: col: var: dup 5 execute col: over col: ;s @ 1 ?branch ;s col: user: @ ?branch 518 0> 0= ?branch nip ;s ?branch 4 ;s r> col: >r ;s ;s 1 dup ?branch 2dup 1- + c@ 965 0> ?branch nip nip execute col: 52 ;s ;s ;s branch ;s branch 1 nip nip execute col: col: 2dup 4 ;s (loop) unloop ;s ;s col: 518 ?branch nip ;s ?branch 2rdrop branch 1162 ! ;s col: dup 0= lit 46 ;s ;s branch dup ?branch dup 6099 ;s c! ;s ;s (loop) i 131 ! ;s col: defer: col: defer: 76 0= ?branch drop lit col: lit 322 var: @ ?branch var: @ var: 6099 (loop) i c@ col: col: col: 41 code-address! ;s ;s col: col: col: 1898 ;s +! ;s c! ;s col: 58 rdrop ;s ;s ;s col: col: 27 ?branch 1- i' i - unloop 11 ! ;s nip ;s col: lit 42 cell+ cell+ ;s col: lit user: 7 invert and ;s ;s ;s ;s 79 rot ! col: col: col: var: 460 ?dup ?branch ;s lit col: >r 1205 ;s c@ ;s xor r> col: 148 ;s 0= ?branch ;s col: var: 42 ;s ;s ;s col: dup col: 160 nip r> ;s ?branch var: col: 4 ;s col: lit var: +! col: 13 ?dup ?branch ;s col: ?dup ?branch 58 execute col: col: sp@ user: @ 315 2drop ;s branch ;s user: @ 4748 ;s ;s dup ?branch drop branch 518 2dup 2>r col: col: user: @ 1 ;s r> tuck - lit cells 8768 lit col: col: user: @ ;s 1 ?dup ?branch @ col: col: var: 249 col: lit cells + ;s @ 1895 r@ @ rot ! r@ swap 1110 cells + ;s ! ;s does: 13 rdrop ;s ;s ;s swap con: 102 swap con: <> and col: col: 14 ! execute col: col: user: @ 1 ;s ;s var: @ ?dup ?branch 3825 ;s ?dup ?branch 0> ?branch nip 10701 lit col: var: +! ;s col: 6 ?branch 2drop r> var: ! ;s 1895 (hashkey1) ;s xor cells >r var: 573 branch lit (+loop) unloop 2drop con: 102 @ ;s @ ;s over - 9204 > ?branch fp@ user: @ > 7 col: con: lshift ;s lit col: 325 ;s ;s ;s ;s user: col: 119 cell+ ;s @ dup 0< ?branch 2169 lit over < ?branch lit + 10 2@ d<> ?branch var: count con: 10701 ;s lit col: var: +! ;s 33 @ dup ?branch dup col: col: 6410 @ + ;s col: >r col: 1 @ ;s @ ;s ;s branch 1486 @ ;s ;s count col: dup 279 ;s col: lit col: user: @ 1 ;s ;s ;s ;s var: @ 1 ;s var: ! var: @ con: 1162 @ ;s user: ! lit col: 18 ;s ;s ;s branch 2dup u> 12 dup user: ! >r >r col: 71 col: dup ?branch r> r> user: 1 ! col: var: 2@ col: col: 6098 branch col: sp@ user: @ > 1 var: 2@ lit (?do) unloop 2drop 12 ;s does-code! ;s ;s rot swap 4 0<> ?branch 2drop col: lit does: 37 + @ user: ! lit /string 3 ;s >body user: @ ?branch ! 7 + ;s ;s col: col: user: 9 nip nip execute col: user: col: 15 ;s c! ;s ;s ;s branch 6 col: var: @ 0< ?branch lit 2 nip nip execute col: lit user: 1162 ;s ;s var: @ and ?dup 1162 >r 2dup 2dup r> col: dup 801 c@ lit - dup lit u< 857 ?branch @ lit r@ lit and 13 ;s ;s col: lit col: dup 119 cell+ ;s @ r> col: cell+ 4 nip execute col: col: lit var: 37 @ user: ! lit /string branch 17 ;s drop swap cell+ ! branch 13 ! ;s rdrop ;s col: r> 63 col: con: con: 1+ within 0= 319 negate user: +! lit over = 1 ;s @ ;s >r over >r 760 var: 2@ drop user: @ 2* 15 >r user: @ lit pick col: 1 2dup 1- + c@ lit <> 181 2drop ;s ;s ;s ;s drop 79 @ col: var: @ ;s rot 12 does-code! ;s ;s rot swap col: 789 ;s ;s branch @ dup ?branch 17 swap cell+ ! branch ;s ;s 1210 var: @ col: var: @ + 102 @ ;s @ ;s ;s var: 119 ;s @ r> col: cell+ cell+ 3669 lit + aligned ;s con: - 16 execute does: col: var: dup @ 1603 con: tuck 1- and - lit 11 ;s user: @ ?branch col: col: 13 ;s r> user: ! col: ?dup 1 var: 2! var: up! sp@ dup 1 defer: (type) ;s var: @ dup 21 lit (?do) unloop ;s ;s ;s 2 negate ;s ;s ;s 0= ?branch 40 con: - dup @ swap con: 9342 dup count + aligned >r swap 1 1+ /string ;s var: 2! var: 1 var: lit r@ write-file col: ?dup 322 col: var: @ ;s var: cell+ 1 >body @ col: col: col: col: 3047 ;s dup ?branch 2drop ;s branch 27 ;s branch r> user: ! ;s 990 ;s (loop) unloop ;s ;s lit 1 2* cells col: swap >r dup 750 ;s var: @ dup 0> ?branch 131 @ col: col: defer: defer: col: 17 ;s ! ;s ;s ;s lit 12 ;s col: var: @ ?branch var: 56 field: @ execute col: col: user: 162 nip execute col: lit col: >r 7 nip execute col: + ;s ;s 4772 lit /mod rot + swap does: 1430 drop rot user: @ um* d+ 82 ;s ;s ;s col: col: user: 35 nip nip execute con: ;s branch 32 @ ;s - col: col: col: 1 execute col: drop ;s ;s branch 18 ;s ;s swap col: col: col: 1205 xor r> col: col: var: @ 4987 ;s col: var: @ swap col: 6 ?branch dup var: ! ?dup ?branch 72 @ >r >r ;s user: ! 1 ?branch ;s >r var: lit r@ 119 ;s @ col: cell+ cell+ ;s 119 col: cell+ ;s @ dup 0< 1162 2dup r> col: dup field: @ 980 ?branch rdrop ;s branch user: @ 119 swap user: ! swap col: col: 6 lit = ?branch dup var: ! 1160 swap (?do) unloop ;s col: col: 387 r> ?branch r> user: ! ;s 147 2drop ;s ;s branch col: sp@ 1 drop var: @ ?branch col: col: 86 @ dup con: = ?branch con: 42 ;s ;s ;s col: cell+ cell+ 2 branch @ dup ?branch 2drop r> 57 unloop ;s ;s ;s branch col: 60 ?branch ;s col: user: @ ?dup 3 (loop) unloop ;s col: col: user: 76 con: (do) dup i - count 13 ;s user: @ close-file swap 2dup 71 ! r> user: ! >r ;s 79 d>s ;s ;s r@ rot col: 1210 and con: write-file col: ?dup ?branch 2 lit lit col: >r >r user: 1 over c@ lit <> ?branch col: 1 user: ! col: var: 2@ col: 19 ;s ;s ;s ;s swap ;s 1895 rot ! r@ swap col: lit 13 ?branch rdrop ;s ;s ;s swap 4041 ?branch read-line col: ?dup ?branch ;s 1 ;s var: ! ;s ;s branch 325 ?branch rdrop ;s branch lit col: 1205 lit col: var: @ dup >r 6 ! ;s col: var: @ 0= 20 ! ;s ;s col: var: col: 1 + swap ;s (?do) unloop ;s 20 0< ?branch col: col: col: col: 460 /string con: col: dup >r write-file 32 cell+ ;s ! ;s col: col: 6 ;s @ ;s col: con: col: 3 >body ;s branch col: sp@ user: 1368 con: um* rot + swap i 79 ;s con: ;s ?branch ;s ;s 573 (+loop) unloop 2drop con: ;s ;s 13 var: swap ;s col: user: @ 1 ;s branch dup ?branch 2drop col: 7612 r> move c! ;s con: col: 2 count col: var: @ col: col: 72 r> user: @ >r user: @ 79 ?branch col: col: cell+ ;s dup 322 ;s ;s var: ! col: var: 1 var: var: ! ;s ;s branch 402 ;s col: var: col: con: swap 801 ! ;s lit lit 2swap dup 14 2@ lit (?do) dup >r 2@ 124 nip nip execute col: col: defer: 17 + count cr col: col: r> 91 ;s col: col: user: @ 0= 10 ?dup ?branch ;s col: var: 2@ 160 >body nip r> ;s ?branch var: 20 lit >= col: col: r> r> 1 /string ;s var: 2! var: up! 19230 (loop) con: col: >r lit r@ 1 @ = ?branch i 1+ col: 3 con: + ;s col: col: var: 7 dup r> - ?branch dup user: 22 ?branch nip nip execute col: does: 131 rdrop ;s var: ! ;s swap 28 rdrop ;s 0> ?branch col: user: 13 var: ! ;s rdrop ;s col: 4041 user: @ ?dup ?branch read-line col: 1 @ ;s 1- con: rshift 1+ 1501 ;s ! ;s lit col: col: 6 con: ;s ;s branch col: sp@ 181 ?branch nip ;s dup ?branch rdrop 3 execute + ;s branch col: sp@ 33 @ ;s @ ;s ;s char+ 6 ;s ! ;s lit col: user: 29 ?branch faligned nip ;s col: user: 95 ;s ;s col: col: col: con: 42 col: cell+ ;s @ ;s ;s 20 - ?branch 2drop rdrop user: col: 6 - var: over cell+ ! dup 20 ! cell+ tuck ! cell+ tuck 1368 + swap i c@ + swap 748 @ dup 0> ?branch lit col: 3 nip nip execute + ;s branch 562 ;s ;s ;s ;s branch ;s 4379 col: var: dup @ cells + 6 - swap ! ;s con: @ 4 noop col: r> dup cell+ >r 76 (f83find) ;s dup 0= ?branch drop 6 0= ?branch var: col: con: swap 1 col: ?dup ?branch ;s var: ! 23 nip execute col: lit col: user: 7612 @ ;s @ ;s count + 1162 ;s ?branch col: cell+ count lit 119 ;s col: col: col: col: col: 736 user: @ ;s @ ;s tuck 331 col: con: swap ! ;s var: 13 lit ;s user: @ close-file swap 172 ! ;s code-address! ;s ;s col: 9370 lit and ?branch r> lit and 7612 c! ;s con: col: col: user: 4 ?branch con: min >r var: r@ 29 ;s nip ;s col: dup @ 13 ! cell+ var: ! ;s rdrop 28 ;s code-address! ;s ;s lit col: 387 ?branch 2drop rdrop r> ?branch r> 17 con: <> ?branch col: over var: 1 ?branch @ col: col: var: @ 1 @ ?dup ?branch @ col: col: 268 ;s ;s col: dup 0= col: 2169 @ lit max col: >r lit 739 con: swap col: ;s ! ;s 1162 col: dup lit u> lit and 14 >r col: swap >r dup allocate 131 ;s ! ;s col: defer: col: 750 col: 2drop col: col: col: user: 6 swap ! ;s var: @ lit 1 1+ var: @ = ?branch i 315 user: +! ;s 2drop ;s branch 29 var: @ dup col: con: + 460 ;s 2drop col: defer: col: col: 7 branch col: var: @ dup var: 8 @ var: ! ;s ;s branch 387 >r ?branch lit /string col: over 483 lit r@ lit and ?branch 1- 1162 ?branch var: @ @ over ! 736 ;s @ con: = swap col: 3 ;s invert over c@ and swap 22 - col: col: user: @ 0= 6 var: @ ?branch over col: lit 11381 col: col: dup field: @ field: 1430 user: @ um* d+ r> ;s 3 col: cells var: @ + @ 1075 col: user: @ 0= col: col: 98 ?branch rdrop ;s 0> ?branch col: 4 ?branch nip nip execute cells ;s 1314 @ field: @ execute col: col: 748 0> ?branch lit col: con: lshift 5410 unloop ;s ;s ;s dup ?branch 173 rdrop ;s ;s col: col: col: 119 var: ! ;s swap ! var: 750 @ ;s ;s var: ! var: 1110 + ;s ! ;s does: col: 20 cell+ tuck ! cell+ var: ! 9853 >r col: count lit and + 2199 >r swap >r ;s count ;s 12 does-code! ;s ;s swap dup user: 26 + ;s ! ;s ;s branch 2889 ;s ;s ;s dup ?branch lit 20 var: @ dup var: <= ?branch 22 swap ! ;s col: dup con: 14 ?branch ;s swap 2dup 1+ var: 1 @ ;s r@ write-file col: ?dup 736 ?branch dup col: dup cell+ @ 28 ! ;s ;s col: r> dup 1 ! ;s branch ;s ;s branch 1162 ;s ;s ! ;s ;s col: 315 ;s 2drop ;s branch ;s user: 315 @ execute col: lit col: >r 2 nip nip execute create-file ;s branch 2 ?branch dup defer: col: cell+ dup 34 c! ;s ;s ;s branch col: 20 con: - dup @ swap var: 4 r@ <> ?branch rdrop ;s lit 73 user: ! user: col: con: swap 9 execute col: user: col: con: swap 119 col: cell+ cell+ ;s @ r> 2169 col: user: @ lit max col: 6410 (do) con: col: >r lit r@ 1 nip execute c! ;s branch col: 5410 ;s ;s ;s dup ?branch col: 1 tuck - dup ?branch 2dup 1- 1 ;s count defer: (type) ;s 2dup 736 ;s ?branch drop ;s branch @ 10 con: = ?branch col: dup @ 181 0> ?branch col: lit col: dup 60 ?dup ;s ?branch ;s col: user: 724 drop user: ! col: user: @ 76 over lit + = ?branch con: 6 ;s drop col: r> /does-handler + 13 1- >r r@ pick r@ pick 1224 rdrop ;s cell+ tuck c@ xor 4772 swap col: con: - ;s con: 35 execute col: col: con: col: col: 616 ;s (loop) unloop ;s ;s swap 3 ;s ;s ! ;s ;s branch 5 con: ! ;s ;s branch col: 933 dup ?branch ;s dup ?branch ;s 13 u>= ?branch col: var: @ dup 13 r@ pick rdrop dup col: con: 9342 + aligned >r swap >r ;s 14 branch dup ?branch rdrop ;s nip 58 user: ! >r ;s col: ?dup 1 con: col: lit or ;s create-file 25 +! ;s col: col: user: @ 7612 min /string rot dup con: = 8 nip nip execute does: dup var: 6410 ;s rot i c! (loop) unloop 5 nip execute @ ;s branch col: 13 ;s ;s ;s swap con: - 22 over - swap ! ;s col: 1 ;s nip 0<> ;s 0= col: 18 branch ;s ;s col: lit >code-address 120 col: lit cells + ;s var: 1220 ;s count ;s con: col: dup 1 1+ col: tuck allocate col: col: 6 ;s ;s col: lit user: ! 20 col: var: @ dup lit >= 319 swap - col: dup negate user: 1162 lit u> lit and col: ?dup 1 var: @ = ?branch i 1+ 573 con: ;s ;s ;s dup ?branch 1898 dup col: col: col: user: @ 1163 ;s ;s ;s ;s col: lit 181 ?branch col: lit col: dup @ 160 >r >body nip r> ;s ?branch 44 swap ! ;s col: col: user: 13 r@ pick r@ pick rdrop dup 3 >body user: @ ?branch ! ;s 22625 dup field: @ field: @ execute 117 drop ;s col: lit cells + 2 and ?branch nip nip execute 1- 7612 ;s count + c! col: col: 7 swap r> col: 1- tuck + 3 con: var: @ tuck col: col: 654 col: dup @ dup ?branch drop 1 lit (?do) i col: cells var: 801 r> user: ! ;s user: @ 322 @ ;s var: cell+ ! col: 21 does-code! ;s ;s ;s ;s branch 15 execute col: col: r> user: @ 14 ?branch var: 2@ lit (?do) dup 85 user: ! rdrop rdrop rdrop lit 119 swap ! var: col: con: swap 736 ;s col: defer: defer: col: col: 4 ;s ;s var: @ field: @ 9342 r> r> dup count + aligned 880 @ field: @ execute col: @ 1 ?branch nip nip execute col: * 1532 ;s branch ;s user: @ 0= 6 defer: col: cell+ dup @ 0< 7612 ;s @ ;s count + c! 7 ?branch nip nip execute col: + 22 >r ?branch rdrop ;s ;s var: 5 nip execute col: over col: ;s 1 ;s nip 0<> ;s col: 0= 2048 pick ! ! ;s lit pick 1 @ lit (?do) i col: cells 1898 @ ;s @ ;s dup faligned 2169 @ c! ;s ;s 2dup d0= 1212 col: ?dup ?branch ;s var: @ 1 ?branch nip nip execute move ;s 4 compare 0<> ?branch 2drop col: lit 102 col: dup con: <> swap con: 1 nip execute col: con: + ;s 4 ?branch nip nip execute col: - 750 user: @ lit col: col: col: 2 execute col: ?dup ?branch ;s ;s 5 @ var: ! ;s ;s ;s 13 >r drop col: var: @ dup 1343 col: defer: col: defer: col: col: 72 @ >r user: @ user: @ 1216 col: lit >code-address ;s col: col: 7612 @ over min /string rot dup 10 ;s @ con: = ?branch col: 25 ! ;s ;s ;s branch ;s 1129 ;s @ var: @ 1+ dup 13 ?branch rdrop ;s ;s ;s r> 801 dup >r col: lit (?do) count 2 ;s branch ;s ;s branch ;s 74 swap ! ;s drop branch ;s 150 sp@ cell+ dup cell+ rot move 41 nip nip execute col: defer: col: 19 ;s char+ c@ ;s col: lit 15746 var: @ + @ (hashfind) ;s 102 ;s over - swap ! ;s 14 (?do) dup >r 2@ dup >r 1 var: @ ?branch col: col: r> 460 user: ! drop ;s user: ! 27 nip ;s user: ! ;s col: 1 ;s 1- con: rshift 1+ r@ 1 ! ;s cr col: col: r> 3 @ ?branch ;s branch ;s user: 206 nip execute does: @ execute does: 875 col: ;s @ con: <> ?branch 17 negate ;s ;s ;s dup 0= 59 swap ! ;s ;s branch col: 920 ;s count ;s con: write-file col: 117 ;s @ dup 0< ?branch col: 7 ?branch nip nip execute 2drop ;s 42 ;s ! ;s ;s branch col: 14 + swap cmove var: over r> 7 col: con: lshift ;s ;s ;s 158 (loop) col: dup ;s col: col: 119 @ r> col: cell+ cell+ ;s 787 branch @ dup ?branch 2dup swap 857 0= ?branch @ lit r@ lit 1 tuck - lit cells / ;s 14 open-file 0= ?branch nip nip r> 15 col: swap >r dup allocate col: 750 @ min con: write-file col: ?dup 122 >r >body nip r> ;s dup 1 ;s @ ;s r> tuck - 706 ;s ;s ;s ;s col: col: 86 ?branch rdrop ;s con: var: @ 10 2dup con: write-file col: ?dup ?branch 13 lit ;s r> user: ! col: 9 var: ! ;s ;s branch col: 20 swap var: ! ;s over r@ 12 nip execute col: lit lit ! 1 branch dup ?branch 2drop col: col: 72 user: @ user: @ = ?branch 406 >r dup ?branch rdrop ;s >r 639 dup cell+ >r @ col: col: 980 ! lit user: ! ;s 0= 13 con: * 1- >r r@ pick 14 user: ! execute col: col: user: 1898 ;s @ ;s dup faligned swap 10870 var: @ ;s ;s lit col: 858 ;s con: col: col: defer: col: 4 execute col: var: @ ?branch col: 327 con: swap ! ;s lit var: 1 or ?branch 2drop dup >r lit 57 ;s swap col: col: var: @ 27 ;s dup ?branch r> swap ;s 1895 col: lit fill ;s r> ;s 1493 @ col: col: col: user: @ 7 code-address! ;s ;s ;s branch col: 1419 d0= ?branch col: user: @ lit 35 ;s dup aligned swap (?do) con: 1856 ;s ;s lit col: col: col: 4 col: lit lit col: >r dup 342 @ + ;s col: >r lit 4 ?branch nip nip execute col: = 172 swap (?do) unloop ;s ;s lit 4805 user: @ ;s +! ;s col: 325 ;s ;s ;s user: col: con: 1690 var: count r> write-file ;s col: 630 ?branch lit var: ! lit col: 933 (hashfind) ;s ;s dup ?branch ;s 1 con: ! ;s branch col: var: 6410 col: dup 0< ;s r> con: 1 var: @ con: cells col: lit 1410 con: swap ! ;s ;s ;s 801 col: lit (?do) count col: user: 10547 (parse-white) 2dup + r> - 1+ 44 0> ?branch dup col: ;s @ 19 ;s swap ;s branch ;s user: 331 con: swap ! ;s var: @ 455 ! drop ;s ;s ;s branch 25 (?do) i' i - lit min 13 ;s rdrop ;s col: r> dup 88 col: >r sp@ r> swap >r 4772 dup col: col: con: dup @ 57 ;s count ;s col: col: r> 406 r> col: >r dup ?branch rdrop 750 2* cells + ;s 2@ var: 6752 col: var: @ + ;s col: 3154 dup @ lit pick ! ! 15 drop col: con: @ col: 2dup 446 ! ;s lit var: ! ;s 58 r> user: ! >r ;s col: 14 swap ! ;s lit col: >r 14 lit (?do) dup >r 2@ dup 1 var: 2@ 2* cells col: swap 1452 @ ;s user: ! drop ;s 1368 swap con: um* rot + swap 342 col: >r lit lit r> con: 10 var: 2! col: col: r> r> 1648 and ?branch negate ;s ;s dup 319 = ?branch branch drop ;s ;s 14 col: ?dup ?branch ;s ;s r> 178 min user: ! ;s col: var: 71 user: +! user: @ user: ! 873 user: @ ;s does-code! ;s ;s 20 >r ?branch rdrop ;s tuck ! 13 0= ?branch ;s ;s col: drop 9204 ?branch ;s defer: col: defer: col: 628 ;s lit col: col: col: var: 44 var: @ ?branch col: lit col: 387 rdrop r> ?branch dnegate r> user: 5 0= ?branch ;s >body user: @ 20 @ ;s col: col: con: + 750 var: ! user: @ col: con: 1291 ! ;s does: col: var: dup 1 ;s ;s col: 2swap 2dup col: 724 ?branch ;s ?branch drop user: ! 25 max lit (?do) i' i - 7 col: col: defer: col: defer: col: 81 ;s col: ?dup ?branch ;s ;s 319 col: user: @ swap - col: 17 @ dup con: = ?branch drop 796 ! col: col: user: @ ;s 36 ;s @ ;s over char+ col: 292 dup faligned swap (?do) unloop ;s 4 cmove var: r> ;s ;s branch 1 + lit swap c! 1+ col: 2 ;s (loop) unloop drop ;s ;s 3 2drop ;s ;s ;s col: sp@ 1 branch @ dup @ ?branch dup 15 1+ user: +! ;s user: @ 272 con: swap ! ;s ;s defer: 6099 col: 2dup col: var: @ col: 8 col: var: +! ;s ;s branch 93 over 0<> ?branch faligned nip ;s 801 con: swap ! ;s over c@ 14 ?branch nip nip r> rdrop lit 1908 ;s dup ?branch 0> ?branch col: 6279 var: @ col: col: dup field: 1 r> user: +! lit ;s (+loop) 1 ?branch drop var: @ ?branch col: 460 @ /string con: col: dup >r 10 ?branch ;s col: var: 2@ drop 670 ;s (loop) unloop ;s ;s user: 18 nip execute col: col: var: dup 856 ;s var: col: con: swap ! 1162 ;s ;s lit col: user: @ 325 / ;s col: user: col: con: 1 ?branch nip nip execute 2! ;s 7 execute ! ;s branch col: sp@ 1216 @ ;s dup user: ! lit 14 col: ?dup ?branch ;s var: swap 1 1- ;s ;s branch col: sp@ 169 ;s ;s dup col: col: var: 169 @ ;s ;s lit col: col: 2 ;s dup rot ! swap col: 76 lit + = ?branch i - 4 ! ;s ;s drop col: r> 20 @ dup lit >= col: col: 138 user: @ ;s @ ;s over 14 move ;s col: var: 2@ tuck 22841 col: user: @ ;s user: @ 1 2* ;s ;s branch col: sp@ 19230 c! (loop) con: col: >r lit 2 rot ! swap col: lit fill 32 - col: col: col: user: @ 102 col: col: col: con: @ col: 6099 c! ;s ;s (loop) i c@ 3 execute >body ;s branch col: sp@ 1 ;s ?dup ?branch r> user: +! 119 swap col: ;s ! ;s lit 60 lit col: lit lit ! user: 6 u<> ?branch drop ;s dup col: 2 ?dup ?branch ;s ;s branch col: 1224 ;s cell+ tuck c@ xor swap 1 swap 1+ /string ;s ;s col: 257 ! drop ;s ;s branch col: 119 ! ;s >r dup col: col: 3 * ;s ;s branch col: sp@ 745 ?branch var: col: con: swap ! 1162 dup lit u> lit and col: 1 write-file col: ?dup ?branch ;s r> 119 ;s branch dup col: ;s var: 1 over + swap ;s (?do) unloop 322 ! col: var: @ ;s var: 9 count col: col: 2dup lit col: 10 2* cells + ;s 2@ 2dup 750 c! ;s ;s col: var: @ 13 r@ pick r@ pick r@ pick 75 drop 2dup col: col: user: @ 7612 rot dup con: = ?branch drop 1 i 1+ var: @ = ?branch 119 ;s swap ! var: col: con: 692 ?branch col: col: user: @ ;s 16 lit var: +! col: var: @ 67 nip execute col: var: col: con: 414 lit = dup >r ?branch col: 12 ;s ! ;s r> r> user: 158 ;s c! ;s ;s (loop) col: 15 ! ;s ;s ;s col: col: 20 unloop ;s ;s ;s ;s branch 3 2drop ;s ;s col: con: + 57 >r ;s count ;s col: col: 352 c! ;s ;s ;s ;s branch 20570 ?branch lit /string branch dup ?branch 5 char+ c@ ;s ;s branch col: 79 rot col: col: var: @ + 1129 @ var: @ 1+ dup con: 1652 ;s ;s ;s 2drop ;s branch 10547 @ /string (parse-white) 2dup + r> 15 ;s ;s ;s branch ;s col: 1895 @ over cell+ count lit and 13360 2dup i 2@ over <> ?branch 6 drop ;s dup col: lit over 22 ?branch var: @ ?branch col: col: 1 user: @ = ?branch user: @ 75 ;s ;s 2drop branch ;s branch 774 ;s (loop) unloop lit branch ;s 13 branch ;s ;s ;s branch ;s 17 nip nip execute col: con: lshift 2 col: tuck allocate col: col: r> 1 user: @ ?branch ;s ;s ;s 319 @ swap - col: dup negate 14 user: ! lit user: ! user: 75 ?branch nip ;s dup ?branch 0> 27 ?branch 2drop rdrop user: col: con: 71 ;s does-code! ;s ;s ;s col: 142 >r ?branch rdrop ;s 0> ?branch 10145 user: @ ;s @ ;s con: 3105 ! ;s dup ?branch 2drop ;s 272 swap ! ;s ;s defer: noop 750 col: ?dup ?branch ;s user: ! 1205 @ + ;s c@ ;s xor 38 execute col: col: col: r> dup 1 col: con: swap ! ;s cr 750 ! user: @ col: con: col: 736 ;s var: ! ;s var: @ 1 @ ?branch drop ;s ;s branch 17 ! ;s ;s col: con: @ 6 ;s dup col: lit over 0<> 1 col: user: @ >r var: @ 128 ?branch col: r> dup cell+ >r 22 ;s ;s con: - col: col: 2 ;s ;s lit lit col: >r 30 >r ?branch rdrop ;s ;s over 20570 over c@ r@ <> ?branch lit 20 execute col: dup 0< ?branch col: 628 lit col: col: col: var: @ 1690 con: col: dup >r write-file ?dup 750 cells + ;s 2@ var: 2@ 13 cell+ var: ! ;s rdrop ;s 1 i 1+ col: cells var: @ 355 ! r> user: ! r> user: 7 + swap invert and ;s ;s 1895 ?branch @ over cell+ count lit 1898 ;s move ;s col: col: col: 2 - dup lit u<= ?branch drop 325 rdrop ;s branch lit col: dup 322 ! ;s ;s var: ! col: 748 ! col: col: var: dup @ 41 execute col: col: col: var: dup 15746 @ >r 2dup col: con: (hashkey1) 1895 over cell+ count lit and col: 2 nip execute over ;s branch col: 7612 @ ;s col: over >r rot 5376 user: @ ;s +! ;s ! 7179 ;s (loop) con: col: col: col: 268 dup 0= col: col: col: r> 523 ;s ;s dup col: ;s var: 109 ;s ;s ;s swap user: ! 1 execute 2! ;s branch col: sp@ 2 and ?branch nip nip execute over 33 ;s @ dup ?branch dup col: 22 @ ?branch col: col: col: user: 1317 negate ;s ;s ;s dup ?branch 736 tuck swap ! col: con: col: 5 ?branch var: @ over ! lit 19 col: col: con: <> col: col: 25 - lit min 2dup defer: (type) 13 r> rot col: con: <> col: 1 nip 0<> ;s 0= col: 0= 2 ;s ;s ;s col: lit cells 119 <> ?branch dup col: cell+ ;s 5 ;s 0= ?branch ;s >body user: 32 col: col: con: col: col: defer: 1 swap ;s 2dup col: var: 2@ 1054 ;s +! ;s ! ;s ;s 6099 dup ?branch defer: col: 2dup col: 4033 ?branch col: col: dup count lit 483 lit and ?branch 1- r> lit 3 var: @ ?branch ;s branch ;s 740 var: 2@ d<> ?branch ;s defer: 1212 ?dup ?branch ;s var: @ col: 760 2@ drop user: @ 2* cells 11 @ ?branch col: col: r> dup 6 @ dup ?branch 2drop r> var: 1895 0= ?branch >r drop r@ @ 3248 col: con: swap ! ;s ;s 750 ;s 2dup d0= ?branch ;s col: 2 allocate col: ?dup ?branch ;s over 1895 + dup @ 0< ?branch @ 117 swap ! ;s user: col: con: 9853 and + faligned ;s r@ lit 37 ?branch cells var: + @ user: 25 @ u>= ?branch drop con: ;s 736 ;s tuck swap ! col: con: 1 (?do) unloop 2drop drop con: ;s 2 lit lit col: ;s ;s ;s 244 col: lit col: dup @ con: 750 ?branch ;s user: @ col: lit 2 rdrop ;s dup rot ! swap 2 execute col: lit user: ! ;s 1923 @ cells + ;s @ var: 18 ;s ;s ;s var: ! ;s 7 dup field: dup var: ! defer: 224 >r ?branch rdrop ;s ;s con: 1 nip execute col: * ;s ;s 27809 lit r@ um/mod r> swap >r 15 ?branch drop r> col: col: col: 824 col: @ (f83find) ;s ;s dup 4828 ?branch @ dup ?branch 2dup cell+ 62 >r >body nip r> ;s 0= 13 ?branch ;s col: ?dup ?branch ;s 5907 lit col: drop var: dup @ 52 nip execute col: dup col: dup 17 cell+ @ = ?branch lit cells 3314 ;s @ col: col: col: var: 79 @ ;s rot ! col: col: 35 con: ;s branch col: sp@ user: 16 nip nip execute does: col: var: 13 ;s ;s swap con: - swap 327 ;s lit var: ! ;s ;s 6 over ! lit var: +! var: 4772 swap c! ;s ;s ! ;s 27809 col: >r lit r@ um/mod r> 3 execute col: col: ;s ;s ;s 35 and ?branch nip nip execute con: 4 ;s ;s ;s var: @ field: 4 ;s 2dup defer: (type) compare 0<> 2 nip execute 1- ;s branch col: 21 nip nip execute col: var: @ 15 dup allocate col: ?dup ?branch ;s 1 2dup r> -rot move ;s drop 1 rp@ user: ! fp@ user: ! 4041 @ ?branch col: user: @ ;s 7612 >r user: @ over min /string 334 user: @ 0= ?branch ;s ;s 97 con: + ;s ;s con: ;s 460 ;s col: ?dup ?branch ;s defer: 750 user: @ min con: write-file col: 2 @ ?branch dup defer: col: cell+ 158 ;s (loop) col: dup ;s col: 79 ! col: col: col: var: @ 5004 + swap col: var: + c@ 11 + ;s @ ;s ;s branch 60 user: ! col: col: user: @ 309 ;s lit col: var: @ dup 119 col: col: lit cells + ;s 4169 dup ?branch >r >body nip r> 2 user: @ var: col: con: swap 801 over c@ lit = dup >r 2020 >r defer: col: col: user: @ 60 ?dup ;s ?branch ;s ;s col: 1 execute col: col: 2dup lit col: 1 >r var: @ lit (?do) i 103 + ;s c! ;s ;s var: 750 dup @ tuck - ;s con: 750 var: @ 0<> ?branch col: col: 11 nip ;s col: lit cells + 1162 user: @ ?dup ;s ?branch col: 14 ;s swap 2dup 1+ var: 2! 4 col: - ;s ;s branch col: 8 nip execute col: var: +! ;s 517 ;s lit col: >r defer: col: 6 dup var: ! ?dup ?branch ;s 29 0<> ?branch faligned nip ;s col: 1162 user: ! ;s col: dup 0= 1427 @ u>= ?branch con: ;s ?branch 72 col: r> user: @ >r user: 1210 col: ?dup ?branch ;s user: @ 468 execute col: col: user: @ ?branch 4772 does: + c@ ;s ;s over 1 ?dup ?branch ;s >r var: lit 748 ?branch lit col: con: lshift ;s 21 execute col: col: lit user: ! 22073 dup ?branch over c@ r@ <> 206 execute does: @ execute does: dup 13 r> user: ! col: ?dup ?branch 1 con: swap ! ;s rp@ user: 6 var: ! ?dup ?branch ;s col: 2048 @ lit pick ! ! ;s 20 ! cell+ tuck ! cell+ var: 280 ;s user: ! drop ;s branch 2 execute col: var: ;s ;s branch 2 ! col: defer: col: defer: col: 5897 user: @ con: col: col: defer: 1 branch dup ?branch rdrop ;s over 1216 ;s col: lit >code-address ;s col: 181 drop branch ;s user: @ 0= 6 ;s col: var: @ 0= ?branch 736 ?branch drop ;s branch @ dup 1 col: 1- ;s ;s branch col: 529 ;s ;s ;s branch ;s user: 16 ;s c! ;s ;s branch col: 746 ;s lit (?do) unloop ;s col: 736 user: @ ;s @ ;s var: 76 = ?branch i - con: - 13 ;s ?branch ;s r> user: ! 1166 field: @ execute col: col: col: 465 ?branch col: col: r> r> dup 5 nip nip execute col: con: swap 1895 0< ?branch @ over cell+ count 2456 @ cells + ;s ! ;s 2 nip nip execute over ;s branch 72 ! user: @ >r >r ;s 14 >r >r ;s user: ! lit 1 create-file col: ?dup ?branch ;s >r 4987 @ ;s ;s col: var: @ 16 ?branch ;s ;s dup ?branch col: 27 @ col: dup con: ! col: 1 ! execute col: user: @ >r 16 ! ;s lit col: dup @ 460 +! ;s con: write-file col: ?dup 19230 rot i c! (loop) con: col: 6099 2dup col: var: @ col: col: 5 ;s ;s char+ c@ ;s ;s 216 ! col: cell+ cell+ ;s @ 3 dup var: ! defer: drop ;s 22 user: ! ;s var: col: con: 119 @ col: var: col: con: swap 6 col: dup lit = ?branch dup 22 ;s col: dup con: ! col: 36 +! ;s col: over >r rot 1168 dup @ 0< ?branch var: @ 33 branch dup ?branch drop r> ;s 2169 + col: col: col: col: user: 3669 @ ;s lit + aligned ;s 15 ;s r> drop col: con: @ 36 @ ;s @ ;s over char+ 37 - dup lit u< ?branch cells 14 dup >r 2@ dup >r var: 119 + ;s @ col: cell+ cell+ 14 var: 2@ lit (?do) dup >r 2 ;s ;s dup ?branch ;s nip 334 ;s ;s user: col: con: swap 1532 nip col: cell+ cell+ ;s @ 1895 tuck cell+ ! r> var: @ 16 drop branch ;s ;s ;s branch 9853 ;s dup ?branch col: cell+ dup 17 ;s col: con: @ col: 2dup 50 * 1- >r r@ col: dup 32 @ ;s ;s con: var: col: 2 var: ;s ;s branch col: sp@ 54 @ ;s ;s branch col: sp@ 13 rdrop ;s ;s ;s r> r> 1 col: var: 2@ 2* cells col: 4 does-handler! ;s branch con: defer: noop 1 lit cells / ;s var: 2! 1 +! lit ;s (+loop) i col: 1 ;s compare 0= >r 2dup col: 13 ;s ;s branch ;s col: lit 752 2drop ;s ;s ;s ;s lit 1606 dup faligned swap (?do) con: col: 2583 ;s ;s ;s ;s ;s user: 15 unloop 2drop ;s ;s var: @ 32 @ ;s @ ;s - col: 1162 ?dup ;s ?branch col: cell+ count 9204 @ > ?branch ;s defer: col: 4 +! ;s user: @ ?branch con: 120 var: @ ?branch dup col: lit 15 r> col: col: col: col: user: 69 nip execute col: col: defer: defer: 2 swap >r ;s count ;s compare 58 ! ;s lit user: ! lit 44 xor swap c! ;s ;s var: 3 ;s col: col: 2dup lit col: 4845 ?branch 2dup cell+ @ = ?branch 46 ;s col: col: var: @ ;s 2169 < ?branch lit + col: col: 2 swap col: lit fill ;s ;s 736 user: @ col: col: col: user: 1 ?branch ;s nip 0<> ;s col: 2048 dup lit pick col: dup @ 1 nip var: 2! ;s defer: noop 6313 (loop) unloop 2drop ;s ;s ;s 736 var: @ col: var: ! ;s 736 ! ;s ;s col: col: var: 1158 var: @ and ?dup ?branch 2drop 1210 write-file col: ?dup ?branch ;s col: 1210 @ col: var: @ + ;s 6410 ;s col: >r col: dup 0< 736 ! ;s var: ! col: col: 3278 i 2@ over <> ?branch drop 387 /string col: over c@ lit - 22 ;s ;s var: @ 2dup u> 12 ! col: col: col: user: @ 15 ?branch 1+ user: +! ;s user: 736 @ dup ?branch dup col: dup 160 dup ;s col: col: col: var: 325 ?branch 1- <> col: col: r> 852 ;s (?do) i c@ col: col: 6 @ ;s col: con: col: col: 28 ;s ! ;s ;s col: r> 873 col: col: user: @ ;s does-code! 102 @ ;s over - swap ! 1 rdrop rdrop lit ;s ?dup ?branch 17 unloop drop ;s drop swap cell+ 1430 ?branch con: ;s ?branch col: swap 1 nip nip execute col: 1- ;s 750 ;s ;s col: var: @ 0<> 40 - dup @ swap con: - 1669 0> ?branch col: col: col: col: 3 lit = ?branch con: ;s ?branch 309 ;s over col: over col: ;s 5004 col: var: @ swap col: con: 19 and ?branch nip nip execute var: 1 - dup ?branch 2dup 1- + 14 + 2! ;s var: 2@ nip 10 cells + ;s 2@ 2dup con: 7612 ;s @ ;s col: over >r 1 drop con: ;s ?branch col: user: 980 ! ;s 0= col: col: r> 650 user: @ swap - con: / 15 ;s ;s var: @ + ;s 1 over 1- con: rshift 1+ col: 867 ;s col: r> /does-handler + col: 1895 ;s r> ;s tuck cell+ ! 774 ?branch user: @ dup 0> 0= 34 con: = ?branch lit col: dup 523 does-code! ;s ;s ;s dup col: 10 col: ?dup ?branch ;s col: var: 109 ;s does-code! ;s ;s ;s swap 13 rdrop rdrop rdrop lit ;s r> 74 = ?branch col: col: col: user: 208 ;s dup ?branch ;s ?dup ?branch 146 nip execute col: lit col: var: 62 ;s dup col: ;s @ con: 7 c@ lit = ?branch 2drop rdrop 3393 con: = ?branch col: col: cell+ 127 col: cell+ cell+ ;s ! ;s 1895 lit cells lit col: lit pick 15 nip execute col: lit lit col: 1 2! var: up! sp@ dup user: 319 over = ?branch branch drop ;s 58 >r ;s user: ! user: ! 17 (type) ;s defer: (type) lit does: 750 - dup ! ;s col: col: 5004 var: @ swap col: con: rshift 1 allocate col: ?dup ?branch ;s var: 1 @ lit > ?branch con: lit 1 execute col: con: col: >r defer: 460 ;s user: ! drop ;s user: 4 col: = ;s ;s branch col: 4169 ?branch >r >body nip r> ;s 4 var: ! ;s ;s r> col: 20 ! ;s over r@ u>= ?branch 1 <> ?branch col: col: 2dup lit 965 dup ?branch 0> ?branch nip nip 268 rdrop ;s ;s col: dup 0= 14 + col: dup col: var: @ 119 + ;s @ dup col: ;s 750 col: col: user: @ lit max 119 user: ! user: @ col: var: 25640 r> ;s rot i c! (loop) 1 nip execute field: ;s branch col: 4 and ?branch nip nip execute cells 3047 dup ?branch 2drop ;s branch col: 1 1+ r@ write-file col: ?dup ?branch 1895 fill ;s r> ;s tuck cell+ 1035 ?branch 1+ user: +! ;s 2drop 14 col: col: user: @ ?branch col: 3 r@ write-file col: ?dup ?branch ;s 17 count cr col: col: r> r> 172 ;s col: var: @ 1- dup 13 >r lit col: 1+ con: * 23 execute col: lit col: user: @ 4348 lit and ?branch ;s ;s ;s 5013 ;s ;s dup c@ 0= ?branch 79 ;s ;s con: ;s ?branch ;s 1 @ col: col: var: @ ;s 3 unloop d>s ;s ;s ;s ;s 573 ;s ;s ;s dup ?branch ;s 36 1+ r> move c! ;s col: 2020 >r over - dup r> ?branch 4772 ;s con: / col: col: lit 759 ;s ;s ;s ;s lit col: 119 user: ! ;s ;s dup col: 3669 ;s lit + aligned ;s con: 1486 user: ! col: col: var: @ 980 c@ 0= ?branch 2drop col: user: 131 0= ?branch ;s col: var: @ 11 ?branch col: col: r> dup cell+ 15 nip ;s - dup ?branch drop 5 unloop 2drop ;s ;s ;s col: 342 1- (do) con: * swap con: 7 ;s col: con: col: col: col: 2 ;s swap col: cell+ cell+ ;s 1106 ;s ?branch var: @ col: lit 25 lit does: swap lit max lit 14 r> rdrop lit branch unloop 0<> 5 nip execute col: con: swap ! 9642 ;s @ ;s lit col: col: 1162 ;s ! ;s ;s col: defer: 19 var: ;s branch col: sp@ user: 750 user: @ ;s user: @ min 13 rdrop rdrop lit ;s r> user: 1 ;s r@ write-file col: ?dup ?branch 736 var: ! ;s ;s col: defer: 794 cells + ;s @ var: ! 1 ;s compare 0= r> or ?branch 125 col: user: @ ?branch col: r> 27 2drop user: ! col: var: col: 5 col: col: col: lit col: dup 76 con: - unloop ;s ;s ;s 1166 @ ?dup ;s ?branch var: @ 573 lit (+loop) unloop 2drop con: ;s 15 @ lit pick col: lit over 736 con: = swap col: cell+ ;s 1 ?branch nip nip execute col: 2* 19 char+ c@ ;s col: lit col: 21 ;s does-code! ;s ;s ;s ;s 992 ?branch defer: col: col: user: @ 2020 ?branch rdrop ;s >r over - 20 ;s col: col: con: + ;s 41 @ ;s ;s ;s branch ;s 137 dup 0< ?branch col: col: col: 1 0<> ;s col: 0= ?branch var: 76 (+loop) dup i - count lit 72 (f83find) ;s ;s dup ?branch drop 86 @ ! ;s ;s branch col: 342 + ;s col: >r lit lit 48 nip execute col: col: defer: noop 2046 lit pick + (loop) dup lit 49 faligned nip ;s user: ! ;s 1 0= col: 0= ?branch ;s ;s 84 nip nip execute col: col: r> 518 ?branch 2rdrop branch ;s branch col: 18159 @ ;s user: @ ;s 2dup 290 col: lit col: user: @ swap 14 0<> lit and col: ?dup ?branch 1 + c@ lit <> ?branch 2dup 17 ?branch lit cells + count cr 851 ;s ;s branch ;s user: @ 1220 ;s con: col: dup >r write-file 100 r> ;s r@ col: dup 1+ 556 col: lit lit ! user: col: 7612 @ ;s @ ;s col: over 750 ;s col: var: @ var: @ 12 execute col: user: @ col: col: 5 var: @ ?branch col: con: @ 5334 ;s ;s dup ?branch nip nip 9342 count + aligned >r swap >r 9370 and ?branch r> lit and ?branch 280 @ execute col: user: @ ?branch 6048 unloop 2drop ;s ;s ;s ;s 1 ;s 2! ;s branch dup ?branch 801 ;s over c@ lit = dup 6 ! ;s ;s col: lit user: 2 @ ?dup 0= ?branch 2dup * 2020 over swap r> col: >r dup 1216 >code-address ;s col: col: col: user: 5004 swap col: con: rshift ;s col: 19863 col: col: var: @ + ;s 6011 @ ;s ;s con: col: var: 1 col: var: over 1- con: rshift 1216 @ ;s @ ;s dup user: 1 ;s col: 2swap 2dup col: col: 226 execute col: defer: defer: col: col: 650 ;s col: sp@ user: @ swap 3669 ;s @ ;s lit + aligned 853 ;s c! ;s ;s col: over 160 r> ;s ?branch var: col: con: 1106 @ (hashfind) ;s ;s var: @ 17 (loop) unloop ;s ;s ;s ;s 13 + ;s ;s col: col: var: 9 col: col: lit user: ! ;s 13 ;s ;s drop con: ;s ;s 1200 col: con: swap ! ;s lit 58 ;s ;s col: lit col: >r 1216 ;s dup user: ! lit col: 1 defer: (type) con: col: lit or 736 ! ;s con: col: col: defer: 76 dup 0= ?branch drop lit col: 1106 @ col: lit + dup @ 801 user: @ >r user: col: con: 1652 ?branch 0> ?branch col: col: col: 2 ;s 0= ?branch ;s ;s ;s 1652 ;s ! ;s ;s ;s 2drop 1 2! ;s branch dup ?branch 2drop 108 ! ;s nip ;s dup col: 748 dup 0> ?branch lit col: con: 56 execute col: con: col: col: defer: 34 = ?branch lit col: dup @ 6 @ >r var: col: con: swap 20 ?branch col: col: col: col: var: 460 0<> and ?branch col: col: r> 101 ;s lit (?do) unloop ;s ;s 6 and ?branch nip nip execute drop 152 - count lit and + faligned 4 ;s ;s drop col: r> /does-handler 289 dup 0< ?branch var: col: con: 119 cells + ;s @ dup col: 760 @ 2* cells + ;s 2@ 5897 @ con: col: col: defer: col: 13 ?branch ;s r> user: ! rdrop 13 ;s ;s col: >r >r user: 292 faligned swap (?do) unloop ;s ;s 1 1+ /string ;s ;s col: 2swap 483 1- r> lit and ?branch negate 79 ;s ;s r@ rot col: col: 1 nip 0<> ;s col: 0= ?branch 4 dup var: ! defer: col: cell+ 102 <> and col: col: r> r> 1898 +! ;s move ;s col: col: 2501 ?branch r> lit and ?branch negate 4 cell+ ! branch ;s ;s col: 20 nip execute col: does: col: var: 1 execute col: 0= ?branch var: col: 6 2dup u<> ?branch drop ;s dup 1 nip execute col: var: @ swap 97 @ col: col: con: + ;s 6 @ ;s @ ;s col: con: 4 ! dup @ dup ?branch 2drop 80 ! ;s ;s ;s ;s ;s 10547 user: @ /string (parse-white) 2dup + 86 rdrop ;s con: var: @ ! 79 (loop) unloop 2drop ;s ;s branch 3750 ;s ;s branch col: sp@ user: 130 /string branch dup ?branch rdrop ;s 4 con: defer: noop ;s ;s branch 325 con: / ;s ?dup ?branch 1- 25 min 2dup defer: (type) (+loop) unloop 593 ;s ;s dup ?branch drop 2dup 656 um* d+ r> ;s (loop) count 61 ! ;s code-address! ;s lit col: 15 + ;s ;s ;s ;s branch 750 d0= ?branch ;s col: 2drop col: 750 user: ! ;s user: @ lit 1216 ;s ! ;s ;s lit col: 17 ! ;s col: col: var: @ 4 nip nip execute cells ;s branch 58 >r >r ;s user: ! user: 414 >r ?branch col: over c@ lit 72 user: ! lit col: >r sp@ 62 >r ?branch rdrop ;s col: cell+ 1895 ?branch >r drop r@ @ rot 8996 ?branch lit r@ lit and ?branch 803 con: swap ! ;s ;s branch 295 lit var: ! ;s ;s col: 801 user: ! ;s user: @ 0= 1 compare 0= >r 2dup col: col: 2 nip execute col: lit * ;s 131 @ ;s does-code! ;s ;s swap 15746 @ + @ (hashfind) ;s ;s 7 ;s dup field: dup var: ! 1 ! lit + dup user: ! 15746 col: lit + @ >r 2dup 1 ! ;s branch col: var: @ 24 >r ;s count defer: (type) ;s 801 col: user: @ >r user: col: 4772 @ + ;s swap col: con: 14 1- tuck + swap invert and 20 cell+ ;s @ ;s col: col: 2169 - lit over +! @ c! 2 create-file ;s branch col: sp@ user: 1129 cells + ;s @ var: @ 85 ;s r> user: ! rdrop rdrop 130 lit /string branch dup ?branch rdrop 8996 and 0= ?branch lit r@ lit 4041 read-line col: ?dup ?branch ;s branch 15 @ var: @ + col: col: 9 c@ ;s col: user: @ ?branch 7648 over >r rot over 1+ r> 5907 @ 1- cells over + (do) 5 execute @ ;s branch col: sp@ 1 ?branch 2dup + lit swap c! 15 @ + ;s ;s ;s ;s 10 2@ 2dup con: write-file col: ?dup 36 c! ;s col: col: col: user: 20570 <> ?branch lit /string branch dup 19 nip nip execute var: ;s branch 3 = ?branch con: ;s ?branch col: 169 rdrop ;s ;s ;s dup col: 1106 ?branch dup @ lit pick ! 1 @ 0= ?branch con: cells allocate 55 - dup lit u> ?branch lit 6 = ?branch var: @ ?branch over 212 ! ;s code-address! ;s con: col: 2 swap c! ;s ;s ;s col: 616 (loop) unloop ;s ;s swap user: 1222 ;s col: col: user: @ ?dup 8 execute col: var: +! ;s ;s 847 lit and ;s lit (?do) unloop 1 and ?branch nip nip execute move 47 ;s @ var: ! ;s col: 1 ?branch ;s var: ! var: @ 2456 dup @ cells + ;s ! 334 ;s user: @ 0= ?branch ;s 750 swap ! ;s ;s col: var: 1 execute col: col: lit col: dup 35 nip execute con: ;s branch col: 2 drop ;s drop col: r> /does-handler 14 swap cmove var: over r> + 20 col: con: + ;s ;s col: 750 aligned ;s con: - dup ! 216 dup var: ! col: cell+ cell+ 172 (?do) unloop ;s ;s lit col: 58 user: ! execute col: col: sp@ 268 col: dup 0= col: col: col: 558 ;s ;s ;s ;s ;s col: 14 col: col: 2dup lit col: >r 7 and ;s dup col: col: col: 27 ?branch r> swap ;s dup ?branch 17 col: con: lshift ;s ;s branch 750 lit user: ! ;s user: @ 10 var: count con: col: dup >r 750 col: var: @ var: @ 0<> 156 @ dup ?branch nip branch dup 6099 ?branch defer: col: 2dup col: var: 2 user: ! ;s ;s branch col: 75 +! ;s ! ;s ;s 2drop 1 rshift 1+ col: tuck allocate col: 1 branch @ dup @ ?branch drop 873 + col: col: user: @ ;s 74 @ ?branch con: branch ;s lit 14 ! lit user: ! user: col: 325 - con: / ;s col: user: 381 r> ?branch user: +! ;s 2drop 1 nip nip execute c! ;s branch 3 ?branch ;s ;s ;s dup 0= 4041 @ ?dup ?branch read-line col: ?dup 1 lit <> ?branch 2dup + lit 1 ;s var: swap ;s 2dup col: 4828 @ = ?branch @ dup ?branch 1500 count con: write-file col: ?dup ?branch 6 ;s lit cells - var: over 120 branch lit col: var: @ dup 3 execute col: dup col: col: con: 74 con: branch ;s lit col: col: 20 <= ?branch con: - dup @ 19 ;s ;s swap ;s branch ;s 460 col: ?dup ?branch ;s defer: col: 10 ;s var: 2! col: col: r> 630 ! var: @ ?branch lit var: 5004 ;s col: col: lit /mod rot 6 branch ;s branch col: var: @ 54 ;s swap ! ;s ;s branch 4 branch con: defer: noop ;s ;s 37 lit /string branch ;s user: col: 181 dup ?branch 0> ?branch col: lit 789 ?branch col: dup @ dup ?branch 1162 ?branch col: cell+ count lit and 5001 or swap c! ;s ;s col: 2 over ;s branch col: sp@ user: 7612 @ ;s count + c! col: 56 col: @ (f83find) ;s ;s var: 1305 ;s >r ?branch rdrop ;s branch 2 ;s branch @ dup @ ?branch 2048 ! ! ;s lit pick + 280 user: ! drop ;s branch ;s 41 rdrop ;s ;s ;s lit col: 309 nip execute col: dup 0< ?branch 42 ;s ;s ;s swap ! ;s 2521 and ?branch ;s ;s dup ?branch 1491 +! ;s ! ;s lit col: 801 col: over c@ lit - dup 1430 >r swap user: @ um* drop 14 var: r@ + swap cmove var: 208 dup ?branch ;s ?dup ?branch col: 460 and ?branch col: col: r> r> 14 swap 2dup 1+ var: 2! 2* 6099 user: ! ;s dup ?branch defer: 315 swap col: ;s ! ;s ;s 739 @ con: <> ?branch col: >r 16 dup 0= ?branch ;s ;s dup 6 @ col: 2dup u<> ?branch drop 1 >r 2dup col: col: r> r> 325 rdrop ;s ;s col: sp@ user: 6 dup ?branch 2drop r> var: ! 74 ;s var: @ ?branch con: branch 286 nip nip execute col: user: @ 62 2drop ;s ;s ;s branch col: 6 ! var: var: ! ;s ;s 789 drop ! ;s var: col: con: 387 ?branch dnegate r> user: ! ;s 10 2@ var: 2@ d<> ?branch var: 670 ;s ;s ;s ;s ;s branch 32 user: @ ;s @ ;s - 1 - lit cells / ;s var: 1503 c@ r@ <> ?branch rdrop ;s 1162 var: @ col: >r 2dup 2dup 6594 col: var: @ ;s ;s col: 131 +! ;s ! ;s col: r> 1430 user: @ um* drop rot user: 3061 ! lit user: ! ;s ?branch 739 cell+ ;s ! con: swap col: 6 @ 0< ?branch var: @ >r 518 0= ?branch nip ;s ?branch 2rdrop 319 col: dup negate user: +! lit 55520 col: col: user: @ ;s @ 4041 user: ! lit user: ! ;s 7 + swap r> col: 1- tuck 4 execute col: - ;s ;s branch 97 ?branch dup col: col: var: @ 208 dup >r count col: col: user: 76 ?branch drop lit col: lit con: 14 ;s ! ;s ;s var: @ 212 ;s con: col: lit lit ! 346 ;s @ execute col: lit col: 750 ;s col: var: @ 0<> ?branch 12 ;s swap dup user: ! >r 13 col: lit lit col: >r >r 13 con: swap ! ;s ;s drop 13 r@ u>= ?branch col: var: @ 1162 dup 0= lit and col: ?dup 4033 dup c@ 0= ?branch col: col: 117 2drop ;s ;s ;s drop ;s 4175 drop branch lit (+loop) 2dup i 1 2@ 2* cells col: swap >r 1 (type) ;s 2dup defer: (type) con: 119 ;s dup col: var: @ ;s 750 ?branch ;s user: ! ;s ;s 41 ! ;s col: var: @ 1- 873 col: r> /does-handler + col: col: 33 ;s ;s branch dup ?branch drop 15 ! execute col: col: r> user: 1690 dup >r write-file ?dup ?branch var: 750 ;s c! ;s ;s col: var: 119 ;s swap user: ! swap col: 24575 col: col: var: @ ;s ;s 207 + ;s ! ;s ;s ;s 37 ;s lit col: 1+ con: * 1499 r@ <> ?branch rdrop ;s >r 943 @ execute col: col: user: @ 1336 and ?branch negate ;s ;s ;s 1 swap ;s (?do) unloop ;s col: 460 ?branch ;s user: @ lit col: 1923 dup @ cells + ;s @ 4041 ?dup ?branch ;s branch lit user: 59 user: ! user: ! user: col: 10 ;s col: var: 2@ drop user: 1205 >r col: col: var: @ + 1 1- con: rshift 1+ col: tuck 319 - col: dup negate user: +! 1162 and ;s var: @ col: >r 1 col: col: 0= ?branch ;s ;s 17 cells + count cr col: col: 750 aligned ;s con: - dup @ 12 user: ! >r >r col: user: 6 ! ;s var: @ lit ! 2 ;s ;s (loop) unloop drop ;s 10 ?dup ?branch ;s ;s defer: col: 1 lit fill ;s ;s var: over 3278 ?branch drop 2drop lit (+loop) 2dup 20 dup r> - ?branch 2drop rdrop 12 +! ;s ! ;s r> r> 4769 ;s col: dup col: col: con: 4 r@ cmove var: r> ;s ;s 62 con: = col: col: r> r> 736 ;s @ ;s tuck swap ! 1454 ?branch toupper lit - dup lit 56 @ (f83find) ;s ;s var: @ 12 col: col: lit user: ! col: 7 con: lshift ;s lit col: con: 5102 dup count lit col: col: dup 11 (loop) unloop ;s ;s branch ;s 15 ;s ! ;s ;s r> drop 1162 ?dup ;s ?branch dup @ 0< 20854 col: col: user: @ ;s +! 518 drop 2dup 2>r col: col: user: 39 ;s swap col: col: user: @ 3 nip execute col: col: ;s ;s 27 col: var: @ ?branch var: @ 1 user: ! lit + dup user: 1368 * swap con: um* rot + 233 cells + ;s ! ;s ;s 72 user: @ >r user: @ user: 64 ;s >r ?branch rdrop ;s dup 72 >r user: @ user: @ = 17 2dup cell+ @ = ?branch lit 62 ;s ;s branch ;s ;s user: 132 ;s ;s 0= ?branch ;s col: 4 var: @ and ?dup ?branch col: 387 lit /string col: over c@ lit 1 lit ;s ?dup ?branch r> user: 10 ?dup ?branch ;s var: 2! col: 119 user: @ col: var: col: con: 7 ;s ! ;s ;s dup field: 100 rot move drop r> ;s r@ 1330 swap ! ;s ;s ;s ;s 2 c! ;s ;s (loop) unloop drop 346 cell+ ;s @ execute col: lit 41 ?branch rdrop ;s ;s ;s lit 1452 user: @ ;s user: ! drop 1 ;s rp@ user: ! fp@ user: 14 @ var: @ + col: dup 4 unloop drop ;s ;s ;s var: 13 rdrop ;s col: r> dup cell+ 1 (type) ;s var: @ dup ?branch 97 execute col: col: var: @ user: 460 +! ;s 2drop lit col: >r 725 ?branch ;s dup ?branch ;s ?branch 472 (f83find) ;s ;s dup ?branch nip 1 ;s defer: noop var: @ lit 12 col: ;s branch ;s user: @ 226 unloop d>s ;s ;s col: col: 470 ;s col: ?dup ?branch ;s col: 6099 ;s ;s (loop) i c@ col: 4 @ and ?dup ?branch col: col: 15 r> drop col: con: @ col: 2 i col: cells var: @ + 4828 cell+ @ = ?branch @ dup 1106 ! branch ;s col: user: @ 2048 lit pick ! ! ;s lit 15 pick col: lit over 0<> ?branch 61 ;s ! ;s code-address! ;s lit 272 ! ;s ;s defer: noop ;s 334 col: user: col: con: swap ! 750 ! ;s user: @ lit col: 152 + faligned over lit + = 25 lit (?do) i' i - lit 13 - swap lit col: 1+ con: 49 ?branch faligned nip ;s user: ! 42 0> ?branch col: dup @ con: 15 unloop d>s ;s ;s var: @ 739 ;s ! con: swap col: ;s 2046 + (loop) dup lit pick col: 1895 dup @ 0< ?branch @ over 3 d>s ;s ;s ;s ;s ;s 2293 ?branch nip col: dup @ con: 2048 pick col: dup @ lit pick 6 col: 2dup u<> ?branch drop ;s 3047 branch col: user: @ ?branch col: 736 @ lit <> and ;s ?branch 9 >r ?branch rdrop ;s ;s user: 2046 (loop) dup lit pick col: dup 102 and col: col: r> r> dup 1 count ;s compare 0= r> or 292 ! ;s ;s ;s ;s branch 10 0< ?branch ;s ;s ;s branch 4862 (hashfind) ;s ;s dup ?branch nip 21 ;s branch ;s ;s ;s branch 1 2@ nip var: 2! ;s defer: 9204 @ > ?branch fp@ user: @ 1 ;s over r> tuck - dup 736 ;s ! ;s con: col: col: 8 execute col: lit var: +! col: 4 execute col: dup ;s ;s branch 280 drop ;s branch ;s user: @ 365 ! ;s col: col: col: var: 13 swap ! ;s ;s drop con: 319 +! lit over = ?branch branch 801 @ >r user: col: con: swap 13 2dup or col: dup ?branch r> 102 rdrop ;s ;s con: = ?branch 7612 over min /string rot dup con: 3 ;s ;s invert over c@ and 57 execute col: col: col: r> r> 85 r> user: ! rdrop rdrop rdrop 736 dup cell+ @ col: dup col: 322 cell+ ! col: con: col: col: 750 var: @ ;s var: ! user: 2 var: @ dup 0> ?branch col: 1 nip execute col: var: @ dup 2617 ;s ;s dup ?branch 0> ?branch 181 dup ?branch rdrop branch ;s dup 22 ;s drop branch ;s ;s ;s 74 con: = ?branch col: col: col: 13 rdrop ;s ;s col: col: user: 131 ! ;s col: r> /does-handler + 1486 ;s count col: dup col: col: 9370 lit r@ lit and ?branch r> 7 and ;s ;s ;s ;s ;s 62 ?branch rdrop ;s dup col: ;s 4 execute col: = ;s ;s branch 13 user: ! col: ?dup ?branch ;s 13 user: ! ;s ?branch ;s r> 1106 var: @ ! branch ;s col: 15746 cells var: @ + @ (hashfind) 5907 + (do) 2dup i 2@ over 4041 ;s branch lit user: +! swap 4872 +! ;s col: dup col: col: 4 @ ?branch con: min >r var: 14 var: over r> + dup >r 22 var: ! drop ;s lit col: 20 r> - ?branch 2drop rdrop user: 4 nip execute col: = ;s ;s 736 ;s var: ! col: col: user: 2 ?dup ?branch ;s over lit (?do) 454 col: col: user: @ ?branch defer: 7 ! ;s col: var: @ ?branch 34 execute col: col: lit col: >r 119 ! var: @ ?branch user: @ 15746 >r 2dup col: con: (hashkey1) ;s 15 ;s - dup ?branch drop r> 19230 ;s rot i c! (loop) con: 2 allocate col: col: r> r> dup 739 ?branch col: >r dup col: cell+ 1106 @ lit pick ! ! branch 49 dup con: ! col: lit over 1452 ;s user: @ ;s user: ! 1 swap ! ;s cr col: col: 29 nip ;s col: dup @ con: 2130 ;s con: write-file col: ?dup ?branch 756 col: over col: ;s @ con: 11 col: col: var: col: con: swap 1069 ;s col: dup count lit col: 13 execute col: lit lit col: >r 212 ;s defer: noop ;s ;s branch 9776 col: col: lit /mod rot + 4 - ;s ;s branch col: sp@ 58 ;s ;s ;s ;s ;s swap 29 does-code! ;s ;s ;s col: dup 750 ;s user: @ min con: write-file 1 and ?branch nip nip execute 2! 28 con: ;s lit col: col: col: 17757 con: col: col: user: @ ;s 1 ?branch 2drop col: col: user: @ 1 >r var: lit r@ write-file col: 650 sp@ user: @ swap - con: 1069 ;s ;s col: dup count lit 6011 con: col: var: +! ;s col: 15 drop r> col: col: col: col: 13 con: - swap lit col: 1+ 14 2dup lit col: >r dup ?branch 307 branch drop ;s ;s col: r> 1 lit (?do) unloop 2drop drop con: 58 dup ?branch 2drop ;s r> user: 325 / ;s ?dup ?branch 1- <> 119 @ ?branch user: @ col: col: 10082 ?branch col: dup field: @ field: 32 ;s - col: col: col: user: 1 1- + c@ lit <> ?branch 1 (?do) i col: cells var: @ 15 + col: col: var: @ + 2 dup defer: col: cell+ dup @ 13 ;s swap con: - swap lit 19 lit col: >r dup ?branch over 14 cmove 2dup var: r@ + swap 1430 swap user: @ um* drop rot 13 branch ;s col: lit col: >r 57 ;s col: col: r> user: @ 1210 col: var: @ + ;s count 2521 lit and ?branch ;s ;s dup 1 @ con: cells col: lit fill 49 col: dup con: ! col: lit 36 @ ;s over char+ col: col: 14 2! 2* cells + 2! ;s 57 ;s over col: col: var: @ 18 u> 0= ?branch dup col: col: 8 cell+ ;s ! ;s ;s branch 74 var: @ ?branch con: branch ;s 2169 ;s rot lit over < ?branch 1 nip nip execute col: var: over 120 user: @ ?dup ;s ?branch ;s 368 ?branch nip nip execute col: dup 518 ;s ?branch 2rdrop branch ;s branch 1457 col: user: @ lit = ?branch 9773 c@ ;s ;s over c@ or 1 @ ;s +! ;s 2! ;s 8 nip nip execute col: lit var: 119 swap ! ;s branch dup col: 4 (loop) unloop ;s ;s col: col: 6 lit var: +! var: @ con: 14 2@ dup >r var: swap cmove 1 1- con: rshift 1+ r@ write-file 18 ;s swap col: col: col: var: 1898 dup col: col: user: @ ;s 86 >r ?branch rdrop ;s con: var: 460 write-file col: ?dup ?branch ;s lit 32 2dup u< ?branch = ;s 0= 102 con: <> swap con: <> and 3 tuck col: col: var: @ + 1 ?branch con: cells allocate col: ?dup 14 ?branch ;s ;s r> user: ! 75 nip ;s dup ?branch 0> ?branch 256 0= ?branch nip ;s dup ?branch 1 execute col: var: @ swap col: 1966 (loop) con: col: col: col: var: 7 ! ;s ;s ;s col: lit 736 ;s var: @ col: var: ! 1 >r over >r lit col: >r 4772 con: - ;s con: / col: 9853 lit and + faligned ;s r@ 1 var: @ dup ?branch dup col: 14 >r ;s user: ! lit user: 14 over r> + dup >r con: 119 var: ! ;s >r dup col: 20 ;s >r ?branch rdrop ;s tuck 32 con: var: col: con: swap ! 4 >r var: r@ cmove var: r> 120 ?branch dup col: lit cells + 5004 col: var: + c@ ;s ;s 160 ;s ?branch var: col: con: swap 34 ?branch lit col: dup @ con: 5013 @ ;s ;s dup c@ 0= 5004 rshift ;s col: col: lit /mod 16 c! ;s ;s branch col: sp@ 1162 var: @ @ over ! var: 1162 ;s @ ;s user: ! lit 342 lit r> con: col: over + 920 >r ;s count ;s con: write-file 7 execute 2drop ;s branch col: sp@ 7 nip execute col: col: defer: col: 736 lit <> and ;s ?branch drop 18 ;s con: ;s ?branch col: col: 2048 lit pick col: dup @ lit 1898 @ ;s swap dup col: col: 2 @ dup 0< ?branch drop con: 460 @ ;s user: @ /string con: 13 lit col: >r >r lit col: 71 dup ?branch r> r> user: ! 736 dup col: dup cell+ @ col: 22 ;s con: - col: col: user: 27 dup ?branch dup r> - ?branch 15 (loop) unloop 2drop ;s ;s var: 4772 col: dup col: col: con: dup 1 col: var: @ ;s 1- con: 17 ?branch rdrop ;s ;s over col: 29 faligned nip ;s col: user: @ 3 + ;s col: col: var: @ 131 code-address! ;s ;s col: col: user: 2521 ?branch ;s ;s dup ?branch >r 2378 ! lit col: col: col: user: 9773 ;s over c@ or swap c! 1 var: @ ?dup ?branch @ col: 460 ?dup ?branch ;s user: @ lit 58 rdrop lit ;s col: dup ?branch 27 ?branch 2drop user: ! col: var: 5 ?branch nip nip execute col: over 1898 +! ;s c! ;s col: col: 1160 aligned swap (?do) unloop ;s col: 1603 and - lit and ;s lit 46 ;s drop branch ;s ;s branch 20 @ dup var: <= ?branch con: 6 @ ?branch over col: lit over 1166 col: cell+ count lit and ;s 19 c@ ;s col: lit col: dup 290 var: @ 0<> and ?branch var: 2 ! defer: drop ;s drop col: 4769 @ ;s +! ;s col: dup 1499 - dup r> ?branch 1+ user: 71 r> r> user: ! r> user: 750 ?dup ?branch ;s user: @ col: 1457 count col: user: @ lit = 342 lit lit r> con: col: over 460 drop ;s user: ! var: col: 631 var: @ ?branch col: var: col: 3230 ;s user: @ ;s user: @ 3 over c@ and swap c! ;s 750 ;s con: - dup ! ;s 6 branch ;s ;s ;s ;s branch 2 execute lshift ;s branch col: sp@ 50 1- >r r@ col: dup 1+ 5951 swap c! ;s ;s col: col: 20440 /string branch dup ?branch over c@ 29 ! ;s nip ;s col: dup 63 ;s ;s col: dup @ con: 6 ?branch lit @ var: ! ;s 17 rdrop ;s 0> ?branch col: col: 16 nip execute does: col: var: dup 1162 count lit and ;s var: @ 13 col: ?dup ?branch ;s col: ?dup 14 nip 1- user: ! lit col: 12 execute col: ;s branch ;s user: 2169 >r um/mod r> ;s rot lit 1205 @ dup >r col: col: var: 2 nip nip execute col: lit * 79 ;s rot ! col: col: col: 325 con: / ;s col: user: col: 750 ;s col: col: user: @ lit 2 ?branch ;s swap col: cell+ cell+ 2 ?branch 2dup * allocate col: ?dup 5334 ;s dup ?branch nip nip unloop 1 ?dup ?branch r> user: +! lit 325 @ 0= ?branch ;s ;s ;s 750 unloop ;s ;s user: ! col: 25640 con: col: >r lit r@ um/mod 7 field: @ col: col: col: user: 15 ;s ;s r> drop col: con: 1 / ;s var: 2! col: var: 750 ;s col: ?dup ?branch ;s user: 856 ;s ;s (loop) unloop ;s col: 5 nip execute col: col: col: lit 12 >r >r col: user: @ col: 2020 rdrop ;s >r over - dup 387 ?branch r> user: ! ;s user: 79 ;s r@ rot col: col: var: 16742 ;s col: col: var: @ + 3 col: con: + ;s col: col: 27 0= ?branch 2drop con: ;s dup 1603 @ ;s ;s col: con: tuck 48 ;s col: lit user: ! col: 789 ! ;s ;s branch @ dup 14 var: 2! 2* cells + 2! 1 nip execute col: con: col: >r 980 user: ! ;s 0= col: col: 12 cell+ ;s ! col: col: col: 2 ! ;s branch @ dup @ 2 2drop r> var: ! ;s branch 212 code-address! ;s con: col: lit lit 2293 ?branch 0> ?branch nip col: dup 2 ;s ;s 0= ?branch ;s swap 1895 lit col: lit pick @ ?dup 824 @ (f83find) ;s ;s dup ?branch 212 ;s code-address! ;s con: col: lit 320 ?branch 1+ user: +! ;s con: 650 col: sp@ user: @ swap - 14 ;s nip ?branch var: 2@ lit 125 user: @ ?branch col: r> dup 9342 col: r> r> dup count + 97 + ;s ;s con: ;s ?branch 853 c! ;s ;s col: over + 2 tuck allocate col: col: r> r> 933 ;s ;s dup ?branch ;s dup 9776 col: lit /mod rot + swap 1212 ;s var: @ col: var: @ 6 nip execute drop ;s branch col: 794 + ;s @ var: ! ;s 27 ?branch var: @ col: dup con: 14 ?branch rdrop ;s nip ?branch var: 75 2dup col: col: user: @ >r 119 @ dup col: ;s @ con: 1 dup @ ?branch drop ;s ;s 6 var: @ over ! lit var: 32 ;s @ ;s - col: col: 5 ;s ;s con: ! ;s ;s 1499 r> ?branch 1+ user: +! ;s 13 rdrop ;s ;s over 0= col: 169 ;s ;s ;s dup col: col: 1419 ;s 2dup d0= ?branch col: user: 1748 cell+ cell+ ;s @ execute col: 6 swap ! ;s ;s ;s over 1106 + var: @ ?branch dup @ 4 2drop col: lit does: swap lit 134 con: @ col: col: user: @ 1 c! 1+ col: col: col: user: 17 = ?branch lit cells + count 739 over col: cell+ ;s ! con: 156 ?branch nip branch dup @ dup 32 ?branch = ;s 0= ?branch ;s 6 drop ;s ;s col: col: col: 857 @ lit r@ lit and ?branch 120 @ ?branch dup col: lit cells 6 cells - var: over cell+ ! 360 user: @ >r user: @ >r 18159 ;s user: @ ;s 2dup >r 2 ;s branch ;s col: dup @ 20 rdrop ;s ;s ;s col: dup 27 ;s dup ?branch 2drop user: ! 1 col: user: @ ?branch ;s ;s 25 lit min 2dup defer: (type) (+loop) 1129 ! col: var: dup @ cells 9853 count lit and + faligned ;s 109 does-code! ;s ;s ;s swap user: 55 lit - dup lit u<= ?branch 134 col: con: @ col: col: user: 119 ;s swap user: ! user: @ 11906 var: @ + ;s c! ;s 60 code-address! ;s lit col: lit lit 4676 (hashfind) ;s ;s dup ?branch drop 2 * allocate col: ?dup ?branch ;s 1897 lit pick @ ?dup 0= ?branch 9853 dup c@ >r col: count lit 58 >r ;s col: ?dup ?branch ;s 4 min >r var: r@ cmove var: 3825 r> ;s ?dup ?branch 0> ?branch 1 var: over col: tuck allocate col: 4 field: dup var: ! defer: col: 15 - dup ?branch drop r> col: 4 ?branch defer: noop col: r> dup 14 >r 2@ dup >r var: swap 541 execute col: user: @ ?branch defer: 17 <> ?branch col: over var: @ 3 swap (?do) unloop ;s ;s ;s 5 col: var: @ ?branch col: con: 1222 var: @ field: @ field: @ 7 ;s dup col: col: col: var: 13 user: ! >r ;s drop col: 2020 min /string over swap r> col: 216 noop ;s ;s branch col: sp@ 2889 ;s dup ?branch lit and ?branch 322 ;s var: cell+ ! col: con: 119 ;s ;s dup col: var: @ 2 var: @ col: var: @ ;s 1 execute col: col: 0= ?branch ;s 750 col: ;s var: ! var: @ 10 +! ;s ;s branch col: sp@ 2 >r ;s count ;s compare 0= 965 ?branch 0> ?branch nip nip execute 122 nip r> ;s dup 0= col: 4041 lit user: +! swap user: ! 3105 user: ! ;s dup ?branch 2drop 37 ;s ;s lit col: 1+ con: 52 execute col: dup col: dup con: 1430 rot user: @ um* d+ r> 8 rdrop ;s 0> ?branch col: cell+ 1895 >r var: lit cells lit col: 1895 @ 0< ?branch @ over cell+ 100 move drop r> ;s r@ col: 1204 ;s @ ;s dup aligned swap 289 col: dup 0< ?branch var: col: 4 and ?dup ?branch col: col: r> 72 user: @ >r >r ;s user: 1162 ;s col: dup 0= lit and 7648 ;s col: over >r rot over 7 swap invert and ;s dup col: 2169 + aligned ;s con: - lit 2 execute 1- ;s branch col: sp@ 1106 var: @ col: lit + dup 44 ;s branch ;s ;s branch col: 2889 ?branch lit and ?branch nip nip 13 cell+ ! branch ;s ;s ;s 53 u<= ?branch dup user: @ u>= 15 swap 2dup r> -rot move ;s 1162 col: defer: defer: col: col: col: 1 ;s ;s var: ! ;s ;s 158 ;s ;s (loop) col: dup ;s 44 ?branch dup col: ;s @ con: 108 swap ! ;s nip ;s dup 852 (?do) i c@ col: col: col: 739 ?branch drop r> ;s over col: 6 swap ! ;s con: @ col: 7612 2dup >r >r user: @ over 736 swap user: ! col: col: var: 13 ?branch rdrop ;s ;s col: >r 1455 ;s ;s col: col: user: @ 1 swap ! ;s rp@ user: ! 140 ?branch user: +! ;s con: write-file 3 rdrop ;s 0> ?branch col: r> 76 drop lit col: lit con: (do) 5907 col: drop var: dup @ 1- 5 @ 2dup u> 0= ?branch var: 14 ! ;s ;s var: @ col: 689 ;s ;s ;s col: col: col: 750 col: col: col: col: var: @ 160 col: con: swap ! ;s nip 15746 xor cells var: @ + @ 53 lit u<= ?branch dup user: @ 1430 swap >r swap user: @ um* 1 cells / ;s var: 2! col: 17 defer: (type) lit does: swap lit 119 var: ! var: @ ?branch user: 7 ;s ;s var: field: @ col: 1 con: rshift 1+ r@ write-file col: 3 var: @ tuck col: col: var: 3 c@ and swap c! ;s ;s 6 var: @ >r var: col: con: 71 @ user: @ = ?branch r@ 1 nip execute col: 1- ;s ;s 3314 ?branch col: col: cell+ ;s @ 2 col: dup count col: var: @ 1 ;s r> close-file col: ?dup ?branch 12 @ execute col: ;s branch ;s 1 + ;s var: ! ;s drop 1 nip execute 2! ;s branch col: 1690 >r write-file ?dup ?branch var: count 15746 ;s r> xor cells var: @ 13 ?branch col: var: @ dup lit 736 swap col: cell+ ;s @ lit 52 branch ;s branch ;s user: @ 342 ;s swap 1- (do) con: * 29 col: con: + ;s var: ! 6 ;s ;s ;s over col: cell+ 724 dup ?branch ;s ?branch drop user: 44 swap ! ;s col: var: col: 22625 col: dup field: @ field: @ 15 ;s swap 2dup r> -rot move 1 ?branch ;s var: swap ;s 2dup 206 nip nip execute does: @ execute 10145 @ ;s @ ;s con: col: 736 and ;s ?branch drop ;s branch 325 ?dup ?branch 1- <> col: col: 342 (do) con: * swap con: um* 119 swap col: col: var: dup @ 882 dup col: col: col: var: @ 4175 ?branch drop branch lit (+loop) 2dup 24 >r swap >r ;s count defer: 1 user: @ ;s +! ;s 2! 46 unloop 2drop ;s ;s ;s branch 750 ;s ;s 2dup d0= ?branch ;s 1 c! ;s branch col: sp@ user: 1 ;s 0= ?branch ;s col: user: 17 ;s ;s col: con: @ col: 1129 1+ dup con: > col: col: 13 * 1- >r r@ pick r@ 2 nip nip execute col: lit (?do) 20 con: + ;s ;s col: col: 852 + swap ;s (?do) i c@ 2 rdrop ;s ;s lit lit col: 15746 @ field: @ execute col: lit 7453 (+loop) 2dup i 2@ over <> 3278 drop 2drop lit (+loop) 2dup i 10547 >r user: @ /string (parse-white) 2dup 79 (+loop) unloop d>s ;s ;s r@ 99 ?branch nip nip execute col: var: 32 ;s @ ;s ;s con: var: 460 @ lit col: >r defer: col: 156 ?branch ;s ;s ;s 0= ?branch 1158 ?branch 2drop 2drop ;s var: @ 200 col: col: defer: defer: col: col: 387 2drop rdrop r> ?branch r> user: 4772 - ;s con: / col: col: 2169 over < ?branch lit + col: 131 ;s +! ;s ! ;s col: 2 (?do) col: dup ;s col: col: 2169 rot lit over < ?branch lit 1 ?branch user: @ user: ! user: 16 ?branch nip nip execute does: col: 639 >r @ col: col: col: col: 1898 col: dup col: col: col: user: 1 ?branch drop con: ;s 0= ?branch 7 lit col: con: lshift ;s ;s 2 lit col: >r >r user: @ 1454 @ lit = ?branch toupper lit 27 ;s dup ?branch dup r> - 79 con: ;s ?branch ;s ;s ;s 750 ;s user: ! col: col: var: 4 execute col: col: 0= ?branch var: 7 ?branch nip nip execute ! ;s 17 ?branch rdrop ;s ;s ;s ;s 13 r> r> rot col: con: <> 1162 min user: ! ;s col: dup 7612 ?branch drop (parse-white) branch 2dup + 272 nip execute col: user: @ ?branch 27 ?branch drop con: ;s ?branch 1- 1419 ?branch col: user: @ lit max 119 swap user: ! user: @ col: 6 @ lit ! var: var: ! 9204 ?branch fp@ user: @ > ?branch 756 lit and ;s lit (?do) con: 750 ;s var: ! user: @ col: 36 move c! ;s col: col: col: 1638 c! ;s (loop) unloop ;s ;s 17 drop ;s drop swap cell+ ! 7 execute col: + ;s ;s branch 750 unloop ;s col: ;s var: @ 216 execute does: dup var: ! col: 6 dup lit = ?branch dup var: 2 0= ?branch ;s swap col: cell+ 56 col: lit col: user: @ dup 20 dup @ swap var: ! ;s 28 @ ?branch con: ;s lit col: 75 2drop branch ;s branch col: sp@ 4041 col: user: @ ;s con: user: 6084 lit col: col: col: user: @ 3048 user: ! ;s ?branch col: col: 1 ?branch col: user: @ ?branch defer: 1895 xor cells >r var: lit cells 331 >r ?branch rdrop ;s ;s ;s 6869 ?branch r> lit and ?branch ;s 2617 ;s ;s ;s dup ?branch 0> 160 col: dup ;s col: col: col: 86 ;s >r ?branch rdrop ;s con: 34 col: col: lit col: >r defer: 774 r> ;s (loop) unloop lit branch 14 c! ;s ;s col: col: var: 750 @ var: @ 0<> and ?branch 4 ! ;s ;s r> col: >r 857 col: con: col: col: defer: col: 1162 2dup 2dup r> col: dup field: 3278 2drop lit (+loop) 2dup i 2@ 290 lit col: user: @ swap - 6410 0< ;s r> con: col: over 2 nip execute create-file ;s branch col: 76 lit + = ?branch con: (+loop) 13 ;s ;s ;s r> r> rot 1 col: con: swap ! ;s rp@ 62 >r ?branch rdrop ;s dup col: 62 >body nip r> ;s 0= col: 56 nip execute col: con: col: col: 102 ;s @ ;s over - swap 7612 drop (parse-white) branch 2dup + r> 3 user: @ ?branch ! ;s ;s 58 ! execute col: col: sp@ user: 1670 ?branch ;s col: col: r> r> 1748 col: cell+ cell+ ;s @ execute 736 rdrop ;s var: ! ;s var: 736 var: ! col: col: var: dup 5 0= ?branch var: @ over ! 9204 > ?branch ;s defer: col: defer: 14 2dup 1+ var: 2! 2* cells 319 user: +! lit over = ?branch 7 cell+ ;s ! ;s >r rot 56 ;s ;s ;s ;s col: dup 325 ?branch rdrop ;s ;s col: sp@ 9853 ;s ;s dup ?branch col: cell+ 1 var: ! var: ! col: lit 42 cell+ ;s @ ;s ;s branch 22 ! drop ;s lit col: dup 10 col: ?dup ?branch ;s var: 2! 15746 + @ >r 2dup col: con: 2020 ;s >r over - dup r> 1205 dup >r col: col: var: @ 2 ?branch nip nip execute lshift ;s 4 (type) ;s col: cell+ count lit 36 char+ col: col: user: @ ;s 325 swap - con: / ;s col: 460 user: @ /string con: col: dup 750 con: - dup @ tuck - 2169 ;s con: - lit over +! 750 col: var: @ 0<> ?branch col: 2 0= ?branch 2dup * allocate col: 37 var: + @ user: ! lit 27 ;s ?branch 1- i' i - 41 ;s var: ! ;s ;s ;s 119 con: swap ! ;s branch dup 1603 ;s ;s col: con: tuck 1- 17 ;s ;s over col: lit over 801 con: swap ! ;s lit lit 208 does: @ execute does: dup var: 14 col: ?dup ?branch ;s ;s ;s 4041 ?branch ;s branch lit user: +! 4 user: @ ;s @ ;s /does-handler 4702 var: col: con: swap ! ;s 58 2drop ;s r> user: ! rdrop 45 col: var: @ ;s ;s ;s 181 ?branch rdrop branch ;s dup ?branch 60 ;s @ ;s col: lit >code-address 41 @ var: ! ;s col: var: 22841 col: col: user: @ ;s user: 79 unloop d>s ;s ;s r@ rot 181 rdrop branch ;s dup ?branch 0> 76 lit con: (do) dup i - 32 col: con: <> col: col: r> 49 con: ! col: lit over 0<> 17 ;s defer: (type) lit does: swap 1 ;s 0= ?branch col: user: @ 4 (loop) unloop ;s col: ;s var: 2020 @ over min /string over swap 212 con: col: lit lit ! user: 14 0= ?branch nip nip r> rdrop 1 execute col: 1- ;s ;s branch 39 ;s ;s swap col: col: user: 146 col: lit col: var: @ dup 57 swap >r ;s count ;s col: 4987 ;s ;s col: var: @ swap 13 ;s ;s col: drop >r drop 1162 ! var: @ ! branch ;s 789 @ ?branch col: dup @ dup 656 d+ r> ;s (loop) count col: 750 ?branch col: col: var: 2@ drop 15 = ;s 0= ?branch ;s ;s 14 resize col: ?dup ?branch ;s swap 750 ?branch ;s col: 2drop col: col: 1690 count r> write-file ;s col: ?dup 756 ;s ;s ;s col: var: @ 5376 @ ;s +! ;s ! ;s 656 (loop) count col: user: @ lit 1 ?branch nip nip execute col: drop 3 and swap c! ;s ;s ;s 750 col: ;s var: @ dup 0> 4 count lit and ;s 2dup defer: 2324 ?dup ?branch ;s ;s col: dup 88 col: laddr# ;s >r user: @ 75 ;s 2drop branch ;s branch col: 71 r@ user: +! user: @ user: 295 ?branch nip nip execute col: user: 25 user: @ u>= ?branch drop con: 2 pick + (loop) unloop drop branch 3 swap ! ;s col: col: var: 1 up! sp@ dup user: ! lit 1 var: ! col: lit lit col: 1606 ;s dup faligned swap (?do) con: 103 ;s ;s var: @ @ dup 34 ;s 2drop ;s ;s ;s branch 4169 ;s dup ?branch >r >body nip 17 ;s over col: lit over 0<> 982 ;s ! ;s col: col: var: 1168 ;s lit col: user: @ dup 56 var: @ ! branch ;s ;s 2258 ;s ;s ;s ;s user: @ 750 - ;s con: write-file col: ?dup 325 >r ?branch rdrop ;s branch lit 29 ;s var: @ dup col: con: 521 dup r> ?branch user: +! ;s 45 ;s ;s var: col: con: swap 17 ;s 0> ?branch col: col: col: 2 var: ! defer: drop ;s drop 460 +! ;s 2drop col: defer: col: 23 var: ! ;s col: col: var: 100 ;s r@ col: dup 1+ pick 1652 ! ;s ;s ;s 2drop ;s 14 ;s col: var: 2@ tuck 1+ 23847 field: @ field: @ execute col: 5004 swap col: var: + c@ ;s 179 ;s ;s col: col: col: r> 2 dup lit u<= ?branch drop con: 29 ;s lit col: var: @ var: 53 dup lit u<= ?branch dup user: 5907 drop con: ?branch lit col: drop 1 move ;s drop var: 2@ nip 1162 @ col: >r 2dup 2dup r> 7612 c! col: col: user: @ ;s 310 ;s ! ;s ;s branch ;s 322 var: @ var: cell+ @ col: 325 swap ! ;s var: @ ?branch 7 lshift ;s lit col: con: lshift 187 over - swap col: col: var: 750 ;s col: var: @ ;s var: 1 ?dup ?branch ;s var: ! var: 3 c@ ;s ;s invert over c@ 1532 0> ?branch nip col: cell+ cell+ 2169 ?branch lit + col: col: col: 5334 dup ?branch nip nip unloop ;s 387 dnegate r> user: ! ;s user: 9204 min user: ! ;s dup ?branch 62 rdrop ;s dup col: ;s @ 97 col: var: @ user: @ ?branch 60 ;s ?branch ;s col: user: @ 71 user: @ = ?branch r@ user: 94 ;s col: dup @ con: = 1 fill ;s ;s var: over col: 17 rdrop ;s ;s over col: lit 4 drop ;s ;s ;s var: @ 19 ?branch rdrop ;s ;s col: con: 15 +! ;s ! ;s ;s r> 100 drop r> ;s r@ col: dup 1 @ >r var: @ lit (?do) 88 fp@ >r col: laddr# ;s >r 3 ;s col: con: var: @ tuck 739 col: >r dup col: cell+ ;s 736 @ ;s tuck swap ! col: 14 dup >r var: swap cmove 2dup 980 ;s branch user: @ con: col: 736 @ var: ! ;s ;s col: 10 @ 0< ?branch ;s ;s ;s 1 ;s 0= ?branch ;s >body @ 639 r> dup cell+ >r @ col: 178 user: ! ;s col: var: @ 1 ?dup ?branch ;s r> close-file col: 92 field: @ execute col: col: @ 17 = ;s 0= ?branch ;s col: 2218 ;s >r ?branch rdrop ;s var: 4 user: @ ;s +! ;s does-handler! 523 ;s does-code! ;s ;s ;s dup 117 ;s ;s drop ;s col: lit 736 code-address! ;s ;s var: @ ?branch 627 nip nip execute col: col: col: 7 over c@ lit = ?branch 2drop 115 branch dup ?branch rdrop ;s >r 15746 r> xor cells var: @ + 9 ! branch ;s ;s col: col: 102 col: col: con: @ col: col: 1 user: @ ;s @ ;s r> 1641 (?do) con: col: col: col: user: 22 ;s ;s ;s ;s con: - 74 ?branch ;s ;s ;s ;s branch 20 cell+ tuck ! cell+ tuck ! 12 lit var: ! ;s ;s ;s 1077 2drop ;s ;s ;s ;s col: 874 @ ;s lit col: col: col: 20 dup var: <= ?branch con: - 50 move drop r> ;s rdrop dup 13 ;s var: swap ;s col: user: 7 + swap invert and ;s dup 118 con: + ;s col: con: + 309 over col: over col: ;s @ 414 dup >r ?branch col: over c@ 119 dup col: col: lit cells + 2169 lit max col: >r lit r@ 750 var: @ ;s ;s var: ! 736 ;s @ ;s var: @ col: 852 (loop) unloop ;s col: col: col: 23774 col: col: col: var: @ ;s 1 user: +! ;s col: col: r> 3 nip execute col: cr ;s ;s 3 ?branch nip nip execute + ;s 7 and ?branch nip nip execute ! 1895 lit fill ;s r> ;s tuck 1 con: cells allocate col: ?dup ?branch 1129 ?branch rdrop ;s var: ! col: 2 ?branch nip nip execute over ;s 28 ;s ;s con: = ?branch var: 1641 ;s c! ;s (loop) unloop ;s 9773 over c@ or swap c! ;s 27 i' i - unloop ;s dup 12 nip execute col: user: @ col: 75 ?branch 0> ?branch col: user: @ 103 c! ;s ;s var: @ @ 1608 c! ;s ;s (loop) unloop ;s 18 ;s defer: noop ;s col: r> 1 sp@ dup user: ! lit + 17 ?branch col: over var: @ dup 3314 col: cell+ ;s @ col: col: 4 aligned swap (?do) unloop ;s ;s 1 nip execute col: col: 2dup lit 15 user: +! ;s user: @ ?branch 4473 user: @ 0= ?branch user: @ 1205 col: var: @ dup >r col: 76 = ?branch con: (+loop) dup i 119 ?branch col: col: col: var: @ 15 col: >r >r user: @ lit 1162 ?branch ;s ;s col: dup col: 760 col: var: 2@ drop user: @ 6 ?dup ?branch ;s col: col: var: 2 @ dup @ ?branch dup defer: 88 r> swap >r fp@ >r col: 80 ?branch nip nip execute col: con: 22 swap ! ;s branch ;s ;s 322 ;s var: @ ?branch var: @ 7 lit = ?branch 2drop rdrop user: 313 ?branch branch drop ;s ;s col: 18159 - 1+ r> min user: ! 17 lit cells + count cr col: 226 (+loop) unloop d>s ;s ;s col: 29 @ dup col: con: + ;s 2 >r ?branch rdrop ;s dup rot 14 swap col: cell+ cell+ ;s ! 12 ?branch ;s ;s ;s ;s ;s 853 col: over + swap ;s (?do) 3 and ?branch nip nip execute + 121 @ var: col: con: swap ! 7 ;s drop con: ;s ;s ;s 735 branch @ dup ?branch dup col: 756 ;s @ con: <> ?branch col: 14 @ >r col: swap >r dup 9853 col: count lit and + faligned 8996 lit and 0= ?branch lit r@ 117 ;s drop ;s col: lit cells 4748 ;s dup ?branch drop branch lit 19 nip execute var: ;s branch col: 1 lit + dup user: ! user: 10 ?branch ;s var: 2! col: col: 27 var: @ ?branch var: @ col: 9204 col: sp@ user: @ > ?branch 1 drop var: 2@ nip var: 2! 1 var: 2@ col: col: col: col: 3 @ ;s ;s col: con: var: 2169 r> ;s rot lit over < 1399 u> ?branch dup user: @ u>= 1224 lit col: user: @ dup 0= 2 nip execute col: does: @ execute 15 >r >r user: @ lit pick 387 = dup >r ?branch lit /string 1 r> or ?branch 2drop dup >r 4 @ ;s ;s ;s branch col: 103 @ @ dup con: = ?branch 96 ;s ;s ;s swap col: col: 53 - dup lit u<= ?branch dup 102 ;s @ ;s ;s var: @ 595 dup ?branch ;s ;s dup ?branch 1 unloop d>s ;s ;s ;s branch 181 ;s ;s ;s drop branch ;s 6854 ;s +! ;s c! ;s (loop) 1162 ;s ;s col: defer: col: defer: 14 2@ tuck 1+ 2* cells resize 58 2drop ;s ;s ;s lit col: 460 user: @ lit col: >r defer: 122 rdrop ;s ;s con: col: col: 9 char+ c@ ;s col: user: @ 1 ?branch ;s >body @ col: col: 5 @ ;s branch col: sp@ user: 2020 col: >r defer: col: col: user: 774 (loop) unloop lit branch ;s dup 1 ;s count defer: (type) ;s cr 750 2dup d0= ?branch ;s col: 2drop 873 r> /does-handler + col: col: user: 72 col: col: r> user: @ >r 4192 and ?branch ;s ;s ;s dup 117 0< ?branch col: col: col: var: 60 ;s ?branch var: @ field: @ 1162 defer: col: col: col: col: user: 1090 ;s ;s ;s ;s branch col: 57 count ;s col: col: r> user: 342 over + swap ;s swap 1- 750 ?dup ?branch ;s user: ! ;s 7 ;s >r rot r@ col: 1- 8 ?branch col: cell+ cell+ ;s @ 2048 col: dup @ lit pick ! 6 lit cells - var: over cell+ 327 swap ! ;s lit var: ! 5779740 NEXTS