sig
  val biniou_of_json : Yojson.Safe.json -> Bi_io.tree
  val json_of_biniou : Bi_io.tree -> Yojson.Safe.json
end