import Data.Array.Vector -- Parallel.Unlifted
main = print . sumU . mapU fstS . indexedU . enumFromToU 1 $ (100000000 :: Int)