uvector-0.1.1.1: tests/Fusion/zipwith.hs

import Data.Array.Vector
import Data.Bits
main = print . sumU . mapU (`shiftL` 1) $ zipWithU (*)
                        (enumFromToU 1 (100000000 :: Int))
                        (replicateU (100000000 :: Int) 42)