let rec set_attrs m attrs = match attrs with | [] -> () | (n, v) :: attrs -> Node.set_attribute m n v ; set_attrs m attrs