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