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