sub f{
for((5)x3,0){print'*',' *'x5,'='x15,"\n ",'* 'x$_,"\n"}print+('='x26,"$/$/")x3
}