sig
  type interdomentry = { mutable comp : int option; } 
  and firstpassh =
    (Genome.Compact.domain, Genome.Compile.interdomentry) Hashtbl.t
  val make_hash : Genome.Compact.procunit -> Genome.Compile.firstpassh
  val c_md : Ligand.Matcher.matcher -> Genome.OldCompiled.domain
  val c_sd : Ligand.Matcher.snippet -> Genome.OldCompiled.domain
  val compile_domain :
    Genome.Compile.firstpassh ->
    Genome.Compact.domain -> Genome.OldCompiled.domain
  val from_compact :
    Genome.Compact.genome -> Genome.OldCompiled.domain array list list
end