anchor.diff:                  ("--indent-commens" (setq (options [indent-comments]) true))
                   ("--no-warning" (setq (options [warning]) nil))
                   ("--nw" (setq (options [warning]) nil))
  -                ))))
  -        options))))
  +                ("--help" (print-help))
  +                ("--h" (print-help))
  +                ("-h" (print-help)))
  +              )))
  +      options))))
   
   (define (print-args arg)
     (let (arg-list (parse-args arg))
  
positive.code: 
  (define (indent-files arguments)
    (letn ((opts (parse-args arguments)))
     (when (not (opts [files]))
      ;; Indent from stdin
      (letn ((line (read-line))
             (code ""))
       (while line
        (setq code (append code (string line "\n")))
        (setq line (read-line)))
       (setq indented-code (indent-code code))
       (after-indentation indented-code)))
      (dolist (fpath (opts [files]))
        (unless (empty? fpath)
          (letn ((fname (real-path fpath))
  
negative.code:                   (if (= 1 (length lst))
                        ;; No characters after the equal sign (no dialect specified)
                        (setq (options [default-indent]) (to-int (indent-pair 1) 1))
                      (setq (options [default-indent]) (to-int
                                                        (join (rest lst) "=") 1)))))
                (when (not (empty? (dialect-pair 0)) (empty? (dialect-pair 1)))
                  (let ((lst (parse (dialect-pair 0) "=")))
                    (if (= 1 (length lst))
  