A port of the pttcp traffic generator to ocaml