my @poly1_coeffs = () ;
push @poly1_coeffs, 1 ;
foreach (1..$n)
{
	push @poly1_coeffs, 0 ;
}