import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

solve :: String -> String
solve s
  | any (uncurry (==)) (zip s $ tail s) = "Bad"
  | otherwise = "Good"

main = solve <$> getLine >>= putStrLn