fat <- function(n){
  fatorial <- 1
  
  for (i in(1:n)){ 
    fatorial <- fatorial*i
  
  }
  return (fatorial)
}

y <- function(n){
  a <- 0
  a <- n^2
  return(a)
}