$A="  \\";$:="\\";map{$;=(/fl/?"-":/nv/?V:/tr/?"^":/c/?O:/wa/?"~":/ny/?".":/os.*w/?"!":/w/?"|":/a/?"*":x);if(/ey/){$l=$;if/ft/;$r=$;if/h/;$l=$r=$;if!/[fh]t/}$n=$;if/os/;$m=(/f/?"---":/d/?" V ":/g/?" ^ ":/c/?" O ":/w/?"\\/\\":/y/?" . ":/s/?" * ":/x/?" X ":$m)if/mo/;$A=(/no/?($N=""):/ht/?"   |":/i/?"  \\":/v/?"   (":$A),$:=(/no/?$":/ht/?"|":/i/?"\\":/v/?")":$:)if/em/;$H=(/lo/?$A:/sh/?"":$H?$A:$H);if(/!/){print"$N$H
 __$:__
/ $l $r \\
|  $n  |
\\ $m /
","-"x7;$N=$/}}<>