module B = Bencode
val expected_s : string ‑> string ‑> ('a, string) Result.result
val expected_b : string ‑> B.t ‑> ('a, string) Result.result
val decode_bencode : string ‑> (B.t, string) Result.result
val assoc : string ‑> (string * 'a) list ‑> ('a, string) Result.result
val assoc_or : 'a ‑> 'b ‑> ('b * 'a) list ‑> 'a
val as_str : B.t ‑> (string, string) Result.result
val as_float : B.t ‑> (float, string) Result.result
val as_list : B.t ‑> (B.t list, string) Result.result
val mk_str : string ‑> B.t
val mk_list : B.t list ‑> B.t
val mk_dict : (string * B.t) list ‑> B.t
val mk_pair : B.t ‑> B.t ‑> B.t
val mk_triple : B.t ‑> B.t ‑> B.t ‑> B.t
val mk_quad : B.t ‑> B.t ‑> B.t ‑> B.t ‑> B.t