model{
   # Likelihood function
   for(i in 1:m){
      k[i]~dbin(theta,N[i])
   }
   # Prior
   theta~dbeta(1,1)
}