import Data.List
main = do
	getLine
	dat <- getContents >>= return . map ((\(x,s) -> (map (read::String->Int) x, concat s)) . splitAt 4 . words) . lines
	
	print $ head $ foldl (\ns (x,s) -> if s == "NO" then ns \\ x else intersect ns x ) [0..9] dat