sig
  val doit :
    (string, Syntaxe.model_info Lxm.srcflaged) Hashtbl.t ->
    Syntaxe.pack_info Lxm.srcflaged -> Syntaxe.pack_given
end