concrete UserMathEng of UserMath = UserEng, MathEng ** open Prelude in
  {
  lin
    QSum x y = ss (["what is the sum of"] ++ x.s ++ "and" ++ y.s) ;
  }