using reduce ;
lisp ('in ["pure_tex.red"]);

let r1 = simplify $ tex (df (x^n) x);
let r2 = simplify $ tex (q/(x-y));
let r3 = simplify $ tex (alpha^gamma+Delta);

declare operator f;
let r4 = simplify $ tex (intg (f x) x); //-> "(\\int  { f \\( x \\) \\, d x })"


//texstr x = t!!(1..n) when t=(filter (\s-> s~=" ") x); n=#t-2 end;
//texmacs x = sprintf "\02latex:$%s$\05" (texstr x) ;