I am trying to get a jacl script that writes generated output to an external file.
I've tried the following but nothing happens. Does anyone have suggestions.

set f [open "e:\test.txt" "r"]
while {[gets $f line] >= 0} {
puts "test"
}
close $f