main :: IO ()
main = interact $ solve . map read . words

solve :: [Int] -> String
solve [a, _, b, _, c, _] = if odd m then ":-)" else ":-("
    where m = length $ filter id $ map (\x -> even x) [a, b, c]
solve _ = ""