: dmin ( d1 d2 -- d ) \ double d-min 2over 2over d> if 2swap then 2drop ;