let from_list l = List.fold_left (fun m (k,v) -> M.add k v m) M.empty l