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