main=putStr$"ew_\nbb/re/A b/re/ Ab/re//|A /w//||A|bsb|B|ABB||nBB|ABB|/nBB|/\nB|rBAB|rBA|_|/r|_|/">>= \a->maybe[a]id$lookup a$zip"ABbenrsw"$"|\n":"| |":[['a'..a]>>[b]|b<-" __"]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).