let guess_format t l =
  match Filename.basename(Sys.argv.(0)) with
  |"debcheck"|"dose-debcheck" -> (Url.Debtrue)
  |"eclipsecheck"|"dose-eclipsecheck" -> (Url.Eclipsetrue)
  |"rpmcheck"|"dose-rpmcheck" -> (Url.Synthesis,true)
  |when OptParse.Opt.is_set t -> 
      (Url.scheme_of_string (OptParse.Opt.get t),true)
  |-> (Input.guess_format [l], false)