$title sum of squares - uses cond, ord, and conditional

option limrow=0, limcol=0;

set 
    I/1*10/
;

alias (I,J);

parameter
	squares(I)  contains I^2
	sumofsq(I)  contains 1^2 + 2^2 + ... + I^2
;


squares(I) = ord(I)*ord(I);
sumofsq(I) = sum(J$(ord(J) <= ord(I)), squares(J));

display squares, sumofsq;