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

##</code><code>##

my @poly_coeffs = (0) x ($n + 1) ;
$poly_coeffs[0]++ ;