{ > Src.Fac }

program fac (output);

var now, i : integer;

function fac (x : integer) : integer;
begin
  if x > 1 then fac := x * fac (pred (x)) else fac := 1
end;

begin
  now := time;
  for i := 0 to 12 do writeln('fac (',i,') is ', fac (i));
  writeln ('time is ', time-now);
end.