var a:array[1..1023,1..1023] of integer;
    b,d:array[1..1023] of int64;
    f,g:text;
    n,m,c,r,s,k,w:longint;
procedure citesc;
 var i,j:longint;
 begin
  read(f,n,m,r,c);
  for i:=1 to n do
   for j:=1 to m do begin
    read(f,a[i,j]);
    b[i]:=b[i]+a[i,j];
   end;
  for i:=1 to m do
   for j:=1 to n do
    d[i]:=d[i]+a[j,i];
 end;
procedure aflu;
 var i,j,max:longint;
 begin
  for i:=1 to n-r do begin
   max:=1;
   for j:=2 to n do
    if b[max]<b[j] then
     max:=j;
   b[max]:=-1;
  end;
  for i:=1 to n do
   if b[i]<>-1 then
    for j:=1 to m do
     d[j]:=d[j]-a[i,j];
  for i:=1 to m-c do begin
   max:=1;
   for j:=2 to m do
    if d[max]<d[j] then
     max:=j;
   d[max]:=-1;
  end;
 end;
begin
 assign(f,'elimin.in'); reset(f);
 assign(g,'elimin.out'); rewrite(g);
 citesc;
 aflu;
 s:=0;
 for k:=1 to n do
  for w:=1 to m do
   if (b[k]=-1) and (d[w]=-1) then
    s:=s+a[k,w];
 writeln(g,s);
 close(f); close(g);
end.