program TABLE; {$APPTYPE CONSOLE} var s,a1,a2,a3:int64; f:array[0..1000,0..1000] of int64; max,j,n,m,i:integer; begin assign(input,'TABLE.dat'); reset(input); assign(output,'TABLE.sol'); rewrite(output); readln(n,m); f[1,1]:=1; f[1,2]:=1; for i:=3 to m do f[1,i]:=f[1,i-1]+f[1,i-2]; f[2,1]:=1; for i:=3 to n do f[i,1]:=f[i-1,1]+f[i-2,1]; for i:=2 to n do for j:=2 to m do f[i,j]:=f[i-1,j]+f[i-2,j]+f[i,j-1]+f[i,j-2]; writeln(f[n,m]); close(input); close(output); end.