sub myjoin (&@) {
  my $sub = shift;
  my $res = shift;
  $res .= $sub->() . $_ for (@_);
  $res;
}