Problem for loop with Janitor and Rlang

Hey @alistaire another problem how can I assign diferents names to every (tab_freq)?
Please help me something like that:

for(i in seq(1,10)){
  prim <- sym(names(mtcars)[1])
  secun <- sym(names(mtcars)[i+1])
  assign(paste({{ sym(v1) }}, {{ sym(v2) }}, sep="")) <- (tab_freq(mtcars,{{prim}},{{secun}}))
}