easy regexp by kurimura

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top