let () =
  Scanf.scanf "%1s%1s%1s" (fun a b c ->
      let rec calc li o =
        match li with
        | [] -> o
        | x :: xs when x = "o" -> calc xs (o + 1)
        | x :: xs -> calc xs o
      in
      (calc [a; b; c] 0 * 100) + 700 |> Printf.printf "%d\n" )
