getzu := proc(lst)
    local m, n;
    m, n := Dimensions(lst);
    for i from 1 to m do
        for j from 1 to n do
            if lst[i, j] = 1 do
                print([lst[2, j], lst[i, 2]] = 1);
            end do;
            if lst[i, j] = 0 do
                print([lst[2, j], lst[i, 2]] = 0);
            end do;
        end do;
    end do;
end proc: