* D. ( d1.d1 -- ) freefield output for a double-cell number ( . )
D.
( d1.d1 -- )
.
double ordinary primitive