Чтение, запись и добавление файлов в TCL

В TCL, как добавить различный контент в один файл с помощью цикла for или foreach цикла?