module Main (main) where
import Control.Applicative
import Control.Monad

main :: IO ()
main = do
  { n <- readLn :: IO Int
  ; cs <- map read . words <$> getLine :: IO [Int]
  ; let answer = foldl (\a x -> if even x then a + 1 else a - 1) 0 cs
  ; putStrLn $ if answer > 0 then "A" else "B"
  }