let
set_attrs attrs obj =
List
.fold_left (
fun
o (n,v)
->
o >>> set_attr n v) obj attrs