let () =
  let s = read_line () in
  let rec doit i (l, r) =
    if s.[i] = '#' then l, r
    else if s.[i+1] = '*' then doit (i + 5) (l, r + 1)
    else doit (i + 5) (l + 1, r) in
  let l, r = doit 0 (0, 0) in
  Printf.printf "%d %d\n" l r