import Data.Array.Vector import Data.Bits main = print . lengthU . initU . replicateU 1000000 $ (7 :: Int)