program i_hate_matrix_construction
  implicit none
  integer :: n, i, j, k
  integer(8) :: x
  integer, dimension(500) :: s = 0, t = 0
  integer(8), dimension(500) :: u = 0, v = 0
  integer(8), dimension(500, 500) :: a = 0
  read(*,*) n
  read(*,*) s(1:n)
  read(*,*) t(1:n)
  read(*,*) u(1:n)
  read(*,*) v(1:n)
  do k = 0, 62
    do i = 1, n
      if (s(i) == merge(1, 0, btest(u(i), k))) cycle
      do j = 1, n
        a(i, j) = set(a(i, j), k, s(i) == 0)
      end do
    end do
    do j = 1, n
      if (t(j) == merge(1, 0, btest(v(j), k))) cycle
      do i = 1, n
        a(i, j) = set(a(i, j), k, t(j) == 0)
      end do
    end do
    do i = 1, n
      if (s(i) == 0) cycle
      if (.not.btest(u(i), k)) cycle
      do j = 1, n
        !if (t(j) == 1) cycle
        if (btest(a(i, j), k)) cycle
        a(i, j) = ibset(a(i, j), k)
        if (all(btest(a(i, 1:n), k))) then
          a(i, j) = ibclr(a(i, j), k)
        else
          exit
        end if
      end do
    end do
    do j = 1, n
      if (t(j) == 0) cycle
      if (.not.btest(v(j), k)) cycle
      do i = 1, n
        !if (s(i) == 1) cycle
        if (btest(a(i, j), k)) cycle
        a(i, j) = ibset(a(i, j), k)
        if (all(btest(a(1:n, j), k))) then
          a(i, j) = ibclr(a(i, j), k)
        else
          exit
        end if
      end do
    end do
  end do
  do i = 1, n
    x = a(i, 1)
    do j = 2, n
      x = operate(x, a(i, j), s(i) == 0)
    end do
    if (x /= u(i)) then
      write(*,'(i0)') -1
      stop
    end if
  end do
  do j = 1, n
    x = a(1, j)
    do i = 2, n
      x = operate(x, a(i, j), t(j) == 0)
    end do
    if (x /= v(j)) then
      write(*,'(i0)') -1
      stop
    end if
  end do
  do i = 1, n
    write(*,'(i0)',advance='no') a(i, 1)
    do j = 2, n
      write(*,'(x,i0)',advance='no') a(i, j)
    end do
    write(*,*)
  end do
contains
  integer(8) function set(a, k, b) result(res)
    integer(8), intent(in) :: a
    integer, intent(in) :: k
    logical, intent(in) :: b
    res = merge(ibset(a, k), ibclr(a, k), b)
  end
  integer(8) function operate(a1, a2, b) result(res)
    integer(8), intent(in) :: a1, a2
    logical, intent(in) :: b
    res = merge(and(a1, a2), or(a1, a2), b)
  end
end program i_hate_matrix_construction