Not particularly short, but it sure was fun to learn something about the byzantine format builtin:

format=
@||||||
$_
.
write for map'*'x(7-2*abs),-3..3
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print