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