let find_in_path p paths file =     List.find_all p (List.map (fun p -> Filename.concat p file) paths);;