program z625;

var n :integer;

function rook(n:integer): longint;

begin if n<=1 then rook :=1

else rook :=n*rook(n-1);

end;

begin

Write ('vv n');

readln(n);

writeln('otv',rook(n));

end..