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]>>"_"