Range[4]

Permutations[Range[4]]

perm=IncrementalObject["Permutations"][Range[4]]

NextValue[perm]

NextValue[perm]

Table[NextValue[perm], 5]

counter=IncrementalObject["Range"][5]

NextValue[counter]

evens=IncrementalObject["Select"][counter,EvenQ]

NextValue[evens]

NextValue[evens]

NextValue[counter]