main = do
	name <- getLine
	putStrLn $ if drop ((length name) - 2) name == "ai" then take ((length name) - 2) name ++ "AI" else name ++ "-AI"