import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> readLn >>= putStrLn

solve :: Int -> String
solve x = let tx = show $ x * 108
              (a, b) = splitAt (length tx - 2) tx
          in a ++ "." ++ b