Algorithm in ocaml

I looking pour implementing Ford-Fulkerson algorithm in ocaml, but its hard to imagine how to implement it, is any body have an example code because want to see how to implement.
Thank you

Thank you, I mean the code for this fonction.
Not just the name.