* D= ( d1.d1 d2.d2 -- flag ) the double-cell is-equal operation ( = )
D=
( d1.d1 d2.d2 -- flag )
=
double ordinary primitive