model{
   for(i in 1:m){
     K[i]~dbin(theta,Nk)
   }
   Nk~dcat(Pi)
   # Priors
   theta~dbeta(1,1)
   for(i in 1:N){
      Pi[i]<-1/N
   }
}