18 lines
440 B
Text
18 lines
440 B
Text
[ over find swap found ] is has ( $ c --> b )
|
|
|
|
[ over find
|
|
split 1 split
|
|
swap drop join ] is remove ( $ c --> $ )
|
|
|
|
$ "rosetta/unixdict.txt" sharefile
|
|
drop nest$
|
|
[] swap
|
|
witheach
|
|
[ dup size 3 < iff drop done
|
|
dup size 9 > iff drop done
|
|
dup char k has not iff drop done
|
|
dup $ "ndeokgelw"
|
|
witheach remove
|
|
$ "" != iff drop done
|
|
nested join ]
|
|
30 wrap$
|