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


-- x は整数部分
-- ys は小数部分をStringにしたもの
solve :: [Int] -> [Char]
solve [a, b] = (show x) ++ "." ++ ys
    where
        (x, y) = divMod a b
        ys = take 50 $ f (10 * y) b

f :: Int -> Int -> String
f n m = show a ++ f (10 * b) m
    where
        (a, b) = divMod n m