open Nn open ComputeVisitor class pmc = object (self : 'a) inherit [('a) computeVisitor] nn method accept (visitor : ('a) computeVisitor) = visitor#visitPMC self method print = Printf.printf "ca marche...\n" end