sub gcd ($a, $b) {
    return $a if !$b;
    gcd($b, $a % $b);
}

say gcd(24, 42);