main :: IO ()
main = interact $ solve . map read . words

solve :: [Int] -> String
solve [m, n] = if t == "0" then "0" else t ++ "000"
    where
        t = show $ m `div` (n * 1000)