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