Olymp_A.pas

var S : string;
N, K : integer;
res, i : integer;

begin
readln(S);
N:=Ord(S[1])-48;
K:=Ord(S[3])-48;
if ((N>1) and (K>0)) then begin
res:=1;
for i:=1 to (K-2) do
res:=res*N;
res:=res*(N-1)*(N-1);
end
else res:=0;
writeln(res);
end.