П=2^16;
SetPrecision[
AbsoluteTiming[

ToString[
N[
SetPrecision[1,П]
/
SetPrecision[84.406022589954030768899117092091000289089388918088900852079,П]
*
SetPrecision[3,П]
^
SetPrecision[9,П]
,П]

]
]
,
2^6]

Manipulate[
П=2^ПП;

𖣠⚪ᗩ✣ᗩↀ⚪𔗢⚪🞋⚪𔗢⚪ↀᗩ✣ᗩ⚪𖣠={};
Dynamic[
Module[
{ᗱᗴ}
,
ᗱᗴ=AbsoluteTiming[
ToString[N[SetPrecision[1,П]/SetPrecision[84.406022589954030768899117092091000289089388918088900852079,П]*SetPrecision[3,П]^SetPrecision[9,П],П]]
]
[[1]];

AppendTo[𖣠⚪ᗩ✣ᗩↀ⚪𔗢⚪🞋⚪𔗢⚪ↀᗩ✣ᗩ⚪𖣠,ᗱᗴ];

ListLinePlot[𖣠⚪ᗩ✣ᗩↀ⚪𔗢⚪🞋⚪𔗢⚪ↀᗩ✣ᗩ⚪𖣠,PlotRange->All,AxesLabel->{"ⵙ","✣"},PlotStyle->{Thin,RGBColor[0,.958,.487]},ImageSize->{256,256}]],PlotRangePadding->0/3^3,TrackedSymbols:>{},UpdateInterval->(SetPrecision[1,П]/SetPrecision[84.406022589954030768899117092091000289089388918088900852079,П]/SetPrecision[3,П]^SetPrecision[3,П]^SetPrecision[3,П])]
,{{ПП,2},0,16,1}]