func main()
	var s: []char :: cui@input()
	var l: int :: 0
	var r: int :: 0
	for i(0, ^s - 1)
		if(s[i] = '*')
			if(s[i - 1] = '^')
				do l :+ 1
			else
				do r :+ 1
			end if
		end if
	end for
	
	do cui@print("\{l} \{r}\n")
end func