main=putStr$"Ex\nD/W/!C/W/A!B/W//|!A/w//||!|BsB|?|!??||N??|!??|/N??|/\n?|R?!?|R?!|a|/R|a|/">>=f f '!'="|\n";f '?'="| |";f x|elem x"/|\n"=[x]|0<1=max(['A'..x]>>" ")$['a'..x]>>"_"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).