Hi all, What may be a smart, efficient way to get the following result: myvector <- c("A","B","C","D","E") myseries <- miracle(myvector) myseries [1] [[1]] "A" [2] [[1]] "A" "B" [3] [[1]] "A" "B" [4] [[1]] "A" "B" "C" [5] [[1]] "A" "B" "C" "D" [6] [[1]] "A" "B" "C" "D" "E" Thanks for any hints, Joh