main :: IO () main = interact $ solve . map read . words solve :: [Int] -> String solve [a, b] | b `mod` a == 0 = show $ b `div` a | otherwise = "NO"