program xc1;
 var i:integer;
  a0,a1,a2:longint;
  n,k:integer;
begin
 read(n,k);
 a0:=1;
 a1:=k-1;
 for i:=2 to n do
 begin
  a2:=(k-1)*(a0+a1);
  a0:=a1;
  a1:=a2;
 end;
 writeln(a2);
end.