let () =
  let s = Bytes.of_string @@ read_line () in
  if Bytes.get s (Bytes.length s - 1) = '?' then
    s.[Bytes.length s - 1] <- 'D';
  for i = Bytes.length s - 2 downto 0 do
    if Bytes.get s i = '?' then
      s.[i] <- if Bytes.get s (i + 1) = 'D' then 'P' else 'D'
  done;
  print_endline @@ Bytes.to_string s

