var  h,i,k,j,n,m,ans,p,o,q,ii,jj:longint;
     f,c:array[0..210,0..210]of longint;
     s,qq:char;
     w:array[0..500]of int64;
     g:array[0..210,0..210]of boolean;


begin
assign(input,'gamea.in');reset(input);
assign(output,'gamea.out');rewrite(output);
readln(n,m,k);
for i:=1 to 500 do w[i]:=0;
fillchar(c,sizeof(c),false);
for j:=1 to n do
 begin
 for i:=1 to m do
   begin
   read(f[n-j+1,i],qq,s);
   if s='N' then c[j,i]:=1
   else c[j,i]:=0;
   end;
 readln;
 end;

fillchar(g,sizeof(g),false);
for i:=1 to m do g[1,i]:=true;

q:=0; ans:=0;p:=1;ii:=1;jj:=1;
for h:=1 to k do
   begin
   q:=0;
   for i:=1 to m do
     for j:=1 to n do
        if g[i,j] and(f[i,j]>q)then
        begin
        q:=f[i,j];jj:=j;ii:=i;
        end;
   g[ii,jj]:=false;g[ii+1,jj]:=true;
   ans:=ans+f[ii,jj];
   end;
writeln(ans);
close(input);close(output);

end.