let set_strategy ra strategy = ra.strategy <- strategy; enforce_strategy ra