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