main :: IO ()
main = do
    d <- readLn :: IO Integer
    putStrLn $ solve (d*108)


solve :: Integer -> String
solve d = (take (n-2) s) ++ "." ++ (drop (n-2) s)
    where
        s = show d
        n = length s