beginfile > uleq

store(1) ' .?!,;:()[]<>/-' nl

store(2) '0'

store(3) '-'

store(4) '-'

store(5) '-'

store(7) use(1)

group(1)

"thenceforth" word(1) > '{' dup '}' set(2)

"there" word(1) > '{' dup '}' set(3)

"thereat" word(1) > '{' dup '}' set(4)

"thereby" word(1) > '{' dup '}' set(5)

"therefore" word(1) > '{' dup '}' set(6)

"therein" word(1) > '{' dup '}' set(7)

"thereinto" word(1) > '{' dup '}' set(8)

"thereof" word(1) > '{' dup '}' set(9)

"thereon" word(1) > '{' dup '}' set(10)

"these" word(1) > '{' dup '}' set(11)

"they" word(1) > '{' dup '}' set(12)

"thief" word(1) > '{' dup '}' set(13)

"thieves" word(1) > '{' dup '}' set(14)

"thine" word(1) > '{' dup '}' set(15)

"thing" word(1) > '{' dup '}' set(16)

' ' > dup incr(2)

'\v ' > '\v' back(2)

'\c ' > '\c' back(2)

'\a ' > '\a' back(2)

'\v' > use(2) store(5)

'\c' > use(2) store(4)

'\a' > use(2) store(3)

endfile > set(1) next

nl > endstore

if(2) clear(2) "thenceforth" do(2) endif

if(3) clear(3) "there" do(2) endif

if(4) clear(4) "thereat" do(2) endif

if(5) clear(5) "thereby" do(2) endif

if(6) clear(6) "therefore" do(2) endif

if(7) clear(7) "therein" do(2) endif

if(8) clear(8) "thereinto" do(2) endif

if(9) clear(9) "thereof" do(2) endif

if(10) clear(10) "thereon" do(2) endif

if(11) clear(11) "these" do(2) endif

if(12) clear(12) "they" do(2) endif

if(13) clear(13) "thief" do(2) endif

if(14) clear(14) "thieves" do(2) endif

if(15) clear(15) "thine" do(2) endif

if(16) clear(16) "thing" do(2) endif

if(1) endfile endif

store(2) '0'

store(7)

define(2)>

' ' out(3)

' ' out(4)

' ' out(5)

' ' out(7)

nl

group(2)

any(1) > append(7) use(1)





 

~~~~~~