let ln(x) = do let n = 1e10 return n * ((x^(1/n)) - 1) let __ln10cache = ln(10) let log(x) = do return ln(x) / __ln10cache let logN(n,x) = do return ln(x) / ln(n) term.log(log(1000))