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