      present
      namespace
      parser
-     serializer
      allow-override])
-
-
-(defn string-parser [flag argument]
-  argument)
-
-(defn string-serializer [value]
-  value)
 
 
 (defn define-flag [flag ns]

 [name default help & args]
  (apply define (make-multi-parser integer-parser)
         name default help
         :serializer integer-serializer
         args))



                 (conj new-argv current-arg)))))))


(defn parse-flags
  "Parses command line flags.  Sets *flags* to be the flag values, and
   returns unparsed arguments.  Note that args should start with
