We’re rewarding the question askers & reputations are being recalculated! Read more.
1 of 4

Mathematica, 48 bytes

a="~Do~1*^10";ToExpression["Echo@0"<>a~Table~10]

Outputs the string >> 0 followed by a newline (1010)10 = 10100 times. Expands to this program:

Echo@0~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10~Do~1*^10