Square Root - Ocaml | SlaveCode