sig
  type interfid = Input | Output of int
  val get_interf_character :
    Protein.Abstract.BMD.interfid -> Protein.Abstract.interf_character
  type initstate = unit
  and state = unit
  and config = int
  and cons = Protein.Abstract.BMD.initstate * Protein.Abstract.BMD.config
  val num_lbprojs : int
  val num_sbprojs : int
end