d-to-s:double — ordinary primitive
FORTH
D>S
( d.d -- n )();
p4:"d-to-s";
result is the numeric equivalent of d. If the double number was greater than what could fit into a single cell number, the modulo cellsize will be left since the higher-significant bits are just DROPed