2021: Examples of CAS-type programs

[compsystems]

Hello
trying the following code I have problems

PHP Code:

#cas
test_withsqrt_flag():=
begin
  local poly1;
  purge(x); PRINT(); print:
  poly1 := x^5 -4*x^4 -7*x^3 -41*x^2 -4*x+35;
  print( factor( poly1 ) ); // (x+1) * (x^2-7*x+5) * (x^2+2*x+7) 
// or (x+(-√29-7)/2) * (x+(√29-7)/2)*(x+1) * (x^2+2*x+7) 
// depending on the square root flag it is activated or not manually.
  return poly1;
end; 


test_withsqrt_flag() [enter] "Error: Bad Argument Value". Why?
do you have this problem on your calculator?

Now I want in the hp-prime to automate the factoring output without asking the user to change the flag manually

Xcas Code

PHP Code:

test_withsqrt_flag(x):=
{
  local poly1;
  purge(x);
  with_sqrt( False ); 
  poly1 := x^5 -4*x^4 -7*x^3 -41*x^2 -4*x+35;
  print( factor( poly1 ) ); // (x+1) * (x^2-7*x+5) * (x^2+2*x+7)
  with_sqrt( True );  
  print( factor( poly1 )); // (x+(-√29-7)/2) * (x+(√29-7)/2)*(x+1) * (x^2+2*x+7) 
  return poly1;
};