{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set

main :: IO ()
main = do
    n <- read <$> getContents
    print $ n * 800 - (n `div` 15 * 200)