do loop in SAS IML code example

Example: do loop in SAS IML

d = {1, 2, 3, 4}; *creating a row vector d

do i = 1 to nrow(d);
	print i;
end;