#!/usr/bin/perl


for(1..11){(($;=($_%2))&&($_<=9))&&do{$;+=ord('"');print
'*   'x5,    '* ',chr($;)x ord(0),$/;}||($_<9)&&do{print
'  * 'x5,$/;}||do{print$/.chr(int($_/2)*7)x70 .$/;}    }
[download]