import Data.Char

main :: IO()
main = do
    ns <- getLine
    putStrLn $ solve (map digitToInt ns)


solve :: [Int] -> String
solve ns
    | ns !! 0 == ns !! 1 || ns !! 1 == ns !! 2 || ns !! 2 == ns !! 3 = "Bad"
    | otherwise = "Good"