
main = do
    [x,y] <- getInts
    putStrLn $ solve x y

getInts :: IO [Int]
getInts = map read . words <$> getLine

solve :: Int -> Int -> String
solve x y | abs (x-y) <= 1 = "Brown"
          | otherwise = "Alice"
