sig
  type simulation_mode_type = Manual | Automatic
  val simulation_mode_names :
    (Option.Control.simulation_mode_type * string) list
  val show_estimate_opt : bool Pervasives.ref
  val simulation_only_opt : bool Pervasives.ref
  val simulation_mode_opt :
    Option.Control.simulation_mode_type Pervasives.ref
  val show_estimate : unit -> bool
  val simulation_only : unit -> bool
  val simulation_mode : unit -> Option.Control.simulation_mode_type
  val arg_spec : unit -> (string * Arg.spec * string) list
end