binToDouble' acc base (x:xs) = binToDouble' newAcc newBase xs
    where 
        newAcc = acc + (fromIntegral x)*base
        newBase = base / 2.0
binToDouble' acc base (x:xs) = binToDouble' newAcc newBase xs
    where 
        newAcc = acc + (fromIntegral x)*base
        newBase = base / 2.0
binToDouble' acc base (x:xs) = binToDouble' newAcc newBase xs
    where 
        newAcc = acc + (fromIntegral x)*base
        newBase = base / 2.0