( DMAX                 leave the greater of two double numbers )

need d<
: dmax                            ( d1 d2 --- d3 )
  dover dover                     ( copy d1 and d2)
  d<                              ( compare the two numbers)
  if dswap endif                  ( swap if d2 is greater)
  ddrop                           ( drop the lesser of the two)
;