let affiche_polynome v = for i = vect_length v - 1 downto 0 do print_int v.(i); print_char `x`; print_char `^`; print_int i ; if i > 0 then begin print_char `+` end done;;