#!/usr/bin/perl
##
## mcd.pl <x> <y>
##
#
# &mcd (<x>, <y>)
#
sub mcd
{
    local ($x) = $_[0];
    local ($y) = $_[1];
    #
    while ($x != $y)
      {
        if ($x > $y)
          {
            $x = $x - $y;
          }
        else
          {
            $y = $y - $x;
          }
      }
    #
    return $x;
}
##
## Inizio del programma.
##
$x = $ARGV[0];
$y = $ARGV[1];
#
$z = &mcd ($x, $y);
#
print "Il massimo comune divisore di $x e $y è $z\n";
#
