import Control.Monad

main=do
    (h:w:_)<-map read.words<$>getLine::IO[Int]
    ss <- replicateM h $ words<$>getLine::IO[[String]]
    putStrLn $ (\(a,b)->b:show a) $ finds (1,'A') ss
--
finds (h,w) ([]:ss) = finds (h+1,'A') ss 
finds (h,w) (("snuke":ss):_) = (h,w)
finds (h,w) ((_:ss):sr) = finds (h,succ w) (ss:sr)