// Program to demonstrate solving using the solvingTransformations.frink file.
// This wee program will do your algebra for you.

use derivatives.frink
use integrals.frink
use solvingTransformations.frink
use BooleanTransformations.frink

showApproximations[false]
symbolicMode[true]
while (text = input["Enter expression: "])
{
   expr = parseToExpression[text]

//   println["expr is $expr"]
 // This version shows without trace.
//   res = transformExpression[expr]
//   println["\n$res"]

   // This version shows trace
   res = transformExpressionTrace[expr]
   println["\n" + join["\n",res]]
   last = res@(length[res]-1)
   println["Evaluated: " + eval[last]]
}