sub bzr (@) {
    my @a = 0..$#_;
    my $i = @_;
    my $n;
    map +($_[$a[$n=rand($i--)]], $a[$n]=$a[$i])[0], @_;
}