sig
  val map :
    Lit.renderer ->
    [ `R | `RW | `W ] ->
    Lit.Buf.t -> ('a, 'b) Bigarray.kind -> ('a, 'b) Lit.bigarray
  val unmap : Lit.renderer -> Lit.Buf.t -> unit
end