Daniel Bünzli wrote:
> I'd like to announce the existence of the following snippet of code.
> 
> Uuidm is an OCaml module implementing 128 bits universally unique 
> identifiers version 3, 5 (name based with MD5, SHA-1 hashing) and 4 
> (random based) according to RFC 4122.

Thanks, Daniel!

I don't think you need Obj.magic for the md5 function - Digest.t is 
equivalent to string in the interface. For instance:

# module M : sig val md5 : string -> string end = struct let md5 = 
Digest.string end;;
module M : sig val md5 : string -> string end
# M.md5 "AsdfasdfasdF";;
- : string = "\248~\198\237v\220\165d\187\214\200\158\\\"=\133"

Cheers,
Dave