var
  n,m,v,i,j,k,max,d,e:longint;
  g:array[0..200,0..200]of boolean;
  f,w,p:Array[0..200,0..200]of longint;

procedure init;
var
  i,j:longint;
  ch:char;
begin
  assign(input,'gamea.in'); reset(input);
  assign(output,'gamea.out'); rewrite(output);
  readln(n,m,v);
  for i:=1 to n do
   for j:=1 to m do
   begin
     read(p[i,j],ch,ch);
     if ch='N' then w[i,j]:=1
     else w[i,j]:=0;
   end;
end;

begin
  init;
  for i:=1 to m do
   for j:=0 to v do
   begin
     d:=0;
     e:=0;
     f[i,j]:=f[i-1,j];
     for k:=n downto 1 do
     begin
       inc(d,w[k,i]);
       inc(e,p[k,i]);
       if (j>=d)and((w[k,i]<>0)or(j<>d)) then
       begin
         if f[i-1,j-d]+e>f[i,j] then
         f[i,j]:=f[i-1,j-d]+e;
       end;
     end;
   end;
  writeln(f[m,v]);
  close(input);
  close(output);
end.