main=getChar>>=mapM(putStrLn.concat).mapM id.f s=w"ABC DEF" f '['=[w"A B C",s] f 'A'=[w"A","":w"B","":s,w"FF","":w"X Y Z"] f _=["":w"Objective- Aspect Concept",w"C D","":w"++ -- # omega"] w=words