sig
  val tactical : Tactical.tactical
  val strategy :
    ?priority:float -> Tactical.selection -> nbits:int -> Strategy.strategy
end