procedure main() write("A\nAA\nB\nB\nBB\nA\nAAB\nBAAB\nA") end