#!/usr/bin/env perl

use strict;
use utf8;
use warnings;

my $s = <>;
chomp $s;
if ($s =~ /ai$/) {
  print((substr$s,0,-2)."AI\n");
} else {
  print$s."-AI\n";
}