import Data.Bool

main = putStrLn . solve . map read . words =<< getContents

solve :: [Int] -> String
solve xs = bool ":(" "Yay!" . all (<=k) . map dist $ sequence [ns, ns]
    where
        (k:ns) = reverse xs

dist [x, y] = abs $ x - y
