-- x, 2x - 1, 4x - 3, 8x - 7 ....
sumAbsorbedMotes :: Mote -> Int -> Mote
sumAbsorbedMotes x i = (2^i)*x - (2^i - 1)
sumAbsorbedMotes :: Mote -> Int -> Mote
sumAbsorbedMotes x i = (2^i)*x - (2^i - 1)
sumAbsorbedMotes x i = (2^i)*x - (2^i - 1)