import Text.Printf

count :: String -> (Int,Int)
count ('(':'^':'^':'*':')':cs) = let (l,r)=count cs in (l+1,r)
count ('(':'*':'^':'^':')':cs) = let (l,r)=count cs in (l,r+1)
count _ = (0,0)

main = do             
    line <- getLine                       
    let (l,r) = count line
    printf "%d %d\n" l r