let () =
  let a = Scanf.scanf "%s\n" (fun a -> a) in
  let input_chars = BatString.to_list a in
  let b = List.length (List.find_all (fun x -> x = 'o') input_chars) in
  print_int (b * 100 + 700);
  print_endline ""

