chomp ($s = <>);
print $s =~ /(.*)(ai$)/ ? $1 . uc $2 : $s . "-AI";