$q=<>;
$i=1;
for ($k=0; $k<$q; $k++) {
$array[$k]='+';
} while ($i<=$q) {
	$last=pop@array;
	unshift @array, '*';
	print ("@array \n");
	$i=$i+1;
}