var IN, OUT : int
open : IN, "DATA5.txt", get
open : OUT, "OUT5.txt", put

type coord :
    record
        x, y, z : int
    end record

var start : array 1 .. 1 of coord
var F : coord
var DEPTH : int := 0

var lay : int
get : IN, lay

var tempStr : string

var b : array 0 .. 6, 0 .. 6, 0 .. lay + 1 of string


procedure BFS (queue : array 1 .. * of coord, depth : int, fin : coord)
    var next : flexible array 1 .. 0 of coord
    for i : 1 .. upper (queue)
        if queue (i).x = fin.x and queue (i).y = fin.y and queue (i).z = fin.z then
            % FOUND
            DEPTH := depth
            return
        end if

        for dx : -1 .. 1
            for dy : -1 .. 1
                if not (abs (dx) = 1 and abs (dy) = 1) then
                    var nextX := queue (i).x + dx
                    var nextY := queue (i).y + dy
                    var nextZ := queue (i).z + 1

                   
                    if b (nextX, nextY, nextZ) = "." or b (nextX, nextY, nextZ) = "B" then
                        var U := upper (next) + 1
                        new next, U
                        next (U).x := nextX
                        next (U).y := nextY
                        next (U).z := nextZ
                    end if

                end if

            end for
        end for
    end for

    BFS (next, depth + 1, fin)
end BFS

for asdf : 1 .. 5     
    DEPTH := 0

    for z : 1 .. upper (b, 3)
        for i : 0 .. 6
            b (0, i, z) := "#"
            b (6, i, z) := "#"
            b (i, 0, z) := "#"
            b (i, 6, z) := "#"
        end for
    end for

    for x : 0 .. 6
        for y : 0 .. 6
            b (x, y, 0) := "#"
            b (x, y, upper (b, 3)) := "#"
        end for
    end for

    for z : 1 .. lay
        for decreasing y : 5 .. 1
            get : IN, tempStr
            for x : 1 .. 5
                if tempStr (x) = "B" then
                    F.x := x
                    F.y := y
                    F.z := z
                end if
                if tempStr (x) = "A" then
                    start (1).x := x
                    start (1).y := y
                    start (1).z := z
                end if
                b (x, y, z) := tempStr (x)
            end for
        end for
    end for

   

    BFS (start, DEPTH, F)
   
    put : OUT, DEPTH
    % put Time.Elapsed / 1000
end for