main = do
    [a1,b1,a2,b2,a3,b3] <- map read . words <$> getLine
    let a = ev a1 b1 + ev a2 b2 + ev a3 b3
    if even a then putStrLn ":-(" else putStrLn ":-)"

ev :: Int -> Int -> Int
ev a b = if even a then 1 else 0