do[a=a*a+1]