ll@s,n=0,a[15]; while(s){ a[n]=Isqrt(s)**2; s-=a[n]; ++n; } wt(n); wt(a(n));