sub paired(&@) {
    my $cb = shift;
    my @rv;
    push @rv, $cb->(shift, shift) while @_;
    return @rv;
}