import Data.Array.Vector import Data.Bits main = print . lastU . mapU (`shiftL` 1) . replicateU 1000000000 $ (7 :: Int)