@verb #1002:"list_Words" this none this rxdo #7153
@program #1002:"list_Words" this none this
":list_words(<language>)"
"  -=>  Returns a list of all the words in the language."
{lang} = args
lex = this.lexicon
try
  ret = $su:columnize(lex.(lang), 2)
except (E_PROPNF)
  raise("... language not found ...")
endtry
return ret
words = this:list_words(language)
.