sig
  val commands : string list Pervasives.ref
  val remaining : string list Pervasives.ref
  val append_command : string -> unit
  val init_commands : string list Pervasives.ref
  val append_init_command : string -> unit
  val add_option : string * Arg.spec * string -> unit
  val parse : unit -> unit
end