let reparent path_src path_dst path = f2s (PathOperation.reparent (s2f path_src) (s2f path_dst) (s2f path))