f = readLn :: IO Int

f' :: [(Int, Int)] -> [Int]
f' [] = []
f' ((a, b) : xs) = [abs(a - b)] ++ f' xs

solve :: [Int] -> Int -> String
solve x k
    | maximum x > k = ":("
    | otherwise = "Yay!" 

main = do
    a <- f
    b <- f
    c <- f
    d <- f
    e <- f
    k <- f

    let lst = [(a, b)] ++ [(a, c)] ++ [(a, d)] ++ [(a, e)] ++ [(b, c)] ++ [(b, d)] ++ [(b, e)] ++ [(c, d)] ++ [(c, e)] ++ [(d, e)]

    let ans = f' lst
    putStrLn (solve ans k)
