[PhonesSet ps]                      read ../step2/phonesSet
[Tags tags]                         read ../step2/tags
[Dictionary dict ps:phones tags]    read ../step1/convertedDict

set fp [open vocab w]
foreach w [dict:] { puts $fp $w }
close $fp

exit