Increase performance of gen_homogeneous_poisson

Speed-up factor is about 6.