import Control.Applicative
import Data.Char
 
main :: IO ()
main = do
    ns <- getLine
    putStrLn $ solve (map digitToInt ns)

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