.R
cat ("Hello world!\n")
f <- file("stdin", "r") x <- scan(file=f, n=1, quiet=T) y <- scan(file=f, n=1, quiet=T) cat(as.integer(x+y)) cat("\n")