#!/usr/bin/perl -w
$i=1;
$b=30;
while($i!=8)
{print " "x$b;print "**"x$i,"\n";$i+=1;$b-=1;}
$b=14;
$i=17;
while($i!=12)
{print " "x$b;print "**"x$i,"\n";$i-=1;$b+=1;}
$b=17;
$i=14;
while($i!=19)
{print " "x$b;print "**"x$i,"\n";$i+=1;$b-=1;}
$b=24;
$i=7;
while($i!=0)
{print " "x$b;print "**"x$i,"\n";$i-=1;$b+=1;}