#!/usr/bin/perl6
sub euclidean (Int $a is copy, Int $b is copy) returns Int {
	my $c;
	while ($b) {
		$c = $a % $b;
		$a = $b;
		$b = $c;
	}
	return $a;
}
say euclidean(8, 24);