\ double 98.7.16 1:15 pm NAB

: M+  s>d d+ ;
: D=  rot = >r = r> and ;
: D<  d- nip 0< ;
: D0<  0. d< ;
: D0=  0. d= ;
: D>S  drop ; inline
: D.  0 d.r space ;
: 2ROT  >r >r  2swap  r> r>  2swap ;