(* TODO bin
- no [Bin.of_string] ? *)
let bin_of_string bin s =
let v = Bin.decode bin s (ref 0) in
Ok v
