Scanf.scanf "%s" (fun s ->
    let n = String.length s - 1 in
    let rec loop p l r =
        if p = n then Printf.printf "%d %d\n" l r else
            if s.[p + 1] = '*' then loop (p + 5) l (r + 1) else
                                    loop (p + 5) (l + 1) r
    in
    loop 0 0 0
)