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