val f: (string * int list) list -> string list -> unit Lwt.t