#!/usr/bin/perl -w
use strict;
for(2,3,4,7,4,3,2){unless($_ == 7){print "\t"," "x($_-3/4),"*"x$_,
"\n";}else{print "\n","="x($_+$_+2),"\n";}}print"\n\t\n";for(5,4,3,
2,3,4,5){unless($_ == 2){print "\t"," "x($_-5/4),"*"x$_,"\n";}else{
print "\n"," "x($_+6),"="x($_+14),"\n";}}