sub out {
  my $x = shift;
  my $in = sub { ... };
  my $in2 = sub { ...; my $rs = $in->( $arg ); ... };
  return $x + $in_2->( );
}