import Text.Printf

secToTHS sec = (t,h,s)
    where t = sec`div`(60*60)
          h = (sec`mod`(60*60))`div`60
          s = sec - (t*60*60+h*60)

solve :: (Int,Int,Int) -> IO ()
solve (t,h,s) = do
    let (t1,h1,s1) = secToTHS (2*60*60-(t*60*60+h*60+s))
    let (t2,h2,s2) = secToTHS  (2*60*60-((t*60*60+h*60+s)`div`3))
    printf "%02d:%02d:%02d\n" t1 h1 s1
    printf "%02d:%02d:%02d\n" t2 h2 s2

main = do
    ss <- getContents
    mapM_ solve $ takeWhile (\x->x/=(-1,-1,-1)) $ map (\x->((x!!0),(x!!1),(x!!2))) $ map (\x->map (\y->read y::Int) $ words x) $ lines ss