integer::N,i,j,ans integer,dimension(1:6)::A,B,C,D character*3,dimension(1:6)::R integer::memo(0:9) data memo/10*1/ read *, N do i=1,N read *,A(i),B(i),C(i),D(i),R(i) end do do i=1,N if(R(i).eq."YES") then do j=0,9 if(j.eq.A(i) .or. & j.eq.B(i) .or. & j.eq.C(i) .or. & j.eq.D(i) ) then else memo(j)=0 end if end do else memo(A(i))=0 memo(B(i))=0 memo(C(i))=0 memo(D(i))=0 end if end do do i=0,9 if(memo(i).eq.1) then ans=i end if end do print '(i0)',ans end program