open Scanf
open Printf

let explode s =
  let rec exp i l =
    if i < 0 then l else exp (i - 1) (s.[i] :: l)
  in
    exp (String.length s - 1) []

let something_on_it s =
  let s_list = explode s in
    let rec plus_100 s_list =
      match s_list with
        [] -> 700
      | first :: rest -> if first = 'o' then 100 + plus_100 rest
                                        else plus_100 rest
    in
      plus_100 s_list

let () = scanf "%s" something_on_it |> printf "%d\n"