Help for this page

Select Code to Download

Select or download this

sub group {
   my $n = shift;
...
}

my @rv = group($C, @list);