#!/usr/bin/perl
#
# Computes the gcd of several integers (or polynomials) over Z. This program
# is only useful when you forgot to pass the -Z option to samuel.
#
die "Usage: $0 numbers...\n" if $#ARGV < 0;
open(STDOUT, "|samuel -bZ");
print join('&',@ARGV),";\n";
close STDOUT;
