well, this seems to work. 2nd ocaml using Async.Std
3rd ever working ocaml code: this time using the Async_parallel pkg