program test
implicit none
integer :: i,y
character(3) :: s


read(*,*) s

if(s=='ooo') then
  y = 1000
else if (s=='xoo' .or. s=='oxo' .or. s=='oox') then
  y = 900
else if (s=='xxo' .or. s=='oxx' .or. s=='xox') then
  y = 800 
else
  y = 700
endif
 
 
 write(*,*) y
 
end program