FIX Protocol in Ocaml