handleOther :: P.Pipe Request T.Text Asked ()
handleOther = do
    b <- RWS.get
    shouldAsk <- P.lift . RWS.lift $ R.sample b
    when shouldAsk $ P.yield "Spurgt!"
handleOther :: P.Pipe Request T.Text Asked ()
handleOther = do
    b <- RWS.get
    shouldAsk <- P.lift . RWS.lift $ R.sample b
    when shouldAsk $ P.yield "Spurgt!"
handleOther = do
    b <- RWS.get
    shouldAsk <- P.lift . RWS.lift $ R.sample b
    when shouldAsk $ P.yield "Spurgt!"