import System.IO
import Data.List
import Control.Applicative

main = do
	[x, y] <- map read . words <$> getLine
	n <- head . findIndices (length > 0) $ iterate (concat . mani) [x, y]
	if n 'mod' 2 == 0
		then putStrLn "Brown"
		else putStrLn "Alice"
	
mani [x, y] = [[x-2*i, y+i] | i <- [1..x], x >= 2*i] ++ [[x+i, y-2*i] | i <- [1..y], y >= 2*i]