import Control.Applicative ((<$>))
import Data.List

main :: IO ()
main = do
  solve <$> getLine >>= putStrLn

solve :: String -> String
solve ss = let l = length ss
           in if "ai" `isSuffixOf` ss then take (l - 2) ss ++ "AI" else ss ++ "-AI"