(define (main cmd-line)
  (let ((options (getopt-config-auto cmd-line gobs-root-config)))
    (cond
     [(equal? (full-command options) '("gobs-of-machines" "boss"))
      (start-boss options)])))