main=putStr$f=<<"Ex#D/W/|#C/W/A|#B/W//||#A/w//|||#|BsB|$|#$A|||N$A|||#$A||/N$A||/#$R$#$R$#|a|/R|a|/"
f x|elem x"/|"=[x]|x<'$'="\n"|x<'%'="| ||"|0<1=max(['A'..x]>>" ")$['a'..x]>>"_"