let string_of_path path_lst =
    PathOperation.string_of_path (List.map s2f path_lst)