program prob1
    implicit none
    integer::h, w, i, j, tmp
    character(len=20)::x
    character(len=5), allocatable::s(:)
    read(*,*) h, w
    allocate(s(w))
    do i = 1, h
        read(*,*) s
        do j = 1, w
            if(s(j) .eq. "snuke") then
                write(x,*) i
                write(*,'(2a)') char(ichar("A") + j - 1), trim(adjustl(x))
                stop
            end if
        end do
    end do
    deallocate(s)
    contains
end program