import improved

x = """
  n := read;
  fib := 1;
  while n > 1 do
    fib := n * fib;
    n := n -1
  end;
  write fib
"""

improved.callIMP(x)