puts$_=[*'A'..'Z']*''
puts$_,chop while$_[-1]^=32