const
 t:array[1..4,1..2] of integer=((0,1),(-1,0),(0,-1),(1,0));
var
  i,j,r,c,s,total:longint;
  o:char;
  b:array[0..6,0..6] of integer;
procedure try(x,y,k:integer);
 var
    i:integer;
 begin
  if (x=1)and(y=c)and (k<=s+1)then begin total:=total+1;exit;end;
  if k>s+1 then exit;
  for i:=1 to 4 do
   if (x+t[i,1]>0) and (x+t[i,1]<=r)and
      (y+t[i,2]>0)and (y+t[i,2]<=c)and
       (b[x+t[i,1],y+t[i,2]]=0)then
    begin
    b[x+t[i,1],y+t[i,2]]:=1;
    try(x+t[i,1],y+t[i,2],k+1);
    b[x+t[i,1],y+t[i,2]]:=0;
    end;
end;
begin
 assign(input,'backbarn.in');
 reset(input);
 assign(output,'backbarn.out');
 rewrite(output);
 readln(r,c,s);
 for i:=1 to r do
  begin
  for j:=1 to c do
  begin
   read(o);
   if o='.' then b[i,j]:=0;
   if o='T' then b[i,j]:=1;
  end;
  readln;
  end;
  b[r,1]:=1;
 try(r,1,1);
write(total);
close(input);
close(output);
end.