let h1 ?style ?(attrs = []) children =
    let m = create "h1" ~attrs:attrs () in
      set_attr_opt m "style" style ;
      List.iter (Node.append m) children ;
      m