method add_list alist =
    ignore (List.map (fun (key, datum) -> self#add key datum) alist)