let () =
  let str = Bytes.of_string @@ read_line () in
  for i = (Bytes.length str) - 1 downto 0 do
    if Bytes.get str i = '?' then Bytes.set str i 'D'
  done;
  print_endline (Bytes.to_string str)