incr a
while {[incr n]<401} {puts [subst [string trim [regsub -all . [incr a $n] { [string repe : &]}]]]}