solve :: Integral a => String -> (a, a) -> (a, a)
solve "#" d = d
solve s (l, r) = case take 5 s of
    "(^^*)" -> solve (drop 5 s) (l + 1, r)
    "(*^^)" -> solve (drop 5 s) (l, r + 1)

main = do
    s <- getLine
    let ans = solve s (0, 0)
    putStrLn . unwords . map show $ [fst ans, snd ans]