d>s

 shrink double cell value to single cell. 

Stackeffects

( d1 -- n1 )
R( -- )

Definition

: d>s
   drop
;

Used by

*