import Data.Char

choices = let
              capital = toUpper . head
          in do
                l <- getLine
                let initial = capital l
                remaining <- choices
                return (initial : remaining)

main = do
          inputs <- choices
          mapM (putStrLn . (:"Q")) inputs