sig   module Array : sig val set : 'a array -> int -> '-> unit end   module Hashtbl :     sig       type ('a, 'b) t       val create : ?random:bool -> int -> ('a, 'b) Fcl_data.Hashtbl.t       val get : ('a, 'b) Fcl_data.Hashtbl.t -> ('a, 'b) Hashtbl.t       val add : ('a, 'b) Fcl_data.Hashtbl.t -> '-> '-> unit       val find : ('a, 'b) Fcl_data.Hashtbl.t -> '-> 'b       val mem : ('a, 'b) Fcl_data.Hashtbl.t -> '-> bool       val remove : ('a, 'b) Fcl_data.Hashtbl.t -> '-> unit       val replace : ('a, 'b) Fcl_data.Hashtbl.t -> '-> '-> unit       val iter : ('-> '-> unit) -> ('a, 'b) Fcl_data.Hashtbl.t -> unit       val fold :         ('-> '-> '-> 'c) -> ('a, 'b) Fcl_data.Hashtbl.t -> '-> 'c     end end