Modeling recursively increasing Poisson rate

Question

I have the model below:

mod_string = " model{

## Likelihood
lambda_hacked[1] <- lambda*Time[1]
z[1] ~dbern(p1)
Count[1] ~ dpois(lambda_hacked[1]*z[1]