import Control.Applicative
import Control.Monad
import Control.Monad.ST
import Data.Functor
import Data.Function
import Data.Monoid
import Data.Maybe
import Data.List
import qualified Data.Foldable as Foldable
import qualified Data.Set as Set
--import qualified Data.Sequence as Sequence
import Data.List.Split
import Data.Bits
import Data.Char
import Data.Ix
import Data.Ratio
import Data.Ord
import Data.Tuple
--import Data.Array
--import Data.Array.Unboxed
import Data.Array.IArray
import Data.Array.MArray
import Data.Array.IO
import Data.Array.ST
import Data.IORef
import Data.STRef
-- import System.IO.Unsafe

-- templete
readInt = read :: String -> Int
readInteger = read :: String -> Integer
readDouble = read :: String -> Double
getInt = readLn :: IO Int
getInts = map readInt . words <$> getLine
getInteger = readLn :: IO Integer
getIntegers = map readInteger . words <$> getLine
getDouble = readLn :: IO Double
sjoin :: (Show a) => [a] -> String
sjoin = unwords . map show
cond :: a -> a -> Bool -> a
cond t f c = if c then t else f
apply2 :: (a -> a -> b) -> [a] -> b
apply2 f [x,y] = f x y
apply3 :: (a -> a -> a -> b) -> [a] -> b
apply3 f [x,y,z] = f x y z
apply4 :: (a -> a -> a -> a -> b) -> [a] -> b
apply4 f [x,y,z,w] = f x y z w
fnTuple :: (a -> b, a -> c) -> a -> (b, c)
fnTuple (f,g) a = (f a, g a)
replace :: (Eq a) => a -> a -> [a] -> [a]
replace x y = map (\z -> if z==x then y else z)
binMap :: (a -> a -> b) -> [a] -> [b]
binMap f (x:xs@(y:_)) = f x y : binMap f xs
binMap _ _ = []
splitRec :: Int -> [a] -> [[a]]
splitRec _ [] = []
splitRec n xs = let (y,ys) = splitAt n xs in y : splitRec n ys
infixl 7 `divCeil`
divCeil :: Integral a => a -> a -> a
x `divCeil` y = (x+y-1) `div` y
-- templete

type ColorCode = (Int,Int,Int)
distC :: ColorCode -> ColorCode -> Int
distC (r,g,b) (r',g',b') = sum $ map (^2) [r-r', g-g', b-b']

type Color = (String, ColorCode)

colorList = [("black", (0,0,0)), ("blue", (0,0,255)), ("lime", (0, 255, 0)), ("aqua", (0, 255, 255)), ("red", (255,0,0)), ("fuchsia", (255,0,255)), ("yellow", (255, 255, 0)), ("white", (255, 255, 255))]

f ['#',rr,r,gg,g,bb,b] = fst $ minimumBy (comparing (distC (red, green, blue) . snd)) colorList
  where
    red = 16 * digitToInt rr + digitToInt r
    green = 16 * digitToInt gg + digitToInt g
    blue = 16 * digitToInt bb + digitToInt b
    

main = takeWhile (/="0") . lines <$> getContents >>= mapM_ (putStrLn . f)
    

