Use rscript calculator