solve2050 a b = case () of
  _
    | a > b' -> "KoD"
    | a < b' -> "blackyuki"
    | otherwise -> "same"
  where
    b' = b * 3600 / 1000

main = getLine >>= putStrLn . (\x -> solve2050 (head x) (x !! 1)) . fmap readInt . words
  where
    readInt = read :: String -> Double