program niugong;
var
f:text;
m,n,a,b,i,j:integer;
ar:array[1..1000] of integer;
begin
assign(f,'long.in');
reset(f);
readln(f,m,n);
for j:=1 to n do
 begin
 for i:=1 to m do
 read(ar[i,j]);
 readln(f);
 end;
 assign(f,'long.out');
 rewrite(f);

if m*n>10 then begin writeln(f,'4');
close(f);
end.