for (i in 1:length(GPfunction(x))) 
{
Test <- GPfunction(x)[i]
if (is.na(as.numeric(Test)))
{
if (GPfunction(x)[i] == "FLOAT.+") 
{FLOATadd();} 
if (GPfunction(x)[i] == "FLOAT.SWAP") 
{FLOATswap();} 
if (GPfunction(x)[i] == "FLOAT.*") 
{FLOATmultiply();} 
if (GPfunction(x)[i] == "FLOAT.%") 
{FLOATdivide();} 
if (GPfunction(x)[i] == "FLOAT.DUP") 
{FLOATdup();} 
if (GPfunction(x)[i] == "FLOAT.-") 
{FLOATsubtract();}
}
else { source("NewFloat.R")}
}