Biocaml 0.4-dev : Biocaml_accu.Counter.of

let of_stream e = 

    let c = create () in

    Stream.iter ~f:(tick c) e ;

    c