.begin
.integer x ;
0 =: x ;
.until x .= 15 .do
	.begin
	edit ( 1 + 14*x - x*x , '+' ) ;
	print ;
	x + 1 =: x
	.end
.end