sig
  val blit : (t, string) Blit_intf.blit
  val blito : (t, string) Blit_intf.blito
  val unsafe_blit : (t, string) Blit_intf.blit
  val sub : (t, string) Blit_intf.sub
  val subo : (t, string) Blit_intf.subo
end