import Data.Array.Vector
import Data.Bits
main = print . sumU . mapU fstS $ zipU
                        (enumFromToU 1 (100000000 :: Int))
                        (enumFromToU 2 (100000001 :: Int))