# Mathematica, 48 bytes
    a="~Do~1*^10";ToExpression["Echo@0"<>a~Table~10]
Outputs the string `>> 0` followed by a newline (10<sup>10</sup>)<sup>10</sup> = 10<sup>100</sup> 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