sub gcd ($a is copy, $b is copy -> Int)
 {
 # start of golf course
    while $b != 0 {
       my $t = $b;
       $b = $a % $b;
       $a = $t
       }
 # end of golf course option 1
    return $a
 # end, option 2
 }