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):
        if T[i][j] > 0:
            #print(T[i][j])
            resz += 1
            kezdo = [i,j,T[i][j]]
            MinCsucs = kezdo[:]
            sor = [kezdo]
            Volt = [kezdo]
            while sor:
                akt = sor.pop()
                x = akt[0]
                y = akt[1]
                m = akt[2]
                if 0 < 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] < MinCsucs[2]:
                        MinCsucs = [x-1,y,T[x-1][y]]
                if 0 < 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] < MinCsucs[2]:
                        MinCsucs = [x+1,y,T[x+1][y]]
                if 0 < 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] < MinCsucs[2]:
                        MinCsucs = [x,y+1,T[x][y+1]]
                if 0 < 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] < MinCsucs[2]:
                        MinCsucs = [x,y-1,T[x][y-1]]
            Indul.append(MinCsucs)
            sor = [MinCsucs]
            Volt = [MinCsucs]
            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()
print(resz)
for i,j,m in Indul:
    print(i,j)