Scanf.scanf "%s" (fun s ->
    let n = String.length s in
    let rec loop i acc =
        if i = n then acc else loop (i + 1) (if s.[i] = 'o' then acc + 1 else acc)
    in
    let ok = loop 0 0 in

    let rec loop i rest =
        if i < n then (
            Printf.printf "%.6f\n" (100. *. float rest /. float (n - i));
            if s.[i]= 'o' then loop (i + 1) (rest - 1)
                          else loop (i + 1) rest
        )
    in
    loop 0 ok
)