* *** ***** ******* ***** *** * #### for(0..3,2,1,0){print" "x(3-$_),"*"x($_*2+1),"\n"}