let control_arg_spec () =
    (("\nMain Options:"Arg.Unit (fun () -> ()), "") :: (Main.control_arg_spec ()))
  @ (("\nSCM Wrapper Options:"Arg.Unit (fun () -> ()), "") :: (ScmWrapper.arg_spec ()))
  @ (("\nSupervisory Control Options:"Arg.Unit (fun () -> ()), "") :: (Control.arg_spec ()))
  @ (("\nLogging Options:"Arg.Unit (fun () -> ()), "") :: (Logging.arg_spec ()))
  @ (("\nMiscellaneous Options:"Arg.Unit (fun () -> ()), "") :: (Miscellaneous.arg_spec ()))