open: infile, "phrases.txt", get
for i : 1..10
get: infile, word:*
words(i) := word
end for