(fun x -> let s = Printf.sprintf "%s\n \"%s\";;\n" x (String.escaped x) in Printf.printf "%s\n" (Digest.to_hex (Digest.string s)) ) "(fun x ->\n let s = Printf.sprintf \"%s\\n \\\"%s\\\";;\\n\" x (String.escaped x) in\n Printf.printf \"%s\\n\" (Digest.to_hex (Digest.string s))\n)";;