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