import Data.Array.Vector
main = print . sumU . mapU (subtract 7) . replicateU 10000000 $ (7 :: Int)