collecting terms



To suppress display of intermediate results:

polyform(expr,var):=
   block([dispflag:false],
     ev(ratdisrep(rat(isolate(expr,var),var)),eval))$