1; 1.e10; "a string" # constants
t; f; int # built-ins
x<-1; x #assignments

sin(x); x+2*y # function, arith, precedence
(x**2*exp(x))->y

x>0|(l<-y<1 & runif(2)>.5) #logic
-x; !l; -3 # uniary
z_hclust(dist(x),"ave"); z$merge
z$merge$dim
reg(x,y,int=f)
stem x #arglist with blank

{x;y}
if(i)1:3 else z$order
for(i in 1:1)sin(x) #for loops
for(i in 1) {
	printer()
	plot(z$[i]);title(encode("plot",i))
	abline(x)}
for(i in 1){sin(x);3}
for(i in 1)3

# generate some syntax errors
x+)
x[1}
x{for(i in 1:3)sin(y)}
z$$order
for(i in seq(1000,23000,10000)){sin(y)
	regress(x,y)
	rnorm(300+,y)}
