program b
    use,intrinsic :: iso_fortran_env
    implicit none
    character(2*10**5):: t


    read*, t

    do while (index(t,'?') > 0)
        t(index(t,'?'):index(t,'?')) = 'D'
    end do

    print'(a)', trim(t)
    
end program b