sig
  type 'a t
  val blit : ('Blit_intf.S1.t, 'Blit_intf.S1.t) Blit_intf.blit
  val blito : ('Blit_intf.S1.t, 'Blit_intf.S1.t) Blit_intf.blito
  val unsafe_blit : ('Blit_intf.S1.t, 'Blit_intf.S1.t) Blit_intf.blit
  val sub : ('Blit_intf.S1.t, 'Blit_intf.S1.t) Blit_intf.sub
  val subo : ('Blit_intf.S1.t, 'Blit_intf.S1.t) Blit_intf.subo
end