#!/usr/bin/perl

sub mcd {
  my ($a,$b) = @_;
	if ($a==$b) {
	  $a;
	} else {
    return mcd ($a-$b,$b) if $a>$b;
	  return mcd ($a,$b-$a) if $b>$a;
	}
}

print mcd($ARGV[0],$ARGV[1]),"\n";