model
{
    x ~ dnegbin(r,3)
    r ~ dunif(0,1)
}