module Main where

type Input  = [Char]
type Output = String

parse :: String -> Input
parse = head . lines

solve :: Input -> Output
solve = ('a':) . filter (== 'a')

render :: Output -> String
render = id

main :: IO ()
main =
    interact
        ( render
        . solve
        . parse
        )