program main
implicit none
integer :: i
character :: s*4

read(*,*) s
do i = 1, 3
  if( s(i+1:i+1) == s(i:i) ) then
     write(*,*) 'Bad'
     stop
  end if
end do
write(*,*) 'Good'


end program main
