N,M = map(int,input().split())
null = [0]*(M+2)
T = [null]
for _ in range(N):
    sor = list(map(int,input().split()))
    sor = [0] + sor + [0]
    T.append(sor)
T.append(null)
resz = 0
Indul = []
for i in range(1,N+1):
    for j in range(1,M+1):
        Szomszed = []
        if T[i][j] != 0:
            if T[i-1][j] != 0:
                Szomszed.append(T[i-1][j])
            if T[i+1][j] != 0:
                Szomszed.append(T[i+1][j])
            if T[i][j-1] != 0:
                Szomszed.append(T[i][j-1])
            if T[i][j+1] != 0:
                Szomszed.append(T[i][j+1])
            if len(Szomszed) > 0 and T[i][j] < min(Szomszed):
                Indul.append([i,j])
                resz += 1
                sor = [[i,j,T[i][j]]]
                Volt = [[i,j]]
                while sor:
                    akt = sor.pop()
                    #print(akt)
                    x = akt[0]
                    y = akt[1]
                    m = akt[2]
                    T[x][y] = 0
                    if T[x-1][y] >= m and [x-1,y,T[x-1][y]] not in Volt:
                        sor.append([x-1,y,T[x-1][y]])
                        Volt.append([x-1,y,T[x-1][y]])
                    if T[x+1][y] >= m and [x+1,y,T[x+1][y]] not in Volt:
                        sor.append([x+1,y,T[x+1][y]])
                        Volt.append([x+1,y,T[x+1][y]])
                    if T[x][y+1] >= m and [x,y+1,T[x][y+1]] not in Volt:
                        sor.append([x,y+1,T[x][y+1]])
                        Volt.append([x,y+1,T[x][y+1]])
                    if T[x][y-1] >= m and [x,y-1,T[x][y-1]] not in Volt:
                        sor.append([x,y-1,T[x][y-1]])  
                        Volt.append([x,y-1,T[x][y-1]])  
                #a = input()
for i in range(1,N+1):
    for j in range(1,M+1):
        if T[i][j] != 0:
            Indul.append([i,j])
            resz += 1           
print(resz)
#Indul.sort()
for i,j in Indul:
    print(i,j)