import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.List

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
    x <- getInt
    let ans :: Int
        ans | x <= 599 = 8
            | x <= 799 = 7
            | x <= 999 = 6
            | x <= 1199 = 5
            | x <= 1399 = 4
            | x <= 1599 = 3
            | x <= 1700 = 2
            | x <= 1999 = 1 
    print ans