anchor.diff:      Commandline arguments will instead be read from if no arguments are passed in
       the function call
     "
  -  (letn ((bool? (lambda (val)
  +  (letn ((print-version (lambda ()
  +                          (printf "yasi v%s" __version__)
  +                          (exit)))
  +         (bool? (lambda (val)
                     (or (= nil val) (= true val))))
            (to-int
             (lambda (str (default-num 1))
  
positive.code:          (option-arg?
            (lambda (arg)
              (or
               (matches-opt? "-o" arg)
               (matches-opt? "-output" arg)
               (matches-opt? "-dialect" arg)
  
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)))
                )))
  