let
same_contents x y =
Digest
.file x =
Digest
.file y