Evaluated proc cblock {c x y} { string repeat "[^C]$c,$c[string repeat { } $x]\n" $y}