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