#
# This software is Copyright 2005 by Elsevier Inc.  You may use it
# under the terms of the license at http://perl.plover.com/hop/LICENSE.txt .
#



###
### gcd2
###

## Chapter 5 section 4.1

sub gcd {
  my ($m, $n) = @_;	
  until ($n == 0) {
    ($m, $n) = ($n, $m % $n);
  }
  return $m;
}