import Control.Applicative ((<$>)) import Control.Monad (replicateM) main :: IO () main = do n <- readLn solve <$> replicateM n (map read <$> words <$> getLine) >>= mapM_ putStrLn solve :: [[Integer]] -> [String] solve = map f where f [d, x, t] | hp (x+1) (d-1) <= t = "AC" | otherwise = "ZETUBOU" comb :: Integer -> Integer -> Integer comb n m | m == 0 = 1 | n < 2 * m = comb n (n - m) | otherwise = comb (n-1) (m-1) * n `div` m hp :: Integer -> Integer -> Integer hp n m = comb (n+m-1) m