carres(x,n):={
    local a,b,j,ab;
    DispG ;
    a:=0;
    b:=x;
    for (j:=0;j<n;j++){
      carre(a,b);
      ab:=(b-a)/4;
      a:=a+ab*i;
      b:=b-ab;  
    }
  }