sig
  val s : float Pervasives.ref
  val q : float array Pervasives.ref
  val r_non_zero : (int, float) Hashtbl.t Pervasives.ref
  val q_non_zero : (int, bool) Hashtbl.t Pervasives.ref
  val exclude_token_sparse :
    Owl_nlp_lda.model ->
    int ->
    int ->
    int ->
    s:float Pervasives.ref ->
    r:float Pervasives.ref -> q:float array Pervasives.ref -> unit
  val include_token_sparse :
    Owl_nlp_lda.model ->
    int ->
    int ->
    int ->
    s:float Pervasives.ref ->
    r:float Pervasives.ref -> q:float array Pervasives.ref -> unit
  val init : Owl_nlp_lda.model -> unit
  val sampling : Owl_nlp_lda.model -> int -> int array -> unit
end