use v6;
sub swap($a is rw, $b is rw) {
   ($a, $b) = ($b, $a);
}