Oug: Exemple 2
Code

module M1 = struct
let f x = x + 1
let g y = f y + f (y + 2)

module M1 = struct
let f = f
let h x y z t = f x + g y + z mod 4 + f t
end
end;;

let f x = M1.M1.f x;;
open M1;;
let f = M1.h;;
Oug graph

Graph

Debug graph

Debug graph