main = do
    d <- readLn
    putStrLn . (\s -> take (length s - 2) s ++ "." ++ drop (length s - 2) s) $ show (108 * d)