%macro words(text,delim=%str( ));
%local i word;
%let i=1;
%let word=%scan(&text,&i,&delim);
%do %while (&word ne );
%put Word number &i is: &word;
%let i=%eval(&i+1);
%let word=%scan(&text,&i,&delim);
%end; %if &i=1 %then %put Text is blank.;
%mend words;
%words(i am big pig);