let
string_of_path lst =
OsOperation
.path_writer (
List
.map string_of_filename lst)