I need to simulate inhomogeneous Poisson process with intensity Lambda(t)=Q(t)/(T-t), where Q(t) decreases exponentially when the event occurs. Until event occurs lambda is