operator a, b, c, d ;
let c^2=a^2+b^2 ;
let d=a*b/2 ;
q1:=y^2 - x^3 + d^2*x ;
solve(y^2=x^3 - d^2*x, {x,y}) ;
%% Name: redOut-in-007-Expand.red
%% Purpose: input for redExpand test

let f=a^3+b^3 ;
let d=1/d ;

q1:=y^2 - x^3 + d^2*x ;
solve(y^2=x^3 - d^2*x, {x,y}) ;

%% Done: redpipe-test-01a.red
load_package rlfi ;
on latex, lasimp;
j:=sqrt(k^2 + l^2) ;
off latex;
