main = putStrLn . solve . reverse =<< getLine

solve :: String -> String
solve s | "ia" == take 2 s = (++ "AI")  $ reverse $ tail . tail $ s
        | otherwise        = (++ "-AI") $ reverse s