working on the ocaml socket stuff