program prob3
    implicit none
    integer::h, w, k, i, j, l, cnt, it, jt
    integer, allocatable::c(:,:), tmp(:,:), tmpp(:,:)
    character(len=10)::s
    read(*,*) h, w, k
    allocate(c(h,w), tmp(h,w), tmpp(h,w))
    do i = 1, h
        read(*,*) s
        do j = 1, w
            if(s(j:j) .eq. ".") then
                c(i,j) = 0
            else
                c(i,j) = 1
            end if
        end do
    end do
    cnt = 0
    do i = 0, 2**h-1
        tmp = c
        it = i
        do j = 1, h
            if(mod(it,2) == 1) tmp(j,:) = 0
            it = it/2
        end do
        do j = 0, 2**w-1
        	tmpp = tmp
            jt = j
            do l = 1, w
                if(mod(jt,2) == 1) tmpp(:,l) = 0
                jt = jt/2
            end do
            if(sum(tmpp) == k) cnt = cnt + 1
        end do
    end do
    write(*,*) cnt
    deallocate(c,tmp,tmpp)
    stop
end program