module SingleCellHarness: sig end
sig end
class virtual control : object end
object end
class virtual skeleton : object end
val make : unit -> skeleton
unit -> skeleton