solve :: Int -> String
solve 1 = "1.08"
solve n = show (n + div (8 * n) 100) ++ "." ++ rest
    where eight = show $ n * 8
          rest = drop (length eight - 2) eight

main :: IO ()
main = readLn >>= putStrLn . solve