Evaluated proc flood {f j} { for {set i 0} {$i < $f} {incr i} { flood($i, "$j"); return("$j"); } }