Public Class Main
    Shared Sub Main()
        'Dim n As Integer = 4
        'Dim a(n) As Integer
        'For i As Integer = 0 To n
        'a(i) = Split()
        'Next
        Dim a As String = Console.ReadLine()
        Dim b(a.Length) As String
        For i As Integer = 0 To a.Length - 1
            b(i) = a(i)
        Next
        Dim ans As String = Jud(b)
        Console.WriteLine(ans)
        Console.ReadKey()
    End Sub

    Shared Function Jud(b) As String
        Dim a As String = "Good"
        For i As Integer = 0 To 3
            If b(i) = b(i + 1) Then
                a = "Bad"
            End If
        Next
        Return a
    End Function
End Class
