anchor.diff:    (usage script))
   
   ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  +;;; Set up and parse options
  +;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  +
  +(define (usage script)
  +  (letn ((base-template "%s %-10s %s")
  +         (opt-template (append "\t -" base-template)))
  +    (println)
  +    (println version-string)
  +    (println)
  +    (println
  +      (format "Usage: %s [options|value]" script))
  +    (println)
  +    (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")
  +(shortopt "h" (usage (argparse:get-script)) nil "Print this help message")
  +(longopt "help" (usage (argparse:get-script)) nil "Print this help message")
  +
  +(new Tree 'parsed)
  +(parsed (argparse))
  +
  +;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   ;;; Entry point
   ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
  
positive.code: #!/usr/bin/env newlisp
  
  (setq prog-name "backlight")
  (setq desc "an xbacklight wrapper")
  
negative.code: ;;; Run the program
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  
  (main (parsed "script")
        (parsed "opts"))
  