Nothing
library(itertools)
n <- 100
it <- ihasNext(icount(n))
total <- 0
while (hasNext(it))
total <- total + nextElem(it)
print(total == sum(seq(length=n)))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.