let
is_link s = (
Unix
.lstat s).
Unix
.st_kind =
Unix
.
S_LNK