Select Code to Download

sub r {
  my $s;
...
    ( &r , $s ) :
    ()
}

sub recursive_s2a {
  my $str_last;
...
    return;
  }
}