procedure main()
while a:=read()do every b:=!a do{every writes(char(65to ord(b)));write()}
end