const mx=36000;
var a:array[1..7300,1..7300] of integer;
l,c:array[1..7300] of int64;
x,y,r,cc,m,n,i,j:integer;
suma,min:int64;
f:text;
procedure citire;
var i,j:integer;
f:text;
begin
assign(f,'elimin.in');reset(f);
readln(f,m,n,r,cc);
for i:=1 to m do
for j:=1 to n do
read(f,a[i,j]);
close(f);
end;
begin
citire;
suma:=0;
while ((0<>r) and (0<>cc)) do
begin
if r<>0 then
begin
for i:=1 to m do
for j:=1 to n do
l[i]:=l[i]+a[i,j];
min:=mx;
for i:=1 to m do
if ((l[i]<min) and (l[i]<>0)) then
begin
min:=l[i];
x:=i;
end;
for i:=1 to n do
a[x,i]:=0;
dec(r);
end;
if cc<>0 then
begin
for j:=1 to n do
for i:=1 to m do
c[j]:=c[j]+a[i,j];
min:=mx;
for i:=1 to n do
if ((c[i]<min) and (c[i]<>0)) then
begin
min:=c[i];
y:=i;
end;
for i:=1 to m do
a[i,y]:=0;
dec(cc);
end;
end;
for i:=1 to m do
for j:=1 to n do
suma:=suma+a[i,j];
assign(f,'elimin.out');rewrite(f);
write(f,suma);
close(f);
end.