\ computes the factorial of each value in a sequence
var factout,n;

procedure factorial(n);
begin
  if n=0 then
    factout:=1
  else
  begin
    call factorial(n-1);
    factout:=n*factout
  end
end;

begin
  n:=in;
  while n#(-999999) do
  begin
    call factorial(n);
    out:=factout;
    n:=in
  end
end.