gistfile1.txt

    our %TERM;
    for 0..^%*ENV<COLUMNS> X 0..%*ENV<ROWS> -> $x, $y {
        say "$x $y";
        %TERM<cup>[$x][$y] = qq:x{ tput cup $y $x };
    }