$i=1;$p=$s=<>-2;for(0..$s){print' 'x$s--.'*'x$i."
";$i+=2}print' 'x$p.'*'