Make it so CatRecorder can be initialised with a CatLoop

[frankier]

It's tightly coupled anyway.

Currently:

recorder = Sim.CatRecorder(
    0,
    20;
    likelihood=(;
        points=-4.0:0.1:4.0,
        type=:ability_distribution,
        estimator=ability_distribution,
        integrator=ability_integrator,
    ),
    ability=(;
        type=:ability,
        estimator=ability_estimator
    ),
    ability=(;
        type=:ability_stddev,
        estimator=ability_estimator
    ),
)
rules = CatRules(
    next_item,
    TerminationConditions.FixedLength(12),
    ability_estimator,
)
Sim.run_cat(
    CatLoop(;
        rules,
        get_response=Sim.auto_responder(responses),
        recorder
    ),
    item_bank
)