module FTreeLDA: sig .. end
sig
end
val init : 'a -> unit
'a -> unit
val sampling : 'a -> 'b -> 'c -> unit
'a -> 'b -> 'c -> unit