use strict;
sub _{"#".shift(@_)x$#_."#\n"}my @__=('A'..'Z',$",'&')
;sub __ {"#",$"x((@__-@_)/2),@_,$"x((@__-@_)/2),"#\n"}
s//#/;print _($_,@__),_($",@__), __(@__[9,20,18,19,26]
), __(@__[0,13,14,19,7,4,17]), __(@__[15,4,17,11,26]),
__(@__[7,0,2,10,4,17,26]),_($",@__),_($_,@__); __END__