sub bzr (@) {
    my @a = @_;
    my $n;
    my $i = @_;
    map +($n=randi($i--), $a[$n], $a[$n]=$a[$i])[1], @_;
}