sig type 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