SAS: Factorial Program

%Macro Fact(n);
%let R = 1;
%if &n. = 0 %then %let R = 1;
%if &n. = 1 %then %let R = 1;
%if &n.>1 %then %do;
%do i = 1 %to &n. %by 1;
%let R = %SysEvalf(&R.*&i.);
%end;
%end;

%Put &R.;
%Mend;
%Fact(0);