##Fun Functions!
fun1 <- function(x){
  r <- x-1/fun2(x)
  r
}
fun2 <- function(y){
  r <- y*log(fun3(y))  
}
fun3 <- function(z){
  z <- z^2
  r <- 1-sqrt(z^2)/z
  if (r<10)
     r^2
  else r^3
  r
}