Square of an unsigned integer without products.

/*
   Please review and comment if at certain low level the computers today already
   make such calculations with the method shown below.
*/

uisqr(x)={my(i,j,k); x+sum(i=1,2,sum(j=1,(x-1),sum(k=(j+1),x,1)))};