https://quadexcel.com/wp/r-basics-6-while-and-for-loops/