How do I retrieve the seed in random processes in R language

sorry for the stupid question. In the following process:

x <- c(1:10)
for(i in 1:20){
   y <- sample(x)
   print(y)
}

How do I retrieve the seed used at each step? (I don't want to pre-establish it). Is there something like "get.seed()"? Thanx