sig
  type raw
  type t
  val of_raw : Raw_bar_intf.S.raw -> Raw_bar_intf.S.t
  val to_raw : Raw_bar_intf.S.t -> Raw_bar_intf.S.raw
end