beginfile > uleq
store(1) ' .?!,;:()[]<>/-' nl
store(2) '0'
store(3) '-'
store(4) '-'
store(5) '-'
store(7) use(1)
group(1)
"spent" word(1) > '{' dup '}' set(2)
"spilled" word(1) > '{' dup '}' set(3)
"spin" word(1) > '{' dup '}' set(4)
"spirit" word(1) > '{' dup '}' set(5)
"spirits" word(1) > '{' dup '}' set(6)
"spit" word(1) > '{' dup '}' set(7)
"spitefully" word(1) > '{' dup '}' set(8)
"spitted" word(1) > '{' dup '}' set(9)
"spoil" word(1) > '{' dup '}' set(10)
"spoils" word(1) > '{' dup '}' set(11)
"spoken" word(1) > '{' dup '}' set(12)
"sprang" word(1) > '{' dup '}' set(13)
"spring" word(1) > '{' dup '}' set(14)
"springing" word(1) > '{' dup '}' set(15)
"sprung" word(1) > '{' dup '}' set(16)
"spue" word(1) > '{' dup '}' set(17)
"stall" word(1) > '{' dup '}' set(18)
"stand" word(1) > '{' dup '}' set(19)
"standing" word(1) > '{' dup '}' set(20)
"star" word(1) > '{' dup '}' set(21)
"stars" word(1) > '{' dup '}' set(22)
"state" word(1) > '{' dup '}' set(23)
"stature" word(1) > '{' dup '}' set(24)
"staves" word(1) > '{' dup '}' set(25)
"steal" word(1) > '{' dup '}' set(26)
"steward" word(1) > '{' dup '}' set(27)
"stewardship" word(1) > '{' dup '}' set(28)
"still" word(1) > '{' dup '}' set(29)
"stone" word(1) > '{' dup '}' set(30)
"stoned" word(1) > '{' dup '}' set(31)
"stones" word(1) > '{' dup '}' set(32)
"stonest" word(1) > '{' dup '}' set(33)
"stony" word(1) > '{' dup '}' set(34)
"stood" word(1) > '{' dup '}' set(35)
"storehouse" word(1) > '{' dup '}' set(36)
"straight" word(1) > '{' dup '}' set(37)
"straightway" word(1) > '{' dup '}' set(38)
"strain" word(1) > '{' dup '}' set(39)
"strait" word(1) > '{' dup '}' set(40)
"straitened" word(1) > '{' dup '}' set(41)
"stranger" word(1) > '{' dup '}' set(42)
"strangers" word(1) > '{' dup '}' set(43)
"stream" word(1) > '{' dup '}' set(44)
"street" word(1) > '{' dup '}' set(45)
"streets" word(1) > '{' dup '}' set(46)
"strength" word(1) > '{' dup '}' set(47)
"strengthen" word(1) > '{' dup '}' set(48)
"stretch" word(1) > '{' dup '}' set(49)
"stretched" word(1) > '{' dup '}' set(50)
"stripes" word(1) > '{' dup '}' set(51)
"stripped" word(1) > '{' dup '}' set(52)
"strive" word(1) > '{' dup '}' set(53)
"strong" word(1) > '{' dup '}' set(54)
"stronger" word(1) > '{' dup '}' set(55)
"strowed" word(1) > '{' dup '}' set(56)
"stuff" word(1) > '{' dup '}' set(57)
"stumbleth" word(1) > '{' dup '}' set(58)
"stumblingblock" word(1) > '{' dup '}' set(59)
"subject" word(1) > '{' dup '}' set(60)
"substance" word(1) > '{' dup '}' set(61)
' ' > 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) "spent" do(2) endif
if(3) clear(3) "spilled" do(2) endif
if(4) clear(4) "spin" do(2) endif
if(5) clear(5) "spirit" do(2) endif
if(6) clear(6) "spirits" do(2) endif
if(7) clear(7) "spit" do(2) endif
if(8) clear(8) "spitefully" do(2) endif
if(9) clear(9) "spitted" do(2) endif
if(10) clear(10) "spoil" do(2) endif
if(11) clear(11) "spoils" do(2) endif
if(12) clear(12) "spoken" do(2) endif
if(13) clear(13) "sprang" do(2) endif
if(14) clear(14) "spring" do(2) endif
if(15) clear(15) "springing" do(2) endif
if(16) clear(16) "sprung" do(2) endif
if(17) clear(17) "spue" do(2) endif
if(18) clear(18) "stall" do(2) endif
if(19) clear(19) "stand" do(2) endif
if(20) clear(20) "standing" do(2) endif
if(21) clear(21) "star" do(2) endif
if(22) clear(22) "stars" do(2) endif
if(23) clear(23) "state" do(2) endif
if(24) clear(24) "stature" do(2) endif
if(25) clear(25) "staves" do(2) endif
if(26) clear(26) "steal" do(2) endif
if(27) clear(27) "steward" do(2) endif
if(28) clear(28) "stewardship" do(2) endif
if(29) clear(29) "still" do(2) endif
if(30) clear(30) "stone" do(2) endif
if(31) clear(31) "stoned" do(2) endif
if(32) clear(32) "stones" do(2) endif
if(33) clear(33) "stonest" do(2) endif
if(34) clear(34) "stony" do(2) endif
if(35) clear(35) "stood" do(2) endif
if(36) clear(36) "storehouse" do(2) endif
if(37) clear(37) "straight" do(2) endif
if(38) clear(38) "straightway" do(2) endif
if(39) clear(39) "strain" do(2) endif
if(40) clear(40) "strait" do(2) endif
if(41) clear(41) "straitened" do(2) endif
if(42) clear(42) "stranger" do(2) endif
if(43) clear(43) "strangers" do(2) endif
if(44) clear(44) "stream" do(2) endif
if(45) clear(45) "street" do(2) endif
if(46) clear(46) "streets" do(2) endif
if(47) clear(47) "strength" do(2) endif
if(48) clear(48) "strengthen" do(2) endif
if(49) clear(49) "stretch" do(2) endif
if(50) clear(50) "stretched" do(2) endif
if(51) clear(51) "stripes" do(2) endif
if(52) clear(52) "stripped" do(2) endif
if(53) clear(53) "strive" do(2) endif
if(54) clear(54) "strong" do(2) endif
if(55) clear(55) "stronger" do(2) endif
if(56) clear(56) "strowed" do(2) endif
if(57) clear(57) "stuff" do(2) endif
if(58) clear(58) "stumbleth" do(2) endif
if(59) clear(59) "stumblingblock" do(2) endif
if(60) clear(60) "subject" do(2) endif
if(61) clear(61) "substance" 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)
~~~~~~