Simulating underdispersed counts

Hello,

Anyone who knows a fast and accurate algorithm for generating draws from an underdispersed Poisson distribution. Or even better, if there is a package containing such an implementation.

Thanks

Rene