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