multi infix:<XX> (@a, @b) is equiv(&infix:<¥>) {
    @a.map: -> $a {
        @b.map: -> $b {
            ($a, $b)
        }
    }
}

##</code><code>##

my @dir = map -> $i { [map {$i*$_}, 0..3] }, 1, 22, 21, 20;
my @data = map { .comb, 0 }, @DATA;
say max gather {
    for ^@data XX @dir {
        take int [*] @data[ $^base »+« $^offs ];
    }
}