List.Assoc
val find_exn : equal:('a -> 'b -> bool) -> ('a * 'c) list -> 'b -> 'c
val find : equal:('a -> 'b -> bool) -> ('a * 'c) list -> 'b -> 'c option