open Scanf
open Printf
    
let ($) f x = f x
let string2charlist s = let rec proc i res =
                          try proc (i+1) $ s.[i]::res
                          with Invalid_argument _ -> res
  in List.rev $ proc 0 []


let rec ocaunt = function
    [] -> 0
  | x::xs -> if x=='o' then 1+ocaunt xs else ocaunt xs;;

printf "%d" $ 700 + 100 * ocaunt (string2charlist $ read_line ()) ;;
