import Text.Printf

main :: IO ()
main = do
    d <- readLn :: IO Integer
    putStr . show $ (d * 108) `div` 100
    printf ".%02d\n" $ (d * 8) `mod` 100