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