let
create assigs =
let
folder model assig = assig model
in
List
.fold_left folder empty assigs