Evaluated set out ""; foreach cum [seq 1 20] {append out [m [seq 1 40] {x {. [^C][gay],[gay]▄}} ""]\n}; . $out