Working dbinom code