model{
   # Likelihood function
   k~dbin(theta,N)
   
   # Prior
   theta~dbeta(1,1)
   thetaprior~dbeta(1,1)
   
   # Prior predictive distribution
   priork~dbin(thetaprior,N)
   
   # Posterior predictive districution
   postk~dbin(theta,N)
}