sub altjoin ($$@) {
    my $d1=shift;
    my $d2=shift;
    my $cnt;
    @out=map { $_ => ++$cnt % 2 ? $d1 : $d2} @_;
    pop @out;
    @out;
}