import Data.Array.Vector import Data.Bits main = print . sumU . repeatU 10 $ replicateU (10000000 :: Int) (5::Int)