print euclid(15000,1260);

sub euclid {
   my( $a, $b ) = @_;
 return ($b) ? euclid( $b, $a % $b ) : $a;
}