(x <- c(Const("pi", 64), mpfr(-2:2, 64)))
str(x)
str(list(pi = pi, x.mpfr = x))
str(x ^ 1000)
str(x ^ -1e4, digits=NULL) # full precision
uu <- Const("pi", 16)# unaccurate
str(uu) # not using default of 12 digits
Run the code above in your browser using DataLab