binToInt' acc base (x:xs) = binToInt' (acc+x*base) newBase xs
    where newBase = Prelude.div base 2
binToInt' acc base (x:xs) = binToInt' (acc+x*base) newBase xs
    where newBase = Prelude.div base 2
binToInt' acc base (x:xs) = binToInt' (acc+x*base) newBase xs
    where newBase = Prelude.div base 2