file identification in OCaml