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