implicit none
  integer::N,i,j
  integer,allocatable::L(:,:)
  integer::total(6),max,indx
  data total/6*0/
  read *,N
  allocate(L(N,0:6))
  read *,L(:,0)

  do j=1,6
     do i=1,N
        L(i,j) = IAND(L(i,0),j)
     end do
  end do
  do j=1,6
     total(j) = SUM(L(:,j))
  end do

end program