{programmer:mogtaba amirzade 
url http:\\www.ifjam.com
}
program p10(input,output); {15:while form}
var
i,n:integer;
s:longint;
begin
i:=1;
s:=1;
readln(n);
if n=0 then
s:=1
else if n<0 then
writeln(' no answer')
else
while i<=n do
begin
s:=s*i;
i:=i+1;
writeln(s:1);
end; {while}
readln
end.