Option.ListList.flatten l is the list of all the ys such that l contains Some y (in the same order).
List.find f l is the first f a different from None, scrolling through elements a of l in left-to-right order; it is None if no such element exists.