var a:array[1..10000,1..10000] of integer; i,j,s,m,n,l,c:longint; f1,f2:text;
begin
        assign(f1,'elimin.in');
        reset(f1);
        assign(f2,'elimin.out');
        rewrite(f2);
        read(f1,m,n,l,c);
        for i:=1 to n do
        for j:=1 to m do
        begin
                read(f1,a[i,j]);
                s:=s+a[i,j];
        end;
        write(f2,s);
end.