let of_stream xs =
    Stream.fold xs ~init:Poly.empty ~f:(fun accu e -> Poly.add accu e) ;