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