
-- Input generated from DoubleFloatXmpPage
)clear all

2.71828
2.71828@DoubleFloat
2.71828 :: DoubleFloat
eApprox : DoubleFloat := 2.71828
avg : List DoubleFloat -> DoubleFloat
avg l ==
  empty? l => 0 :: DoubleFloat
  reduce(_+,l) / #l
avg []
avg [3.4,9.7,-6.8]
cos(3.1415926)$DoubleFloat
cos(3.1415926 :: DoubleFloat)
