runAsked :: BotNick -> Probability -> Asked a -> IO a
runAsked botnick initialProb a =
    R.runRVarT (fst <$> RWS.evalRWST a botnick (R.bernoulli initialProb))
        R.StdRandom
runAsked :: BotNick -> Probability -> Asked a -> IO a
runAsked botnick initialProb a =
    R.runRVarT (fst <$> RWS.evalRWST a botnick (R.bernoulli initialProb))
        R.StdRandom
runAsked botnick initialProb a =
    R.runRVarT (fst <$> RWS.evalRWST a botnick (R.bernoulli initialProb))
        R.StdRandom