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]
```