f :: String -> String
f [] = "a"
f (c : cs)
  | c == 'a' = 'a' : f cs
  | otherwise = "a"

main :: IO ()
main = do
  s <- getLine
  putStrLn (f s)