import qualified Data.Vector as U
import Data.Bits
main = print . U.length . U.init . U.replicate 1000000 $ (7 :: Int)