source("~/Nova pasta/fat.r")

n <- as.numeric(readline("digite n:"))
if (n > 0 && n<=15){
  for (i in (1:n)){
    print(fat(i))
  }
}