program prob16
    implicit none
    integer :: h, w
    integer :: i, j
    integer :: k, l
    character(5), allocatable :: s(:)
    character(1) :: a
    character(20) :: b

    read(*,*) h, w
    allocate(s(w))
    do i = 1, h
        read(*,*) s
        do j = 1, w
            if(s(j) == "snuke") then
                k = i
                l = j
            end if
        end do
    end do

    !lk
    a = char(ichar('A') + l - 1)
    write(b,*) k
    write(*,'(a,a)') a, trim(adjustl(b))

    deallocate(s)
    stop
contains
end program prob16