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