import Data.List
main = interact $ unlines . map (concat . intersperse "\n" . videotape . map read . words) . takeWhile (/= "-1 -1 -1") . lines
videotape [t,h,s] = [to_hms (7200 - to_sec t h s), to_hms (7200 - (div (to_sec t h s) 3))]
 where
  to_sec t h s = 3600*t + 60*h + s
  to_hms s = concat $ intersperse ":" $ map show_digit [div s 3600, mod (div s 60) 60, mod s 60]
  show_digit s = (if length (show s) < 2 then "0" else "") ++ show s