let create n ?(attrs = []) () =
    let m = Node.element n in
      set_attrs m attrs ;
      m