import Control.Monad
import Data.List
main = do
    [h,w] <- map read . words <$> getLine
    ss <- replicateM h $ words <$> getLine
    let Just i = findIndex (any (=="snuke")) ss
        Just j = findIndex (=="snuke") (ss !! i)
    putStrLn $ (['A'..'Z'] !! j) : show (i + 1)