sig
  class virtual cell_control :
    object
      method virtual activate : unit
      method virtual feed : string -> unit
    end
  val make : Genome.OldCompiled.genome -> Cell.cell_control
end