fattoriale <- function(n) {
    if(n < 2) return(1)
    
    return( n * fattoriale(n-1) )
}