open random number list

vdc bs n = vdc' 0.0 1.0 n
  where vdc' v d n
          | n > 0 = vdc' v' d' n'
          | else  = v
          where
            d' = d * bs
            rem = n % bs
            n' = truncate (n / bs)
            v' = v + rem / d'