import Control.Applicative ((<$>))

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

solve :: Integer -> String
solve n = (if null x then "0" else x) ++ "." ++ y
  where d = 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991
        nd = show $ n * d
        (x,y) = splitAt (length nd - 190) nd