GPfunction <- function(x) c(5.0, 7.0, "FLOAT.+", "FLOAT.*", "FLOAT.%", "FLOAT.SWAP", x, 6.0, "FLOAT.+", 1.0, "FLOAT.SWAP");
x <- 1;