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