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:        (>= value 1)
         (<= value 100)))
  
  (define (set-level value)
    (! (format "xbacklight -set %s" value)))
  
  (define (display-bad-value level script)
    (print (format "\nERROR: the provided value '%s' is not valid " level))
  
negative.code:     (println "Options:")
      (dolist
        (o getopts:short)
        (println (format short-opt-template (o 0) "" (o 1 2))))
      (dolist
        (o getopts:long)
        (println (format long-opt-template (o 0) "" (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.")
      (println)
      (println "Commands:")
      (println
        (format cmd-template
                "inc"
                ""
                "Increase brightness by 10"))
      (println
        (format cmd-template
                "dec"
                ""
                "Decrease brightness by 10"))
      (println
        (format cmd-template
                "<none>"
                ""
                "If no comand is provided, the current brightness is returned"))
      (exit)))
  
  (shortopt "v" (getopts:die version-string) nil "Print version string")
  