anchor.diff:           (option-arg?
             (lambda (arg)
               (or
  +             (matches-opt? "-version" arg)
  +             (matches-opt? "-v" arg)
                (matches-opt? "-o" arg)
                (matches-opt? "-output" arg)
                (matches-opt? "-dialect" arg)
  
positive.code:     Commandline arguments will instead be read from if no arguments are passed in
      the function call
    "
    (letn ((bool? (lambda (val)
                    (or (= nil val) (= true val))))
           (to-int
            (lambda (str (default-num 1))
  
negative.code:                ((matches-opt? "-indent-commens" curr) (setq (options [indent-comments]) true))
                 ((matches-opt? "-no-warning" curr) (setq (options [warning]) nil))
                 ((matches-opt? "-nw" curr) (setq (options [warning]) nil))
                 ((matches-opt? "-v" curr) (print-version))
                 ((matches-opt? "-version" curr) (print-version))
                 ((matches-opt? "-help" curr) (print-help))
                 ((matches-opt? "-h" curr) (print-help)))
                )))
  