main :: IO()
main = do
    str <- getLine
    putStrLn $ if (getsolve str) then "Good" else "Bad"
    
    



getsolve :: String->Bool
getsolve str
    | length str == 1	= True
    | head str == (head (tail str)) = False
    | otherwise		= getsolve (tail str)