let
make_absolute base_path path =
f2s (
PathOperation
.make_absolute (s2f base_path) (s2f path))