import Control.Applicative

main :: IO ()
main = solve <$> readLn <*> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: Int -> [Int] -> String
solve k [a, b]
  | a <= b `div` k * k = "OK"
  | otherwise = "NG"
