let lastIndexOf x l = let n = List.length l in match indexOf x (List.rev l) with | None -> None | Some i -> Some (n-1-i)