log10 <- function(x) log(x,10)
log2 <- function(x) log(x,2)