if n mod 2 = 0 then
  f := 1
else
  f := -1;