* D< ( d1.d1 d2.d2 -- flag ) the double-cell is-less operation ( < )
D<
( d1.d1 d2.d2 -- flag )
<
FORTH/ANS double ordinary primitive