TCL incr filename

Question

I do not want to set $outfile so many times, I would like to incr the filename. How do I do that in TCL?

set incr 1
set outfile [open "file$incr.txt"