Probability distribution with random paremeters


Is it possible to set something like this? A probability distribution with random parameters

p = BetaDistribution[1, 1] count = BinomialDistribution[10, p]  (* and to calculate stuff like: *) Expectation[count] Probability[count == 3 \[Conditioned] p > 1/2] ```