let
print_pattern f (x, _) =
Pathname
.print f x