module Main where

import Data.Fixed

data E51
instance HasResolution E51 where
  resolution _ = 10 ^ 51


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

solve :: [Integer] -> String
solve ab = let a = MkFixed (ab!!0) :: Fixed E51
               b = MkFixed (ab!!1) :: Fixed E51
           in  init . show $ a / b

getIntegerList :: IO [Integer]
getIntegerList = map read . words <$> getLine