import Data.List
import Data.Bool

main = do
 s <- getLine
 let s' = if "ai" `isSuffixOf` s then take (length s - 2) s else (s ++ "-")
 putStrLn (s' ++ "AI")