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