model;
{
   pi ~ dbeta(2,7)
   r ~ dbin(pi,n)
}

data;
list(n=12,r=2)