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 ];
    }
}