sig
  exception Disconnected
  class grace_process :
    ?debug:bool ->
    unit ->
    object
      val channel : Pervasives.out_channel
      method exec : string -> unit
      method exit : unit -> unit
      method flush : unit -> unit
      method send : string -> unit
    end
end