Plot[{2^x, 10000}, {x, 0, 15}]