main = do
    n <- int
    let 
        xs = map (\i -> (i,i * 108 `div` 100)) [1..50000]
        ys = filter ((==n) . snd) xs

    if null ys
        then putStrLn ":)"
        else print $ fst $ head ys

int :: IO Int
int = readLn 