sub groups_of_n ($n,*@a) {
  return map { [ @a[$_ ..^ ($_+$n min +@a)]] }, (0..@a.end/$n) »*» $n;
}