function f = fac(n);
% function f = fac(n);    Fakultaet von n

fprintf('fac aufgerufen mit n=%.0f\n',n);
if n==1 | n==0
  f = 1;
else
  f = n*fac(n-1);
end;
%fprintf('%.0f!= %.0f\n',n,f);
