
check [] = True
check (x:[]) = True
check (x1:x2:xs) =
    if x1 == x2 
    then False
    else check (x2:xs) 

main = do 
    moji <-  getLine
    
    putStrLn $ if check moji then "Good" else "Bad"

