Select Code to Download

sub list_all_even {
   _list_all_even_from(0)
...
   my $from=shift;
   ($from, _list_all_even_from($from+2))
}

sub head {
  my ($n,@list)=@_;
...
  shift;
  @_
}