import Data.List

main = do
 [h,w] <- map read . words <$> getLine
 ss <- words <$> getContents
 let (Just i) = findIndex (== "snuke") ss
 let col = ['A'..'Z'] !! (mod i w)
 let low = div i w + 1
 putStrLn (col : show low)