sub newjoin ($@) {
    my $delim = shift;
    if (@_ == 1 and $delim =~ /^\d+$/) {
        carp "Did you mean to put those parameters the other way round?";
    }
    return join $delim, @_;
}