s" /usr/share/dict/words" r/o open-file throw value dict-words
dict-words file-size throw constant dict-size
dict-size 1+ allocate throw value dict-data
dict-data dict-size dict-words read-file throw drop
0 dict-data dict-size + c!  ( null terminate )
    🙜
s" my20.txt" r/o open-file throw value my20-words
my20-words file-size throw constant my20-size
my20-size 1+ allocate throw value my20-data
my20-data my20-size my20-words read-file throw drop
0 my20-data my20-size + c!  ( null terminate )