program security
    implicit none
    character(4):: s
    integer(4):: i
    read*, s

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

    print*, 'Good'
end program security