import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Read as T
import Data.Bool (bool)

main :: IO ()
main = T.getLine >>= T.putStrLn . T.map (bool 'D' 'P' . (== 'P'))
