sig
  type ident
  val ps : unit -> unit
  val killable : 'a Rml_fake.process -> 'a option Rml_fake.process
  val kill : (int, Rml_process_manager.ident list) Rml_fake.event
  val suspendable : 'a Rml_fake.process -> 'a Rml_fake.process
  val sr : (int, Rml_process_manager.ident list) Rml_fake.event
  val resetable : 'a Rml_fake.process -> 'a Rml_fake.process
  val reset : (int, Rml_process_manager.ident list) Rml_fake.event
  val changeable :
    ('a, (int * ('state -> unit Rml_fake.process)) list) Rml_fake.event ->
    ('state -> unit Rml_fake.process) -> 'state -> unit Rml_fake.process
  val extensible :
    ('a, (int * ('state -> unit Rml_fake.process)) list) Rml_fake.event ->
    ('state -> unit Rml_fake.process) -> 'state -> unit Rml_fake.process
end