var
a,b,c,d,r,k,sum:longint;
ss:array[1..5,1..5] of char;
path:array[1..5,1..5] of integer;
procedure cz(x,y,n:longint);
begin
if (x=1) and (y=c) and (n<=k) then inc(sum)
else if n<=k then
begin
if (y>1) and (path[x,y-1]=0) and (ss[x,y-1]<>'T') then begin path[x,y-1]:=1;cz(x,y-1,n+1);path[x,y-1]:=0;end;
if (x>1) and (path[x-1,y]=0) and (ss[x-1,y]<>'T') then begin path[x-1,y]:=1;cz(x-1,y,n+1);path[x-1,y]:=0;end;
if (y<c) and (path[x,y+1]=0) and (ss[x,y+1]<>'T') then begin path[x,y+1]:=1;cz(x,y+1,n+1);path[x,y+1]:=0;end;
if (x<r) and (path[x+1,y]=0) and (ss[x+1,y]<>'T') then begin path[x+1,y]:=1;cz(x+1,y,n+1);path[x+1,y]:=0;end;
end;
end;

begin
assign(input,'backbarn.in');
reset(input);
assign(output,'backbarn.out');
rewrite(output);
readln(r,c,k);
for a:=1 to r do
begin
for b:=1 to c do
read(ss[a,b]);
readln;
end;
path[r,1]:=1;
cz(r,1,1);
write(sum);

close(input);
close(output);
end.