anchor.diff:    (println)
     (println version-string)
     (println)
  -  (getopts:usage))
  +  (argparse:default-usage))
   
   (define (display lines)
     (map println lines))
  
positive.code: #!/usr/bin/env newlisp
  
  (setq prog-name "Battery status")
  (setq version "1.0.0")
  (setq release-year "2016")
  (setq version-string
    (format "%s, version %s (%s)" prog-name version release-year))
  
  (load "include/clj.lsp")
  
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ;;; Supporting functions
  
negative.code: (define (main)
    (println)
    (println (append prog-name ":"))
    (display (get-status))
    (exit))
  
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ;;; Set up and parse options
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  
  (shortopt "v" (getopts:die version-string) nil "Print version string")
  (shortopt "?" (usage) nil "Print this help message")
  (shortopt "h" (usage) nil "Print this help message")
  
  (new Tree 'parsed)
  (parsed (argparse:get-args))
  
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ;;; Run the program
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  
  (main)
  