let
log_in_base =
function
a
->
(
function
x
->
log (x) /. log (a))