anchor.diff:  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
   (define (usage script)
  -  (letn ((base-template "%s %-10s %s")
  -         (opt-template (append "\t -" base-template)))
  +  (letn ((base-template "%s %-20s\t%s")
  +         (short-opt-template (append "\t -" base-template))
  +         (long-opt-template (append "\t--" base-template))
  +         (cmd-template (append "\t  " base-template)))
       (println)
       (println version-string)
       (println)
  
positive.code:     (println "Options:")
      (dolist
        (o getopts:short)
        (println (format opt-template (o 0) (or (o 1 1) "") (o 1 2))))
      (dolist
        (o getopts:long)
        (println (format opt-template (o 0) (or (o 1 1) "") (o 1 2))))
      (println)
      (println "Value:")
      (println "\tThe 'value' parameter will be used to set the brightness level.")
      (println "\tAny value between 1 and 100 is valid.")
      (exit)))
  
  (shortopt "v" (getopts:die version-string) nil "Print version string")
  
negative.code: ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  
  (define (main script opts)
    (if (empty? opts)
      (get-brightness)
      (letn ((cmd-or-value (first opts))
             (int-level (integer cmd-or-value)))
        (cond
          ((= cmd-or-value "inc") (increment-brightness))
          ((= cmd-or-value "dec") (decrement-brightness))
          ((light-value? int-level) (set-level light-level))
          ('true (display-bad-value light-level script)))))
    (exit))
  
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  