(* Title:  100-init-rootpbl.sml

    Author: Walther Neuper 1105

    (c) copyright due to lincense terms.

 *)

 val fmz = ["equality (x+1=(2::real))", "solveFor x","solutions L"];

 val (dI',pI',mI') =

   ("Test", ["sqroot-test","univariate","equation","test"],

    ["Test","squ-equ-test-subpbl1"]);

 val (p,_,f,nxt,_,pt) = CalcTreeTEST [(fmz, (dI',pI',mI'))];

 val (p,_,f,nxt,_,pt) = me nxt p [] pt;