module Main where

import Text.Printf

main :: IO()
main = interact (showResults . map (uncurry (>)) . readTestCases)

readTestCases :: String -> [(Int,Int)]
readTestCases = pairUp . (map read) . words

pairUp :: [Int] -> [(Int,Int)]
pairUp (0:0:_) = []
pairUp (n:m:rest) = (n,m): (pairUp rest)

showResults ::  [Bool] -> String
showResults = unlines . (map format)
format True = "Yes"
format False = "No"
