Sieve - Ocaml | SlaveCode