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