{-
URL: http://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=1130&lang=jp
?????????: Red and Black
?????°
19:08:06 ??¶?´???????????????§Haskell??§??????????????????
19:17:53 ??¨??????????????????????????¨?????´??°??????bar???????£?????????????
19:32:19 ????????????
19:34:02 ??????fmap???????????????
19:35:56 AC??????????????£??????
19:36:06 ?????????????????¨????????????????????§????§£??¬????????????????????????
-}
import Control.Monad
import Control.Applicative
import Data.List

main :: IO ()
main = do
 [w,h] <- (map read . words) `fmap` getLine -- w??¨h??????
 when ((w,h) /= (0,0)) $ do -- (0,0)??§????????????????????°
  arr <- replicateM h getLine -- ??°?????????
  print $ foo arr
  main

type Stat = (Integer, [[Char]])



foo :: [[Char]] -> Int -- ??????????????????"@"?????£??\??????"."?????§????????????"@"??????????????????"@"????????°?????????
foo arr = sum $ map(length . (filter (=='@'))) $ snd $ repetitive bar (1,arr)

repetitive :: Eq t => (t -> t) -> t -> t --??????????????????????????§?????¨????????????????±???????
repetitive f s = if f s == s then s else repetitive f (f s)

bar :: Stat -> Stat -- "@"????????????"."???"@"?????????
bar = f . f
 where f = fmap transpose . bar1 ".@" . bar1 "@." -- ???????????????????????????????????????????????????????????¨??¢???

bar1 :: String -> Stat -> Stat -- replace all `bef` with "@@", while counting the num
bar1 bef (num, dat) = (num + sum(map fst d'), map snd d')
 where 
  d' = map f dat -- ???????????????????????¨?????°????????????????????§????¨?
  f :: String -> (Integer,String)
  f str
   | null str = (0,"") -- ??????????????????0???
   | bef `isPrefixOf` str = count $ ("@@" ++) `fmap` f(drop 2 str) -- ?????????2???????????´????????????????????¨???????????°?????°?¢???????
   | otherwise = (head str :) `fmap` f (tail str) -- ??¶???????????°?????????????????????????????°

count :: (Integer,a) -> (Integer,a)
count(a,b)=(a+1,b)