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

Because you are very ugly!
                ~~~~

Edited by author 21.07.2007 16:48