func main()
	var s: []char :: cui@input()
	if(s.sub(^s - 2, 2) = "ai")
		do s[^s - 2] :: 'A'
		do s[^s - 1] :: 'I'
		do cui@print("\{s}\n")
	else
		do cui@print("\{s}-AI\n")
	end if
end func