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