import Data.Array.Vector
import Data.Bits
main = print . sumU . mapU (`shiftL` 2) $
            appendU (replicateU 10000000 (1::Int))
                    (replicateU 10000000 (7::Int))