let md5sum_of_file file =
  let com = Printf.sprintf "md5sum %s | cut -d\" \" -f 1"
      (Filename.quote file)
  in
  let ic = Unix.open_process_in com in
  let s = input_line ic in
  close_in ic;
  ignore (Unix.wait ());
  s