(princ(if(eq(read)'A)"A
AA
B
B
BB
A""AAB
BAAB
A"))