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