program W
implicit none
character(100000)::S
integer::A=0,B=0
integer::i
read*,S
do i=1,len_trim(S)-1
  if(S(i:i)=="*")then
    if(S(i-1:i-1)=="^")A=A+1
    if(S(i+1:i+1)=="^")B=B+1
  end if
end do
print"(i0,A,i0)",A," ",B
end program W