let
put_strategy ra strategy = ra.strategy <- strategy