sig
  type 'a t
  val create : (string -> 'a) -> 'Command.Flag.Type.t
  val bool : bool Command.Flag.Type.t
  val int : int Command.Flag.Type.t
  val float : float Command.Flag.Type.t
end