#!/usr/bin/env runhaskell

presolve = unlines . fmap presolve' . lines
presolve' line = if yes then "Yes" else "No"
  where yes = let [a, b] = words line in solve a b

solve as'@(a:as) (b:bs) = solve (if a == b then as else as') bs
solve [] _ = True
solve _ [] = False

main = interact $ presolve