* @param first element in history (this history is never empty) *)
class ['a] browser_history: ?memento:'a memento -> int -> 'a -> ['a] history
+ (** create a singleton from a given function. Given function is invoked the
+ * first time it gets called. Next invocation will return first value *)
+val singleton: (unit -> 'a) -> (unit -> 'a)
+
+ (** create a list of directories, building also parents as needed *)
+val mkdirs: string list -> unit
+
(** {2 db handling} *)
val dbd_instance: unit -> Mysql.dbd