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