sub groups_of_n ($n,*@a) {
  return map { [ @a[$_ + ^$n]:v ] }, ^@a:by($n);
}