Evaluated proc flood {f j} {set out ""; for {set i 0} {$i < $f} {incr i} {append out "$j\n"}; . $out }