Floats <- NaN;
source("RefreshStack.R");
FLOATdup <- function(){source('FLOATdup.R')};
FLOATswap <- function(){source('FLOATswap.R')};
FLOATdivide <- function(){source('FLOATdivide.R')};
FLOATmultiply <- function(){source('FLOATtimes.R')};
FLOATsubtract <- function(){source('FLOATsubtract.R')};
FLOATadd <- function(){source('FLOATplus.R')};
Floats <- NaN;