var
r,c,k,i,j,d,f:longint;
a:array[0..6,0..6] of char;
b:array[0..6,0..6] of longint;
procedure dfs(x,y:longint);
begin
    if (x=c)and(y=r) then begin inc(f);exit;end;
    b[x,y]:=1;inc(d);
    if d<k then
      begin
      if (a[x+1,y]='.')and(b[x+1,y]=0) then dfs(x+1,y);
      if (a[x-1,y]='.')and(b[x-1,y]=0) then dfs(x-1,y);
      if (a[x,y+1]='.')and(b[x,y+1]=0) then dfs(x,y+1);
      if (a[x,y-1]='.')and(b[x,y-1]=0) then dfs(x,y-1);
      end;
    dec(d);
    b[x,y]:=0;
end;
begin
  assign(input,'backbarn.in');reset(input);
  assign(output,'backbarn.out');rewrite(output);
  readln(r,c,k);
  fillchar(a,sizeof(a),false);
  fillchar(b,sizeof(b),0);
  d:=0; f:=0;
  for j:=r downto 1 do
    begin
    for i:=1 to c do
      read(a[i,j]);
    readln;
    end;
  if (a[1,1]='.') and(b[1,1]=0) then
    dfs(1,1);
  writeln(f);
  close(input);close(output);
end.