program i_hate_matrix_construction
  implicit none
  integer, parameter :: intkind = 16
  integer :: n, i, j, k
  integer, dimension(500) :: s = 0, t = 0, p = 0, q = 0, x = 0, y = 0
  integer(intkind), dimension(500) :: u = 0, v = 0
  integer(intkind), 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, 64
    do i = 1, n
      p(i) = pattern(s(i), btest(u(i), k))
      q(i) = pattern(t(i), btest(v(i), k))
    end do
    x(1:n) = 0
    y(1:n) = 0
    do i = 1, n
      do j = 1, n
        if (p(i) + q(j) == 1) call halt()
        if (p(i) == 1 .or. q(j) == 1 .or. p(i) + q(j) == 6) then
          a(i, j) = ibset(a(i, j), k)
          x(i) = x(i) + 1
          y(j) = y(j) + 1
        end if
      end do
    end do
    j = 1
    do i = 1, n
      if (p(i) == 2 .and. x(i) == n) call halt()
      if (.not.(p(i) == 3 .and. x(i) == 0)) cycle
      do while (j <= n .and. .not.(q(j) == 2 .and. y(j) < n - 1))
        j = j + 1
      end do
      if (j > n) call halt()
      a(i, j) = ibset(a(i, j), k)
      x(i) = x(i) + 1
      y(j) = y(j) + 1
    end do
    i = 1
    do j = 1, n
      if (q(j) == 2 .and. y(j) == n) call halt()
      if (.not.(q(j) == 3 .and. y(j) == 0)) cycle
      do while (i <= n .and. .not.(p(i) == 2 .and. x(i) < n - 1))
        i = i + 1
      end do
      if (i > n) call halt()
      a(i, j) = ibset(a(i, j), k)
      x(i) = x(i) + 1
      y(j) = y(j) + 1
    end do
  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 function pattern(s, b) result(res)
    integer, intent(in) :: s
    logical, intent(in) :: b
    ! 0: all 0
    ! 1: all 1
    ! 2: any 0
    ! 3: any 1
    res = mod(2 * s + merge(0, 1, b) + 1, 4)
  end
  subroutine halt()
    write(*,'(i0)') -1
    stop
  end
end program i_hate_matrix_construction