Algorithm in ocaml

Hi,
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

http://ocamlgraph.lri.fr/doc/Flow.Ford_Fulkerson.html

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

here