function f(integer x) : integer
begin
  if x == 1 then
  begin
    result := 1;
  end
  result := f(x - 1) * x;
end