Evaluated proc gangm {{n 10}} {set out ""; map [seq 1 $n] {x {append out [gang]\n}};. $out}