#!/usr/bin/perl

sub euclid {
    ($b, $a) = @_;
    print"\t\$a: $a\t\t\$b: $b\n";
    ($b, $a) = ($a, $b) if $b < $a;
    print"\t\$a: $a\t\t\$b: $b\n";
    $d = int($b / $a);
    $r = $b % $a;
    print "\\indent{}\\indent{}\$$b = $d($a) + $r\$\\\\\n";
    euclid($a, $r) if $r;
}

euclid(@ARGV);
print "\\indent{}\\indent{}gcd($ARGV[0], $ARGV[1]) = $a\\\\\n";