Biocaml 0.4-dev : Biocaml_accu.Relation.of_stream

let of_stream xs = 

  let r = create () in

  Stream.iter

   ~f:(fun (x,y) -> add r x y)

   xs ;

  r