: 0drop  drop 0  ;
double precision fetch (d@) and store (d!).