Select Code to Download

sub apportion {
  my ($elements, $pieces) = @_;
...
  print "Sizes: ", join(', ', apportion(@$try)), "\n";
  print "@$_\n" for multi_slice([1..$try->[0]], apportion(@$try));
}