set ff [open "file_out.txt" "w"] puts $ff "Questa e' un prova" puts $ff "di scrittura su file" close $ff
file_write.tcl
file_out.txt