: dmax ( d1 d2 -- d ) \ double d-max 2over 2over d< if 2swap then 2drop ;