Little Haskell script to compute the probability of having at least t 1s in a n-bits string