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