St_bitblt
type oop = St_memory.oop
val copy_bits : St_memory.t -> oop -> bool
val changes : unit -> int
val form : St_memory.t -> oop -> (int * int * (int -> int -> bool)) option