Scanf.scanf "%d %d" (fun h w ->
    let rec loop i acc =
        let rec loop2 j acc =
            if j = w then acc else
            let acc = Scanf.scanf " %s" (fun s ->
                if s = "snuke" then Printf.sprintf "%c%d" "ABCDEFGHIJKLMNOPQRSTUVWXYZ".[j] i else acc)
            in
            loop2 (j + 1) acc
        in
        if i > h then acc else loop (i + 1) (loop2 0 acc)
    in
    print_endline @@ loop 1 ""
)