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