sub s1 {
  my $sub = shift || \&s2;
  print "s1";
  $sub->();
}