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

solve :: Int -> String
solve a = show (10 + i + j)  ++  ":" ++ show k
    where
        (i, n) = a `divMod` 100
        k =  (n * 3) `div` 5
        j = n `div` 60