uvector-0.1.1.1: tests/Fusion/append.hs

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