main :: IO ()
main = putStrLn =<< solve <$> readLn


solve :: Int -> String
solve n | b < 10    = show a ++ ":0" ++ show b
        | otherwise = show a ++ ":"  ++ show b
        where
            c = 600 + ((n * 6) `div` 10)
            (a, b) = c `divMod` 60