{
TASK:bus
LANG:Pascal
}
var n,k,i:Longint;
    a:array[1..1000] of longint;
Begin
  ReadLn(n,k);
 For i:=1 to n do read(a[i]);
  WriteLn((n-1)*(k-2));
End.