let path_opt_fast cave path = path_opt cave path path_opt_fast_foundf