sig
  exception Argument_missing of string
  class type lookup =
    object
      method bcount : string -> int
      method bool : string -> bool
      method int : ?default:int -> string -> int
      method ints : string -> int list
      method string : ?default:string -> string -> string
      method strings : string -> string list
      method usage : unit
    end
  val go : ?argv:string array -> ?usage:string -> string -> Flags.lookup
end