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