sub newjoin {
    my( $f, $a, @r ) = @_;
    my $t = shift @r;
    $t .= ( $f . join $a, @r ) if @r;
    return $t;
}