import Data.Monoid
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import Blaze.ByteString.Builder
import Blaze.ByteString.Builder.Char.Utf8
import Data.Vector as V

decimals = V.generate 10000000 (\i -> fromShow $ i + 1)
with_newlines = V.map (`mappend` fromChar '\n') decimals
concatd = V.foldr1 mappend with_newlines
main = L.putStr . toLazyByteString $ concatd