import Data.Array.Vector
import Data.Bits
main = print . sumU . takeWhileU (< (7::Int)).  enumFromToU 1 $ 10000000

    -- replicateU 1000000 $ (7 :: Int)

    -- gets removed entirely!