Evaluated set out ""; foreach ok [seq 2 13] {append out [join [map [seq 1 15] {x {. [^C]$x,$ok ░▒▓█}}] ""]\n}; . $out