import Control.Monad
import Control.Applicative
import Data.Maybe
import Data.List
import Data.Char

main :: IO ()
main = do
  [h,w] <- map read . words <$> getLine
  ss <- replicateM h $ words <$> getLine
  nya ss $ \y x -> putStrLn $ chr (x + 65) : show y

nya :: [[String]] -> (Int -> Int -> a) -> a
nya [] con = undefined
nya (x:xs) con = case elemIndex "snuke" x of
  Just y -> con 1 y
  Nothing -> nya xs $ \p q -> con (p+1) q