while $b != 0 {
        ($b, $a) = ($a % $b, $b);
    }