var integer procedure QW integer begin if then QW x-1 end Begin read Q

var
   a, n :integer;
procedure QW(r,x :integer);
begin
if (x <> 0) then
r:=r*QW(r,x-1);
end;

Begin
read (a,n);
QW (a,n);
end.