let has_option {options; _} f =     List.exists options ~f