-- only fuses with ghc 6.9

import Data.Array.Vector
import Data.Bits

main = print . sumU . mapU fstS . indexedU . enumFromToU 1 $ (100000000 :: Int)