import Control.Monad
import Data.List

solve wbs hbs w h css = length [(i,j) | i <- [0..h-1], j <- [0..w-1], hbs!!i == 0, wbs!!j == 0, ((css !! i) !! j) == '#'] 

main = do
    [h,w,k] <- map read . words <$> getLine :: IO [Int]
    css <- replicateM h getLine
    print $ length [ (hbs, wbs) | hbs <- replicateM h [0,1], wbs <- replicateM w [0,1], (solve wbs hbs w h css) == k]
