import qualified Data.List as L
readInt    = read :: String -> Int
getInt     = readInt <$> getLine
getIntList = map readInt . words <$> getLine
main = do
  path1 <- getIntList
  path2 <- getIntList
  path3 <- getIntList
  let
    result1 = check path1 path2 path3
    result2 = check path1 path3 path2
    result3 = check path2 path1 path3
    result4 = check path2 path3 path1
    result5 = check path3 path1 path2
    result6 = check path3 path2 path1
  putStrLn $ if result1 || result2 || result3 || result4 || result5 || result6 then "YES" else "NO"
check [a1, b1] [a2, b2] [a3, b3] =
  check2 a1 b1 a2 b2 a3 b3 ||
  check2 a1 b1 a2 b2 b3 a3 ||
  check2 a1 b1 b2 a2 a3 b3 ||
  check2 a1 b1 b2 a2 b3 a3 ||
  check2 b1 a1 a2 b2 a3 b3 ||
  check2 b1 a1 b2 a2 a3 b3 ||
  check2 b1 a1 a2 b2 b3 a3 ||
  check2 b1 a1 b2 a2 b3 a3
check2 a1 b1 a2 b2 a3 b3 =
  b1 == a2 && b2 == a3 && [1,2,3,4] == L.sort [a1, a2, a3, b3]