let dirname path = 
    f2s (PathOperation.dirname  (s2f path))