open System
open System.Collections.Generic

let ReadOne T = stdin.ReadLine()|> T
let ReadSplit T = stdin.ReadLine().Split()|>Array.map T
[<EntryPoint>]
let main argv =
    stdin.ReadLine()
    |>Seq.sumBy(fun c -> if c='o' then 100 else 0)
    |>fun c -> c+700
    |>stdout.WriteLine
    0
