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