r <- parserexpf("2.5+3*1.5")
cat("2.5+3*1.5 =", r, "\n")