sig
  type t
  val null : Readline.History.t
  val default : Readline.History.t
  val create : int -> Readline.History.t
  val flush : Readline.History.t -> unit
  val to_list : Readline.History.t -> string list
  val of_list : ?size:int -> string list -> Readline.History.t
end