program main
  implicit none
  character*100000::S
  integer::len, i,hidari
  data hidari/0/
  read *,S
  len = LEN_TRIM(S)
  do i=4,len,5
     if(S(i:i).eq.'*') then
        hidari = hidari+1
     end if
  end do
  print '(i0,1x,i0)', hidari, len/5-hidari
end program main