sig
  type bandit
  val initialBandit : Obandit.Bandit.bandit
  val step : Obandit.Bandit.bandit -> float -> int * Obandit.Bandit.bandit
end