A xenstore protocol implementation in ocaml