module Cps: sig .. end
sig
end
val forget_t : t -> (Type.t -> 'a) -> 'a
t -> (Type.t -> 'a) -> 'a
val forget_tocs : t_or_comment list -> (Type.t list -> 'a) -> 'a
t_or_comment list -> (Type.t list -> 'a) -> 'a
val forget_toc : t_or_comment -> (Type.t option -> 'a) -> 'a
t_or_comment -> (Type.t option -> 'a) -> 'a