forked from GitHub/gf-core
7 lines
175 B
Plaintext
7 lines
175 B
Plaintext
concrete SystemMathEng of SystemMath = SystemEng, MathEng ** open
|
|
Prelude in {
|
|
lin
|
|
RSum x y d =
|
|
ss (["the sum of"] ++ x.s ++ "and" ++ y.s ++ "is" ++ d.s) ;
|
|
} ;
|