def cnte(h,w)
  cnt = 0
  0.upto(H-1) do |i|
    0.upto(W-1) do |j|
      if h.include?(i) || w.include?(j)
        next
      else
        if $c[i][j] == "#"
          cnt += 1
        end
      end
    end
  end
  return cnt
end

H,W,K = gets.split(" ").map(&:to_i)
$c = []
H.times do
  $c.push(gets.chomp)
end
cnt = 0
0.upto((2**H)-1) do |dh|
  bs = dh.to_s(2)
  bh = "0" * (H - bs.size)
  bh += bs
  l1 = []
  0.upto(bh.size-1) do |i|
    l1.push(i) if bh[i] == "1"
  end
  numh = l1.size
  0.upto((2**W)-1) do |dw|
    bss = dw.to_s(2)
    bw = "0" * (W - bss.size)
    bw += bss
    l2 = []
    0.upto(bw.size-1) do |i|
      l2.push(i) if bw[i] == "1"
    end
    numw = l2.size
    next if numh + numw > H + W
    if cnte(l1,l2) == K
      cnt += 1
    end
  end
end
    
puts cnt