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